Практическая работа №19 Тема: Цикл «Пока».

Сборник практических работ по программированию в Паскале Практическая работа  №19 Тема: Цикл  «Пока».  Задача №17 «Сумма квадратов чисел» Цель:  Закрепить принцип работы оператора цикла «ПОКА».  Продолжить формирование навыков программирования циклических алгоритмов с оператором в среде TP. нача ло х:=1; S:=0 x< = 20 Рассмотрим задачу «Сумма квадратов чисел» Условие задачи: Составить программу, которая вычисляет квадраты  чисел от 1 до 20, находит их сумму и выдаёт её  на  экран. Определим входные данные: N­конечное число. Промежуточные данные: У­ квадрат числа х. Определим начальные значения:  x=1,  S=0,  условие цикла:  x<=20 и шаг =1. Результат: S ­ сумма квадратов чисел. Программа: Program  z17; uses crt; var x,N,Y,S:integer; begin clrscr; x:=1; S:=0; writeln ('N='); readln (N); while x<= 20 do begin Y:=x*x; S:=S+Y; x:=x+1; end;  writeln ('S=', S:8);   end. Квадрат числа Y:=X* S:=S+ Х:=Х+ X Y 1 Сумма чисел S кон ец Шаг Задания 1) Запустить программу Pascal 2) Ввести программу Z17.  3) Произвести компиляцию. Запустить программу.  4) Получить ответы. Записать их в тетрадь. 5) Внести в программу изменения  для вычисления суммы чисел. 6) Произвести компиляцию. Запустить программу.  7) Получить ответы. Записать ответ в тетрадь. 8) Сохраните программу в файле «Summa kvadratov». служебные слова:  while (пока), То (до), Do (делать)  параметры цикла: х – счётчик цикла;  1 ­ начальное и N­конечное значение параметра  цикла. S – сумма,  начальное значение суммы  S =0 Дополнительные задания Внести   в   программу   изменения     для   вычисления  произведения 9) чётных чисел от 1 до 20. Миронова С.П., КГУ «ОСШ. №3 им. Ю.А. Гагарина» служебные слова:  while (пока), То (до), Do (делать)  параметры цикла: х – счётчик цикла;  1   ­   начальное   и  N­конечное   значение   параметра цикла.  P  –   произведение,   начальное   значение произведения P=1. Страница 1 Сборник практических работ по программированию в Паскале 10) Произвести компиляцию. Запустить программу.  11) Получить ответы. Записать ответ в тетрадь. 12) Сохраните программу в файле «Proizvedenie chisel». Миронова С.П., КГУ «ОСШ. №3 им. Ю.А. Гагарина» Страница 2