Циклы с параметром Вложенные циклы Написать 5

Циклы с параметром Вложенные циклы

Написать 5 раз «Привет» program qq; begin writeln('Привет'); writeln('Привет'); end.

Циклы program qq; «Для всех i от 1 до 5 var i: integer; делай …» begin for i: =1 to 5 do writeln('Привет'); end. Если в цикле более одного оператора: for i: =1 to 5 do begin write('Привет'); writeln(', Вася!'); ? Что получится? end; 3

Задача 1. Вывести на экран квадраты и кубы целых чисел от 1 до 8 (от a до b). Особенность: одинаковые действия выполняются 8 раз. начало i : = 1, 8 i 2 : = i * i; i 3 : = i 2 * i; i, i 2, i 3 блок «цикл» конец тело цикла

Программа program qq; var i, i 2, i 3: integer; начальное значение begin переменная цикла конечное значение for i: =1 to 8 do begin i 2 : = i*i; i 3 : = i 2*i; writeln(i: 4, i 2: 4, i 3: 4); end. 5

Цикл с уменьшением переменной Задача. Вывести на экран квадраты и кубы целых чисел от 8 до 1 (в обратном порядке). Особенность: переменная цикла должна уменьшаться. Решение: for i: =8 downto 1 do begin i 2 : = i*i; i 3 : = i 2*i; writeln(i: 4, i 2: 4, i 3: 4); end; 6

Задача 2 Написать программу вычисления суммы натуральных чисел от 1 до N.

Решение задачи 2 Var S, n, i: integer; Begin Writeln(' Введите N '); Read(n); S: =0; For i: =1 to N do S: =S+i; Writeln(' S= ', S); End.

Задача 3 Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней?

Решение задачи 3 Var S, x: real; k: integer; Begin X: =10; S: =0; For k: =1 to 7 do begin S: =S+x; X: =x+x*0. 1; End; Writeln('S=', S: 7: 3); End.

Задача 4 Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько амеб будет через 3, 6, 9, 12, . . . , 24 часа.

Решение задачи 4 Var K, n, s: integer; Begin S: =1; For k: =1 to 8 do begin n: =k*3; S: =s*2; Writeln(n, ' ч. ', 'кол-во амеб -', s); end; End.

Задача 5 У гусей и кроликов вместе 64 лапы. Сколько может быть кроликов и гусей (указать все сочетания)?

Решение задачи 5 Var i, j: integer; Begin For i: =1 to 64 do For j: =1 to 64 do If 4*i+2*j=64 then Writeln('кроликов-', i, ' гусей-', j) ; end.

Задача 6 Составить программу-генератор чисел Пифагора а, b, с (с2 = а 2 + b 2). Числа находить в пределах от 1 до 100.

Решение задачи 6 var a, b , c, k: integer; begin k: =0; for a: =1 to 100 do for b: =1 to 100 do for c: =1 to 100 do if sqr(a)+sqr(b)=sqr(c) then begin writeln(a: 5, b: 5, c: 5); k: =k+1; end; writeln('k=', k); end.

Домашнее задание 1. Напечатать таблицу перевода расстояний в дюймах в сантиметры для значений 10, 11, …, 22 дюйма (1 дюйм = 25, 4 мм). 2. Вычислить число S=S 1+S 2; S 1=1+2+3+. . . +N, S 2=1*2*3*. . . *N. N ввести с клавиатуры. 3. Написать программу поиска двухзначных чисел, обладающих следующим свойством: если к сумме цифр числа прибавить квадрат этой суммы, то получится снова данное число.