Практическая работа по теме Операторы цикла с предусловием и с постусловием
ПРАКТИЧЕСКАЯ РАБОТА
Тема: Операторы цикла с предусловием и с постусловием
Цели: научить учащихся создавать программы, имеющие циклические структуры с постусловием и с предусловием
Требования к знания и умениям:
Должен знать:
Как создавать программы, имеющие циклические структуры с постусловием и с предусловием
Должен уметь:
Создавать программы, имеющие циклические структуры с постусловием и с предусловием
Критерии оценивания:
Выполнить Задание 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