цикл. Практическая рабора. Циклы
![]()
|
ПРАКТИЧЕСКАЯ РАБОРА. ЦИКЛЫ. Задание 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 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> |