Задачи. Циклы на языке Паскаль.

REPEAT <,тело цикла>, UNTIL  <,условие>,, Цикл с пост условием WHILE  <,условие>, DO         begin                  <,тело цикла>,          end, Цикл с пред условием for i:= 1 to n do Цикл с параметром Циклы в Паскале

Благодаря этой рекламе сайт может продолжать свое существование, спасибо за просмотр.

Задача №1 program example, var    sum:real,    n:real, BEGIN    sum:=0,    n:=1,    while n <,= 30 do         begin            sum:=sum+n,            n:=n+0.5,          end,    writeln(Сумма равна: ,sum), END. Ответ: Задача: вычислить сумму ряда 1+1.5+2+2.5+3+3.5+ .. + 30 Задача №2 Program Summa, Var   S:real,       N:integer, Begin   S:=0,N:=0,   repeat     N:=n+1,     S:=s+1/n   Until n>,1000,   Writeln(s),   Readln End. Ответ: Подсчета суммы первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N

Задача №3 Var  I, n,x,sum: integer, Begin   Write(Введите N=),   Readln(n),   Sum:=0,   For I:=1 to n do    Begin     Write(Введите число),     Readln(x),     if x<,0 then sum:=sum+x   end,     writeln(сумма =, sum),   End. Ответ: Вводится последовательность из N целых чисел. Найти сумму всех отрицательных чисел.

Пример 1. Вычислить наибольший общий делитель двух натуральных чисел А и В.    Воспользуемся для этого алгоритмом Евклида: будем уменьшать каждый раз большее из чисел на величину меньшего до тех пор, пока оба числа не станут равны. Program NOD, Var  a,b:integer, Begin   Write (введите два натуральных числа)   Readln(a,b)   While a<,>,b do If a>,b then a:=a-b else b:=b-a,   Writeln(НОД=,a), End.

Пример 2 . Начав тренировки, лыжник в первый день пробегал 10 км. Каждый следующий день он увеличивал длину пробега на 10% от предыдущего дня. Определить в какой день он пробежит больше 20 км, в какой день суммарный пробег за все дни превысит 100км. Program prim_10, Var S:real,     N:integer, Begin   S:=10,N:=1,   While s<,20 do    Begin     N:=n+1,     S:=s*0.1   End,   Writeln( дневной пробег больше 20 км на ,n, день),   S:=10,N:=1,   While s<,100 do    Begin     N:=n+1,     S:=s+s*0.1 {накапливаем суммарный пробег}   End,   Writeln(за ,n, пробежит больше 100 км), End.

Вывести на экран ряд чисел Фибоначчи, состоящий из n элементов. Числа Фибоначчи – это элементы числовой последовательности 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, …, в которой каждое последующее число равно сумме двух предыдущих. Числа Фибоначчи program fib_01, var i, ch, ch1, ch2, n :integer, {i - счетчик чисел Фибоначчи,n - количество чисел Фибоначчи, ch - число Фибоначчи,ch1, ch2 - вспомогательные переменные алгоритма поиска чисел Фибоначчи} begin write(n=), readln(n), ch:=0, {алгоритм поиска чисел Фибоначчи} ch1:=1, for i:=1 to n do begin ch2:=ch1, ch1:=ch, ch:=ch1+ch2, write (ch:5) {надо вывести на экран все числа Фибоначчи, поэтому оператор вывода находится внутри цикла} end, end.

Домашнее задание Дано натуральное число. Вывести на экран все натуральные числа до заданного включительно. 2. Вывести на экран кубы чисел от A до B.

№1 program FromOneToN, var i, n: word, begin readln(n), for i := 1 to n do begin write(i, ), end , end. №2 var a, b: integer, begin write(A: ), readln(a), write(B: ), readln(b), if a <, b then for a := a to b do writeln (a * a * a), end.