ЛАБОРАТОРНАЯ РАБОТА 7
ПРОГРАММИРОВАНИЕ ЦИКЛОВ С УСЛОВИЕМ
ЦЕЛЬ РАБОТЫ: Овладеть навыками программирования на языке Паскаль алгоритмов циклической структуры с использованием операторов цикла с предусловием и постусловием.
Краткие сведения из теории
Для программирования циклов ПОКА в Паскале существуют оператор цикла с предусловием WHILE и оператор цикла с постусловием REPEAT.
ПРИМЕР 1: Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел.
П Р О Г Р А М М А
PROGRAM PR1;
VAR a: integer;
n: integer;
S: integer;
m: real;
BEGIN
Write (‘введите числа’);
Readln (a);
S:=0;
n:=0;
REPEAT
S:=S+a;
n:=n+1;
UNTIL a<=0;
n:=n-1;
Writeln (‘сумма чисел:’,S);
m:=S/n;
Writeln (‘среднее арифметическое:’,m:6:2);
END.
Пример 2. Вычислить значение функции , если х меняет значения на интевале с шагом h=0.2.
Достарыңызбен бөлісу: | 
