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

Презентация:

Advertisements

Похожие презентации

Практическое занятие 11 Циклы со счетчиком. Задача 1 Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму.

Advertisements

Программирование на языке Паскаль. 3 Циклы Цикл – это многократное выполнение одинаковой последовательности действий. цикл с известным числом шагов цикл.

1 Программирование на языке Паскаль Тема 4. Циклы.

Цикл со счетчиком. Циклы Цикл – это многократное выполнение одинаковой последовательности действий. цикл с известным числом шагов цикл с неизвестным числом.

1 Тема 4. Циклы на языке Паскаль.

1 Программирование на языке Паскаль Тема 2. Ветвления.

1 Программирование на языке Паскаль Циклы. 2 Цикл – это многократное выполнение одинаковой последовательности действий. цикл с известным числом шагов.

1 Программирование на языке Паскаль 1. Циклы с параметром.

Цикл. Виды циклов.

1 Программирование на языке Паскаль Тема: Циклы по счётчику. © К.Ю. Поляков,

Основы программирования Pascal ABC. 2 Циклы Цикл – это многократное выполнение одинаковой последовательности действий. цикл с известным числом шагов цикл.

1 Программирование на языке Паскаль © К.Ю. Поляков, ВведениеВведение 2.ВетвленияВетвления 3.Сложные условияСложные условия 4.ЦиклыЦиклы 5.Циклы.

Тема урока: Деловая игра С А В Д Цикл с параметром Цикл с параметром – это циклическая структура, когда тело цикла выполняется, если значение параметра.

ЦИКЛ «ДО» i:=1,n действия … FOR i:=1 TO n DO Begin Действия End; …

Циклические конструкции 1. Цикл с предусловием предусловием 2. Цикл с постусловием постусловием 3. Цикл с параметром параметром 4. Вложенные циклы Вложенные.

Операторы цикла © М.Е.Макарова

1 Когда известно число повторений одного и того же действия, удобно использовать цикл с параметром Цикл с параметром (определенный цикл)

Организация повторений в Паскале. i,1,n Действие 1 Действие 2 i,1,n Действие 1 Действие 2 FOR i:=1 TO N DO BEGIN действие 1; действие 2; END; FOR i:=1.

Тема: «Циклы». Содержание Цикл с параметром Структура цикла Операторы Решение задачи Цикл с предусловием Структура цикла Операторы Решение задачи Цикл.

Циклические операции. Цикл – повторное выполнение последовательности команд (тела цикла) по некоторому условию. Для организации цикла можно использовать.

Транксрипт:

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

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

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; Что получится? ?

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

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 Цикл с уменьшением переменной Задача. Вывести на экран квадраты и кубы целых чисел от 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

Задача 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=S1+S2; S1= N, S2=1*2*3*...*N. N ввести с клавиатуры. 3. Написать программу поиска двухзначных чисел, обладающих следующим свойством: если к сумме цифр числа прибавить квадрат этой суммы, то получится снова данное число.