среда, 29 ноября 2023 г.

Вставка и замена в тексте

Задача. Заменить в тексте слово «ноябрь» на «декабрь».  Слова в тексте отделяются друг от друга пробелами. В конце текста тоже стоит пробел.


var s:string;

    ns:integer;

begin

  readln(s);

  ns:=pos('... ',s);{ищем  слово, которое будем заменять}

  while ns>0 do {повторяем действия пока в тексте есть это слово}

             begin

             ... {удалеям слово}

             ...('...',s,...);{вставляем новое слово}

            ...{ищем снова слово}   

            end;

writeln(s);                          

end.


СОСТАВЛЕНИЕ ПРОГРАММ

Задание 2. Заменить в тексте слово «ноябрь» на «декабрь».  Слова в тексте отделяются друг от друга пробелами. В конце текста тоже стоит пробел.

Задание 3. Заменить в тексте слова «золотая осень» на «зима».

Задание 4.  Заменить в тексте все числа 5 на «пять» и все 7 на «семь».. 

Задание 5. Заменить в тексте «осень» на «зима». Учитывая, что слова могут быть записаны с заглавной и строчной букв. 

Оператор цикла с условием

ПРЕЗЕНТАЦИЯ К УРОКУ

while условие do команды;

>

<

=

<>

>=

<=



Формат команды «While»:

while условие do оператор; 

При выполнении команды «While» сначала проверяется условие. Если оно истинно, то выполняются команды, входящие в тело цикла, затем условие проверяется снова, и т. д. Таким образом, команды цикла выполняются до тех пор, пока условие истинно. Если условие ложно, то цикл заканчивается.


Задание. С клавиатуры вводится последовательность чисел. Ввод заканчивается, когда пользователь ввёл ноль. Найдите сумму введённых чисел.


СОСТАВЛЕНИЕ ПРОГРАММ


Задание 1. Запустите PascalAbcNet

Задание 2. С клавиатуры вводится последовательность чисел. Ввод заканчивается, когда пользователь ввёл ноль. Найдите сумму введённых чисел.

Задание 3. С клавиатуры вводится последовательность чисел. Ввод заканчивается, когда пользователь ввёл любое отрицательное число. Найдите сумму введённых чисел.

вторник, 28 ноября 2023 г.

Текстовый редактор

 

Текстовый редактор.Урок 10. 6 класс

ПРЕЗЕНТАЦИЯ


ПРАКТИЧЕСКАЯ РАБОТА


Задание 1. Запустите текстовый редактор Word.

Ребята, при наборе не делайте красную строку. Мы с вами научимся её задавать позже.

Задание 2. Сохраните пустой документ в файле ввод текста фамилия. Файл сохранить в папке D:\ученики\6А(Б,В,Г).

Задание 3.  Наберите  первый абзац и первое предложение второго абзаца из упр. 1 стр. 66. Сохраните изменения в файле Файл\Сохранить.

Справка.
«,» -  Shift+.

понедельник, 27 ноября 2023 г.

Преобразование элементов массива. Урок 2

ПРЕЗЕНТАЦИЯ К УРОКУ

СОСТАВЛЯЕМ ПРОГРАММЫ


Задание 2.  Набрать и выполнить программу, которую делали в классе.

var m:array[1..10] of integer;
       p:...;
begin
 writeln(‘Введите 10 элементов массива’);
 for var i:=1 to 10 do …(m[i]);
 
 writeln(‘После перестановки’);
 for var i:=1 to 10 do …(m[i]);
end.

Задание 3. Составить программу, которая меняет местами первую половину массива: первый и второй, третий  и четвёртый,... , а вторую половину не трогаем. Количество элементов в массиве 12.

пятница, 24 ноября 2023 г.

Алгоритмическая конструкция «повторение»

ПРЕЗЕНТАЦИЯ К УРОКУ

ИГРАЕМ И ПОВТОРЯЕМ


СОСТАВЛЯЕМ ПРОГРАММЫ ДЛЯ ИСПОЛНИТЕЛЯ РОБОТ

Задание 1. Запустите программу PascalABC.NET. Ярлык вы найдёте на Рабочем столе или в меню Пуск Обратите внимание на чёрные буквы net в правом нижнем углу значка

Задание 2. Наберите и выполните программу из классной работы. Покажите учителю

Задание 3. Составьте программу для решения задачи с3 (обстановку можно посмотреть в упр. 3 стр. 67). Покажите учителю.

среда, 22 ноября 2023 г.

Оператор цикла

ПРЕЗЕНТАЦИЯ К УРОКУ

СОСТАВЛЕНИЕ ПРОГРАММ


Задание 1. Запустите PascalAbcNet

Задание 2.  Составьте и выполните программу из классной работы.


Задание 3.  Измените программу, чтобы у вас выводилось ваше имя в строку через пробел 25 раз. Команда для вывода в строку write.

вторник, 21 ноября 2023 г.

Операции над фрагментами

 

ИГРАЕМ И ПОВТОРЯЕМ


ПРЕЗЕНТАЦИЯ


ПРАКТИЧЕСКАЯ ЧАСТЬ

Файлы для работы можно скачать здесь 


Задание 1. Загрузите графический редактор Paint. 

Задание 2. 

  1. Загрузите файл Аллея из папки D:\для занятий\6 класс\ГР. 
  2. Сохраните файл в папку D:\ученики\6А(Б,В,Г) под именем Аллея фамилия.
  3. Сделайте одно дерево совсем маленьким, а одно огромным.
  4. Сохраните изменения в файле Файл\Сохранить.

Задание 3. 

  1. Загрузите файл Отображение_испр из папки D:\для занятий\6 класс\ГР. 
  2. Сохраните файл в папку D:\ученики\6А(Б,В,Г) под именем Отображение фамилия.
  3. Выполните задание из файла.
  4. Сохраните изменения в файле Файл\Сохранить.

понедельник, 20 ноября 2023 г.

Преобразование элементов массива

ПРЕЗЕНТАЦИЯ К УРОКУ

 ИГРАЕМ И ПОВТОРЯЕМ

ДЕЙСТВИЯ НАД ЭЛЕМЕНТАМИ МАССИВА. ПОМОЩЬ

var d:array[1..8] of real;

      i:integer;

begin

   writeln(‘Введите диагонали   8 мониторов:’);

   for i:=1 to 8 do readln(d[...]);


   for i:=1 to 8 do d[i]:=d[...]...;


   writeln(‘Диагонали   8 мониторов в сантиметрах:’);

   for i:=1 to 8 do writeln(d[...]);

end.


ПРАКТИЧЕСКАЯ ЧАСТЬ

Задание 1.  Запускаем среду программирования PascalABC.NET. Ярлык вы найдёте на Рабочем столе или в меню Пуск Обратите внимание на чёрные буквы net в правом нижнем углу значка.

Задание 2. Наберите и выполните программу, которую составляли в классе.

Задание 3. В массиве хранятся данные о температуре в градусах Цельсия. Составьте программу перевода этих значений в градусы Фаренгейта по формуле: t °F = t °C *1,8 + 32

пятница, 17 ноября 2023 г.

Исполнитель Робот

 ПРЕЗЕНТАЦИЯ К УРОКУ


ПРАКТИЧЕСКАЯ РАБОТА

Задание 1. Запускаем программу PascalABC.NET. Ярлык вы найдёте на Рабочем столе или в меню Пуск Обратите внимание на чёрные буквы net в правом нижнем углу значка


Задание 2. Набрать и выполнить программу, над которой сегодня работали вместе. Для выполнения программы можно нажать клавишу F9.

uses robot;
 ... zakr;
 begin
  paint; down; paint; right;
  paint; up; paint;
 end;
 procedure perexod;
 begin
  right; right;
 end;
begin
 field(8,2);
 left;left;left;...;
 up;
 zakr;perexod;
...
end.

Задание 3. Измените программу так, чтобы Робот закрашивал 5 таких квадратов. 

1.  Вам надо изменить ширину поля: добавиться 2 квадрата шириной по 2 клеточки и 2 прохода ашириной в одну клетку, т. е. 8+2*2+2=14 клеток.

2. Измениться начальное положение Робота, ему надо пойти 7 раз влево, а не 4. 
....
begin
 field(14,2);
 left;
 left;
 left;
 left;
 left;
 left;
...

3. Добавить процедуры закраски и перехода. Перед end. надо добавить их имена.

Задание 4. Составьте узор для шахматной доски. Берём одну линию высотой в 2 клеточки.


Задание 5. Получить полную шахматную доску.

среда, 15 ноября 2023 г.

Оператор ветвления

ПРЕЗЕНТАЦИЯ К УРОКУ

if  условие then
                     begin
              набор команд, которые выполняются если условие верно
                    end
                 else
                  begin
           набор команд, которые выполняются если условие верно
                 end;

НЕПОЛНАЯ ФОРМА

if  условие then
                     begin
              набор команд, которые выполняются если условие верно
                    end;
               

Если после then или else стоит только одна команда, то операторные скобки begin и end не обязательны.


Порядок выполнения оператора If

1. Вычисляется значение условия.
2. Если условие истинно, выполняются команды, следующим за словом then.
Если условие ложно, выполняются команды, следующим за словом else.
3. Управление передается командам, следующим за условным оператором.

ВНИМАНИЕ! Перед else точка с запятой не ставится.

Задание. Компьютер спрашивает, сколько  книг ты читаешь в месяц?  Если больше 2, то на экране появляется надпись «Хорошо!», иначе «Может, стоит читать больше?». 

СОСТАВЛЕНИЕ ПРОГРАММ

Задание 1. Запустите PascalAbcNet

Задание 2. Набрать и выполнить программу из классной работы.

Задание 3.  Компьютер спрашивает, сколько  времени вы сидите в телефоне?  Если меньше  30 минут, то на экране появляется надпись «Хорошо!», иначе «Может, стоит поискать другие  интересные дела?». 

вторник, 14 ноября 2023 г.

Операции над фрагментами изображения

 ПРЕЗЕНТАЦИЯ

ПРАКТИЧЕСКАЯ ЧАСТЬ

Задание 1. Загрузите графический редактор Paint. 

Задание 2. 

  1. Загрузите файл Профессии из папки D:\для занятий\6 класс\ГР. 
  2. Сохраните файл в папку D:\ученики\6А(Б,В,Г) под именем Профессии фамилия.
  3. Распределите картинки рядом с соответствующей профессией.
  4. Сохраните изменения в файле Файл\Сохранить.

Задание 3. 

  1. Загрузите файл Лишняя фигура.bmp из папки D:\для занятий\6 класс\ГР. 
  2. Сохраните файл в папку D:\ученики\6А(Б,В,Г) под именем Лишняя фигура фамилия.
  3. Выполните задание из файла. 
  4. Сохраните изменения в файле Файл\Сохранить.

понедельник, 13 ноября 2023 г.

Максимальный и минимальный элементы массива. Урок 2

ПРЕЗЕНТАЦИЯ К УРОКУ

var t: array[1..7] of integer;
    maxi,mini:...;
begin
 writeln('Введите температуры за неделю '); 
 for var i:=1 to 7 do readln(...);
 
 maxi:=1;
 for var i:=2 to 7 do 
                    if t[i]>t[maxi]  then maxi:=..;

 mini:=1;
 for var i:=2 to 7 do 
                    if t[i]<t[mini]  then mini:=...;
 
 writeln('Макс. темп. ' ,t[maxi], ' в ', ... ,' день' );
 writeln('Мин. темп. ' ,t[mini], ' в ', mini, ' день' );
 writeln(t[maxi]-t[...]);
end.


СОСТАВЛЯЕМ ПРОГРАММЫ

Задание 2. Составьте программу, которая будет находить разность максимальной и минимальной температур.

Задание 3. Учёные проводят исследования. И им необходимо знать сумму максимального и минимального значения температур. Выведите на экран эту сумму.

пятница, 10 ноября 2023 г.

Исполнитель Робота

ПРЕЗЕНТАЦИЯ К УРОКУ


ИНТЕРЕСНЫЕ ФАКТЫ О РОБОТАХ



РЕШЕНИЕ ЗАДАЧ


Задание 1. Запускаем среду программирования PascalABC.NET. Ярлык вы найдёте на Рабочем столе или в меню Пуск Обратите внимание на чёрные буквы net в правом нижнем углу значка 


Задание 2. 

1) Наберите программу Примера 9.5 стр. 56.  

2) Выполните программу. Для выполнения программы можно нажать клавишу F9 на клавиатуре. Если программа записана верно, то у вас появится окно исполнителя Робота. Для выполнения программы нажимайте несколько раз клавишу Пробел или Enter.

Если после нажатия клавиши F9 окно исполнителя Робот не появилось, то у вас, вероятно, ошибка. Сравните программу ту, что в учебнике и у вас, найдите ошибку. Если не нашли сами, попросите помощи у одноклассников.

Задание 3. Измените программу так, чтобы закрасились все клетки по пути следования. 

Для этого добавьте пустые строки перед строкой со словом end. Если не знаете, как добавить пустую строку, попросите помощи у одноклассника, если никто не помог, то просите помощи у учителя.

среда, 8 ноября 2023 г.

Составление алгоритмов обработки строковых величин

 

Задача 1. В строке вида логин:пароль@сервер. Заменить каждый символ пароля *.

Ввод:
masha:123456@qwe.biz
Вывод:
masha:******@qwe.biz


РЕШЕНИЕ ЗАДАЧ
Задача 2. Набрать и выполнить программу для решения классной задачи.

Задача 3. Дана строка вида имя пользователя@логин#пароль/ник Замените каждый символ пароля %


Задача 4.
Разберите решение задачи.
Задача. Дана строка вида логин:пароль@сервер. Посчитайте сколько цифр в пароле.
Ввод:
masha:qwe987@qwe
Вывод:
3

var s:string;
     k {кол-во цифр в пароле},
     m {для перебора символов в строке, обозначает номер символа в строке},
     n1 {номер :},
     n2 {номер @}:integer;
begin
  readln(s);
  n1:=pos(‘:’,s); {определяем номер первого двоеточия :}
  n2:=pos(‘@',s); {определяем номер первой собаки}
  k:=0;
  for m:=n1+1 to n2-1 do
   if (s[m]>=’0’) and (s[m]<=’9’) then k:=k+1 ; {если символ в пароле цифра, то увеличиваем кол-во на 1}
  writeln(k);

end.


Решите задачу. Дана  строка символов. Проверить, является ли строка записью целого числа. Число вводится без пробелов.
Примеры
Ввод:
100010
Вывод:
является
Ввод:
27 арбузов
Вывод:
не является


Задача 5. Дана  строка символов. Проверить, является ли строка записью числа. Число может быть записано с пробелом, например, 100 000, число может быть дробным, например, 5,2

Примеры
Ввод:
100010
Вывод:
является
Ввод:
11,5
Вывод:
является
Ввод:
27 арбузов
Вывод:
не является


ДЗ
Задача. Проверить, является ли строка записью числа римскими цифрами.
Ввод:
XХIV
Вывод:
является
Ввод:
Лето 2000 года
Вывод:
не является

Простые и составные условия

ПРЕЗЕНТАЦИЯ К УРОКУ

Простое условие – это два выражения, связанные одним из знаков отношений:  <, >, <=, >=, =, <>.

Составное условие — это условие, состоящее из двух или более простых условий, соединённых с помощью логических операций: and (и), or (или), not (не).

Примеры:

2 числа положительны - (x>0) and (y>0)
хотя бы одно из чисел положительно - (x>0) or (y>0)
число не кратно 5 - not (x mod 5 =0)

Условие, состоящее из простых условий, соединенных and, верно только тогда, когда верны все простые условия.

Условие, состоящее из простых условий, соединенных  or, верно тогда, когда верно хотя бы одно из простых условий.


ПРАКТИЧЕСКАЯ ЧАСТЬ

Задание 1-3. Играем. У вас будет 3 игры. Результат 3 игры показываем учителю.