цикл. Практическая рабора. Циклы

Название	Практическая рабора. Циклы
Дата	03.02.2023
Размер	21.34 Kb.
Формат файла
Имя файла	цикл.docx
Тип	Решение #918326

ПРАКТИЧЕСКАЯ РАБОРА. ЦИКЛЫ.

Задание 1.

Написать программу, выводящую ряд из повторяющихся чисел 20 в виде:

20 20 20 20 20 20 20 20 20 20

Программу сначала записать в тетрадь, потом набрать в среде ABC Паскаль. В тетради ответить на вопрос:

Какой вид цикла в этой программе вы использовали и почему?

Задание 2. Ознакомиться с программой для определения наибольшего общего делителя двух натуральных чисел M и N (НОД), используя цикл с предусловием.

(НОД– это самое большое натуральное число, на которое они делятся нацело.

Решение задачи: Из большего числа вычесть меньшее до тех пор пока числа не будут равны.)

Набрать программу в среде Паскаль и протестировать ее на значениях: M = 32 и N = 24 ; M = 696 и N = 234 .

Результаты тестирования записать в тетрадь и перечислите (в тетради письменно)операторы ,используемые в этой программе.

Program Evklid;

Var M, N: integer;

Begin

Writeln(‘Введите M и N’);

Readln(M, N);

While M > N do

begin

if M>N then M:=M-N

else N:=N-M

end;

Write(‘НОД=’, M);

Readln

End.

ЗАДАНИЕ 3.

Набрать программу нахождения суммы всех положительных целых чисел, не превышающих данного натурального числа N, используя цикл с постусловием. Протестировать программу для N=10 и N=20. Полученные результаты записать в тетрадь.
Program Summa2;

Var S, N, a: integer;

Begin

Writeln(‘Введите N’);

Readln(N);

a:=1; S:=0;

Repeat

S:=S+a;

a:=a+1;

Until a>N

Write(‘сумма =’, S);

Readln

End.

Задание 4.

Написать программу нахождения суммы всех положительных целых чисел, не превышающих данного натурального числа N, используя цикл с параметром (программу записать сначала в тетрадь, а потом набрать в среде Паскаль и протестировать для N = 10 и N=20,полученные результаты тестирования записать в тетрадь)
Задание 5.

Набрать программу подсчета суммы S первых 1000 членов гармонического ряда :

1 + 1/2 + 1/3 + ¼ +…+ 1/N , используя цикл с предусловием. Протестировать программу для N = 10 и N=20, полученные результаты тестирования записать в тетрадь.
Program Summa;

Var S:real;

N: integer;

begin

S:=0; N:=0;

While N<1000 do

begin

N:=N+1;

S:=S+1/N;

end;

writeln(S);

readln;

end.

Задание 6.

Составить программу подсчета суммы S первых 1000 членов гармонического ряда :

1 + 1/2 + 1/3 + ¼ +…+ 1/N , используя цикл с постусловием (программу записать сначала в тетрадь, а потом набрать в среде Паскаль и протестировать для для N = 10 и N=20, полученные результаты тестирования записать в тетрадь).