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

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

Цель работы:

Задание 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

Задание 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. Установите соответствие между описанием цикла и его типом

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

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

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

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

For i:=1 to 50

If A[i]<0

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

          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