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

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

Задание 1.

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

20 20 20 20 20 20 20 20 20 20

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

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

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

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

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

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

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

ЗАДАНИЕ 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 aN

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