ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 11.04.2024
Просмотров: 13
Скачиваний: 0
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
ПРАКТИЧЕСКАЯ РАБОРА. ЦИКЛЫ.
Задание 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, полученные результаты тестирования записать в тетрадь).1000>