Tipo - Learn · Pascal · Типо Лерн · Урок 7

Perfect vision for programming

> Урок 1 > Урок 2 > Урок 3 > Урок 4 > Урок 5 > Урок 6 > Урок 7 (Вы здесь) > Урок 8
Циклические алгоритмы. Обобщение. Примеры реализации
Цикл for ЗАДАЧА: Вывести на экран ряд чисел Фибоначчи, который состоит из n элементов. (0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, …, каждое последующее число равно сумме двух предыдущих чисел.) uses crt; var a,b,c,i,n: integer; BEGIN write('n = '); readln(n); a := 0; write(a,' '); b := 1; write(b,' '); for i:=3 to n do begin write(a+b,' '); c := b; b := a + b; a := c end; readln END.
Цикл while ЗАДАЧА: Найти число под заданным номером в ряду чисел, состоящих из цифр 0 и 5. (Дана последовательность чисел, состоящих только из цифр 0 и 5, в порядке возрастания: 0 5 50 55 500 505 5000 5005 5050 и так далее. Найти k-ое по порядку в этой последовательности число.) uses crt; var k,i,n,m: integer; BEGIN readln(k); n := 0; i := 1; while i < k do begin n := n + 5; m := n; while m > 0 do begin if (m mod 10 <> 5) and (m mod 10 <> 0) then break; m := m div 10; end; if m = 0 then i := i + 1; end; writeln(n); END.
Цикл repeat ЗАДАЧА: Найти одинаковые цифры двух чисел. (Даны два числа. Определить цифры, которые находятся в записи как первого, так и второго числа.) Решение: var x,i:integer; a:real; BEGIN i:=1; writeln('Введите число: '); readln(x); repeat i:=i+1; a:=x/i; until (x mod i)=0; if (a=x) then writeln('Да!') else writeln('Нет'); readln; END.

Letyshops [lifetime]

2018-2020, Илья Любимов.

Автор - Tipo_4ek

По коммерческим предложениям - e-mail