Практическая работа № 10 «Решение задач с использованием оператора цикла»

Практическая работа № 10 «Решение задач с использованием оператора цикла»

Задание 1. Установите соответствие между описанием цикла и его типом

1.	P:=1; for i:=1 to 10 do P:=i*P; Writeln (“произведение первых десяти чисел равно = , Р”;	A. С предусловием
2.	P:=1; i:=1; While i<11 Begin end; Writeln (“произведение первых десяти чисел равно = , Р”;	B. С постусловием
3.	P:=1; i:=1; Repeat P:=P*i; i:=i+1; until i>10; Writeln (“произведение первых десяти чисел равно = , Р”;	C. С параметром

Задание 2. Определите значение переменной а после выполнения цикла (Рис1).

Заполните таблицу значений

Задание 3. Найдите ошибки и запишите фрагмент программы без них.

Программа ищет отрицательные элементы последовательности А вычисляет их количество и заменяет их на значение их модулей.

For i:=1 to 50

If A[i]<0

Then A[i]:=absA[i];

K:=K+1;

End