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


Практическая работа № 11 «Решение задач с использованием оператора цикла»
Цель работы:
Задание 1. Установите соответствие между описанием цикла и его типом
P:=1;
for i:=1 to 10 do
P:=i*P;
Writeln (“произведение первых десяти чисел равно = , Р”; С предусловием
P:=1; i:=1;
While i<11
Begin
end;
Writeln (“произведение первых десяти чисел равно = , Р”; С постусловием
P:=1; i:=1;
Repeat
P:=P*i;
i:=i+1;
until i>10;
Writeln (“произведение первых десяти чисел равно = , Р”; С параметром
596138020510500418592022606000Задание 2. Определите значение переменной а после выполнения цикла (Рис1). Заполните таблицу значений
Задание 3. Найдите ошибки и запишите фрагмент программы без них.
Программа ищет отрицательные элементы последовательности А вычисляет их количество и заменяет их на значение их модулей.
For i:=1 to 50
If A[i]<0
Then A[i]:=absA[i];
5102860196850Рисунок10Рисунок1 K:=K+1;
End
Задание 4 Дополните программу для решения задачи: Одноклеточная амеба делится каждые три часа на две клетки. Определить количество амеб через 3, 6, 9…24 часа
Program ameba;
…..
Repeat
K:=K*2;
i:=i+3;
write (‘количество амеб составит’,k, ‘штук через’,i,’часов’);
until i>24;

Задание 5.
Составить программу для решения задачи. Даны число, натуральные числа a и n. Вычислить: сумму всех натуральных чисел больших а и не превосходящих n

Практическая работа № 11 «Решение задач с использованием оператора цикла»
Цель работы:
Задание 1. Установите соответствие между описанием цикла и его типом
P:=1;
for i:=1 to 10 do
P:=i*P;
Writeln (“произведение первых десяти чисел равно = , Р”; С предусловием
P:=1; i:=1;
While i<11
Begin
end;
Writeln (“произведение первых десяти чисел равно = , Р”; С постусловием
P:=1; i:=1;
Repeat
P:=P*i;
i:=i+1;
until i>10;
Writeln (“произведение первых десяти чисел равно = , Р”; С параметром
596138020510500418592022606000Задание 2. Определите значение переменной а после выполнения цикла (Рис1). Заполните таблицу значений
Задание 3. Найдите ошибки и запишите фрагмент программы без них.
Программа ищет отрицательные элементы последовательности А вычисляет их количество и заменяет их на значение их модулей.
For i:=1 to 50
If A[i]<0
Then A[i]:=absA[i];
5102860196850Рисунок10Рисунок1 K:=K+1;
End
Задание 4 Дополните программу для решения задачи: Одноклеточная амеба делится каждые три часа на две клетки. Определить количество амеб через 3, 6, 9…24 часа
Program ameba;
…..
Repeat
K:=K*2;
i:=i+3;
write (‘количество амеб составит’,k, ‘штук через’,i,’часов’);
until i>24;

Задание 5.
Составить программу для решения задачи. Даны число, натуральные числа a и n. Вычислить: сумму всех натуральных чисел больших а и не превосходящих n