Практическая работа по теме Операторы цикла с предусловием и с постусловием

ПРАКТИЧЕСКАЯ РАБОТА
Тема: Операторы цикла с предусловием и с постусловием
Цели: научить учащихся создавать программы, имеющие циклические структуры с постусловием и с предусловием

Требования к знания и умениям:
Должен знать:
Как создавать программы, имеющие циклические структуры с постусловием и с предусловием



Должен уметь:
Создавать программы, имеющие циклические структуры с постусловием и с предусловием


Критерии оценивания:
Выполнить Задание 1и ответить на контрольные вопросы – оценка 3.
Выполнить Задания 1-2 и ответить на контрольные вопросы – оценка 4.
Выполнить Задания 1-3 и ответить на контрольные вопросы – оценка 5.

Ход работы
Задание 1. Опишите вид экрана во время работы следующей программы. Результат проверьте на компьютере.

{Определение максимального числа последовательности положительных чисел}
Var
a: integer;{ очередное число}
m: integer;{ максимальное число }
Begin
Write(Определение максимального числа’);
Writeln(последовательности положительных чисел.’);
·Вводите после равно числа.’,’Для завершения работы введите ноль.’);
m:=0;
repeat
write (=’);
readln(a);
if a>m then m:=a;
until a<=0;
writeln (Максимальное число:’,m);
Writeln (Для завершения работы программы нажмите ’);
Readln;
End.

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


Продолжить программу
program Summa;
var
n:integer;
S,Z,E: real;
Begin
   writeln ('ввести точность');
   readln (E);
   n:=1; Z:=1/6; S:=0;
While abs(z) >=E do
   begin       S:=S+Z;

Контрольные вопросы
Какие инструкции предназначены для ввода с клавиатуры во время работы программы исходных данных?
Какие инструкции предназначены для вывода на экран монитора сообщений и значений переменных?
Как запустить на исполнение программу?
Чем отличается цикл с предусловием от цикла постусловием?
Дать определение цикла с предусловием.
Дать определение цикла с постусловием.


15