четверг, 21 января 2021 г.

Урок 4. РАБОТА С ПЕРЕМЕННЫМИ ЦЕЛОГО ТИПА

 ИГРАЕМ


Задача. Робинзон Крузо провёл на острове f дней. Сколько полных недель и дней он пробыл на острове?

Например, Робинзон Крузо провёл 37 дней. Это составило 5 недель и 2 дня.

ЗАКРЕПЛЕНИЕ МАТЕРИАЛА

Задание 1. Запустить программу PascalABC.NET

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

четверг, 14 января 2021 г.

Урок 3. Оператор присваивания

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

Смотреть

ЗАКРЕПЛЕНИЕ МАТЕРИАЛА

Задание 2.

Прочитайте упр. 1 п. 2 стр. 101. Выполните программу. Попробуй несколько разных значений x, y, z. Если есть вопросы по программе (как, почему…), задай учителю.


var x, y, z,d,k  ,a : real; {описываем переменные, имена переменных берём из задания и добавляю свои для вычисления числителя и знаменателя}


begin


  readln(x, y, z); {команда ввода значений переменных x, y, z}


  d:=2*x-z;{величине c мы присваиваем значение числителя дроби}


  k:=3+y*y;{величине z мы присваиваем значение знаменателя дроби}


  a:=5*d/k;{величине a мы присваиваем результат}


  writeln(a);{выводим результат}


end.


Задание 3.





Составьте программу для вычисления значения выражения


var x, y, c, z, a : real; {описываем переменные, имена переменных берём из задания и добавляю свои для числителя и знаменателя} begin readln(...,...); {команда ввода значений переменных x, y} c:=x+4*..;{вычисляем выражение в числителе и присваиваем величине c} z:=...+x*x;{величине z мы присваиваем значение знаменателя дроби} a:=.../z+...;{величине a мы присваиваем результат} writeln(a);{выводим результат} end.


Пример ввода и вывода

Ввод

2

7


Вывод 10.3333333333333


Результат покажите учителю.

четверг, 24 декабря 2020 г.

Урок 2. Ввод данных и переменные

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

var d,s : real;{описание 2-х переменных вещественного типа}
begin
  writeln('Введите длину и ширину прямоугольника');{выводит надпись Введите...}
  readln(d,s);{ждёт пока вы введёте 2 числа, числа вводятся через Enter}
  write('Площадь прямоугольника равна ' , d*s);{выводит надпись Площадь... и результат}
end.

ЗАКРЕПЛЕНИЕ МАТЕРИАЛА

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


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

среда, 16 декабря 2020 г.

Урок 1. Язык программирования Паскаль: структура программы, команда вывода данных

ЗАКРЕПЛЕНИЕ МАТЕРИАЛА

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

Задание 2.  

а) Выполните программу

begin
  write('Вечор, ты помнишь, вьюга злилась,');
  write('На мутном небе мгла носилась;');
  write('Луна, как бледное пятно,');
  write('Сквозь тучи мрачные желтела,');
  write('И ты печальная сидела —');
  write('А нынче… погляди в окно:');
  write('Под голубыми небесами');
  write('Великолепными коврами,');
  write('Блестя на солнце, снег лежит;');
end.

б) Замените все команды write на writeln. Выполните программу. Что произошло? Почему?

в) Перед строкой  write('Под голубыми небесами');  добавьте строку writeln;  Выполните программу. Что произошло? Какой вывод вы можете сделать?

Покажите результат выполнения учителю.

четверг, 10 декабря 2020 г.

Урок 8. Использование алгоритмических конструкций при составлении алгоритмов для исполнителя Робот

 Задание. Задание cif1. Положение стен и длина коридора могут быть различными.

uses robot;

begin

 task('cif1');

 while freefromright do {пока справа свободно делаем}

                    begin

                     right; {вправо}

                     if wallfromup then paint;{если сверху стена, закрашиваем}

                    end;

 end.  

ТЕСТ


ЗАДАНИЯ

Задание 1. Запустите  программу PascalABC.NET. 

Задание 2. Выполните программу. Установите  размер поля 11х11. Выполните программу и покажите учителю.

uses robot;
procedure row;
begin
  while freefromright  do
  begin 
      paint;
      right;
  end;
 while freefromleft do left;
end;

begin
  field(7,7);
  {перемещение Робота из центра поля в левый верхний угол}
  while freefromleft do left;
  while freefromup do up;
  {выполнение процедуры в цикле до тех пор, пока снизу свободно}
  while freefromdown do begin row; down; end;
  {закрашивание последнего ряда}
  while freefromright do begin paint; right; end;
  paint;
end.



Задание 3. Составьте программу, позволяющую закрасить верхний ряд клеток. Поле Робота размером 9х1.

Нечётные номера компьютеров + 1 компьютер - 





Чётные номера компьютеров -



Задание 4. 

Нечётные номера компьютеров + 1 компьютер. Задание cif3. Закрасить клетки, у которых сверху и снизу есть стена. Положение стен и длина коридора могут быть различными.

Чётные номера компьютеров. Задание cif4. Закрасить клетки, у которых стена только сверху, а снизу стены нет. Положение стен и длина коридора могут быть различными.
 
Задание 5. Составить программу, позволяющую закрасить поле Робота  размером 9х9 с использованием процедуры  или циклов. Ваше решение должно быть  рационально.

Нечётные номера компьютеров + 1 компьютер - 





Чётные номера компьютеров -

ДОМАШНЕЕ ЗАДАНИЕ

параграф  14 п. 1 прочитать и составить 5 вопросов на Верю-не верю по данной теме

четверг, 3 декабря 2020 г.

Урок 7. Алгоритмическая конструкция ветвление

 



ЗАКРЕПЛЕНИЕ МАТЕРИАЛА

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

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

Задание 3-4. Рассмотреть оставшиеся 2 случая для предыдущей задачи





Задание 5. Задание из задачника if3. 


if ... and ... {определяем угол}then 
                  begin
                   гоним Робота в противоположный угол
                  end
                   else {иначе}
                     if .....{рассматриваем ситуацию, когда Робот в другом углу}
                     ...
                 

ДОМАШНЕЕ ЗАДАНИЕ
параграф 12, повторяем параграфы 9-11
*Составляем 5 вопросов со словами Назови, Почему, Объясни,  Предложи, Придумай, Поделись. Выбираем из списка 5 слов. И составляем 5 вопросов по темам параграфов 9-11.



четверг, 26 ноября 2020 г.

Урок 6. Использование условий

Задание. Высота поля Робота  1 клетка. Ширина может изменяться. Довести Робота в правый  угол. По дороге закрасить все клетки.


ЗАКРЕПЛЕНИЕ МАТЕРИАЛА

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

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

Задание 3. Ширина поля Робота 1 клетка. Высота может изменяться. Довести Робота в нижний угол. По дороге закрасить все клетки.