Вложенные циклы. Написать 5 раз «Привет» program qq; begin writeln('Привет'); end. - презентация

1 Вложенные циклы

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

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

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

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

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

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

8 Решение задачи 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.

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

10 Решение задачи 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.

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

12 Решение задачи 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.

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

14 Решение задачи 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.

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

16 Решение задачи 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.

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