Оператор Repeat

Repeat – оператор цикла с постусловием.

Общий вид. В отличие от for, оператор repeat (а также while) применяют тогда, когда неизвестно точно, сколько раз будет выполняться тело цикла. Общий вид оператора:

Repeat

оператор1;

оператор2;

– – – – – – – –

until < булевское выражение>;

Замечания:

1. Тело оператора repeat выполняется по меньшей мере один раз. Оператор repeat еще называют циклом с постусловием.

2. Перед until '; ' не ставится.

Вариант № 4

Написать программу, которая получает последовательность из дробных чисел (2.0, 2.5, 3.0, 3.5, 4.0) меньших или равных Y, и после получения каждого числа выводит среднее арифметическое полученной части последовательности. Значение Y должно задаваться во время работы программы. Рекомендуемый вид экрана во время работы программы:

Обработка последовательности дробных чисел. Введите Y -> 5.00

После каждого числа нажимайте < Enter>

-> 2.00
Количество чисел: 1 Сумма: 2.0 Сред.арифметическое: 2.0
-> 2.5
Количество чисел: 2 Сумма: 4.5 Сред.арифметическое: 2.25
-> 3.0
Количество чисел: 3 Сумма: 7.5 Сред.арифметическое: 2.5
Для завершения работы программы нажмите < Enter>.

Тело программы:

Program z7;

var n: integer;

A, i, sum: real;

Begin

write ('введите A');

readln(A);

n: =0;

sum: =0;

i: =1.2;

Repeat

writeln('< enter> ', i);

sum: =sum+i;

n: =n+1;

i: =i+0.2;

until i+0.2< A;

writeln ('среднее арифметическое введенной последовательности: 1.6. Для завершения работы программы нажмите < enter> ');

end.

Блок схема:

Оператор While

While – оператор цикла с предусловием.

Общий вид оператора: While < булевское выражение> do тело цикла.

Работа оператора. Вначале вычисляется булевское выражение, и если оно истинно, то выполняется тело цикла; если оно ложно, то происходит выход из цикла.

Тело цикла – один оператор, как правило, составной. Мы должны позаботиться о том, чтобы булевское выражение в теле цикла на каком-то этапе стало ложным, иначе цикл никогда не закончится. Цикл можно сделать умышленно бесконечным, написав: while true do оператор.

Вариант № 2

1. Написать программу, которая вычисляет среднее арифметическое последовательности дробных чисел (1, 2, 1, 4, 1, 6, 1, 8, …), меньших или равных А. Значение А должно задаваться во время работы программы. Рекомендуемый вид экрана во время работы программы приведен ниже.

Вычисление среднего арифметического последовательности
дробных чисел.

Введите значение А —> 2, 1
Вывод последовательности.

-> 1.2
-> 1.4
-> 1.6
-> 1.8
-> 2.0
Среднее арифметическое введенной последовательности: 1.6. Для завершения работы программы нажмите < Enter>.

Тело программы:

Program z1;

var n: integer;

i, sum, y, sarf: real;

Begin

write ('введите y');

readln (y);

i: =2.0;

sum: =0;

n: =0;

while i< =y do

Begin

n: =n+1;

sum: = sum+i;

sarf: =sum/n;

writeln('< enter> ', i);

write ('количество чисел ', n);

writeln (' сумма: ', sum);

writeln(' среднее арифметическое ', sarf);

i: =i+0.5;

end;

write ('для заданных чисел < enter> ');

end.

Блок-схема:

Лабораторная работа №9

«Массивы»

1. Цель лабораторной работы: научиться правильно описывать различные массивы в разделах описания типов и объявления переменных; уметь инициализировать массивы, заполнять и выводить на экран содержимое массива; научится решать задачи с использованием массивов.