Презентация "Циклические программы" (9 класс) по информатике – проект, доклад

Циклические программы

Понятие цикла

Информатика и ИКТ. 9 класс

Цикл – последовательность команд, которая повторяется конечное количество раз.

Виды циклов: Цикл с параметром Цикл с предусловием Цикл с постусловием

Цикл с параметром FOR i:=a to b do begin … end;

Заголовок цикла, где i – счетчик а – начальное значение счетчика b – конечное значение счетчика

Начало цикла Конец цикла

Пример 1

Напечатать на экране числа от 1 до N.

PROGRAM primer; var i,n:integer; BEGIN write(‘n=‘); readln(n); for i:=1 to n do writeln(i); END.

Пример 2

Составить программу, которая увеличивает в 2 раза числа от 1 до N.

PROGRAM primer; var i,n,K:integer; BEGIN write(‘n=‘); readln(n); for i:=1 to n do k:=2*i; writeln(k); END.

PROGRAM primer; var i,n,K:integer; BEGIN write(‘n=‘); readln(n); for i:=1 to n do begin k:=2*i; writeln(k); end; END.

Пример 3

Напечатать на экране таблицу квадратов чисел от 1 до 10.

PROGRAM primer; var i,K:integer; BEGIN for i:=1 to 10 do begin k:=i*i; writeln(i,’ в квадрате=’,k); end; END.

Задача

PROGRAM primer; var i:integer; d,k:real; BEGIN write(‘Введите курс $=‘); readln(d); writeln(‘Таблица перевода:’); for i:=50 to 100 do begin k:=i*d; writeln(i,’ руб. =‘,k,’$’); end; END.

Таблица перевода долларов (от 50 до 100) в рубли

Составить программу, которая вычисляет сумму вклада в банке через N лет, если первоначальный взнос - М рублей, а процентная ставка - 8,5% годовых.

var i,n:integer; m:real; BEGIN write(‘Вклад='); readln(m); write(‘Годы='); readln(n); for i:=1 to n do begin m:=m+m*0.085; writeln(i,'–й год: вклад=',m:6:2,’рублей’); end; END.

Найти сумму натуральных чисел от 1 до N.

PROGRAM summa; var i,n,S:integer; BEGIN write(‘n=‘); readln(n); S:=0; for i:=1 to n do S:=S+i; writeln(‘S=’,S); END.

Найти сумму натуральных чисел от 1 до N, кратных 5.

PROGRAM summa; var i,n,S:integer; BEGIN write(‘n=‘); readln(n); S:=0; for i:=1 to n do if i mod 5=0 then S:=S+i; writeln(‘S=’,S); END.

Найти количество чисел от 1 до N, кратных 15.

PROGRAM z1; var I,N,k:integer; BEGIN write(‘N=’); readln(N); k:=0; for i:=1 to N do if I mod 15=0 then k:=k+1; writeln(‘k=‘,k); END.

Найти количество трехзначных натуральных чисел, оканчивающихся на 7.

PROGRAM krat7; var i,k:integer; BEGIN k:=0; for i:=100 to 999 do if i mod 10=7 then k:=k+1; writeln(‘k=’,k); END.

Составить программу, которая печатает на экране все делители числа N.

PROGRAM krat7; var i,n:integer; BEGIN write(‘n=‘); readln(n); writeln(‘делители n:’); for i:=1 to n do if n mod i=0 then writeln(i); END.

Составить программу, которая выводит на экран трехзначные числа , в которых первая цифра равна последней

var i,a,b:integer; BEGIN write(‘Числа:'); for i:=100 to 999 do begin a:=i div 100; b:=i mod 10; if a=b then writeln(i); end; END.

var i:integer; BEGIN write(‘Числа:'); for i:=100 to 999 do if i div 100=i mod 10 then writeln(i); END.

Табулирование функции

Задача. Найти значения функции y=x2+2 для х от 3 до 8 с шагом 1. PROGRAM tab; var x,y:real; BEGIN for x:=3 to 8 do begin y:=x*x+2; writeln('x=',x:6:2,' y=',y:6:2); end; readln; END. В результате выполнения программы на экране будут напечатаны значения х от 3 до 8 и соответствующие им значения у, найденные в процессе выполнения программы.

h

Задача. Найти множество значений функции

В этой задаче начальное и конечное значение х и шаг изменения h вводятся с клавиатуры и могут изменяться при каждом выполнении программы. В данном случае значение х нельзя использовать в качестве параметра цикла (в предыдущей задаче строка for x:=3 to 8 do), так как параметр цикла может изменяться только с шагом 1, а в данной задаче h может быть любым.

Ввод исходных данных

PROGRAM tab; var x,y,a,b,h:real; n,i:integer; BEGIN write('a='); readln(a); write('b='); readln(b); write('h='); readln(h); n:=round((b-a)/h); x:=a; for i:=1 to n+1 do begin y:=x*x/(sin(x)+3); writeln('x=',x:6:2,' y=',y:6:2); x:=x+h; end; END.

Присваивает переменной Х начальное значение отрезка.

Заголовок цикла, в котором параметр i является счетчиком, указывающим сколько раз на данном отрезке нужно вычислить значение У (n+1, т.к. включая концы отрезка)

Вычисляет количество точек n на отрезке. Round – округляет значение выражения в скобках

Вычисляет значение функции У.

Выводит на экран значение Х и соответствующее ему значение У

Увеличивает значение Х на шаг h.

Составить программу, которая проверяет встречается ли в натуральном числе N цифра 5.

var n,x,a,k:integer; BEGIN write('Введите целое число ='); readln(n); x:=n; k:=0; repeat a:=x mod 10; x:=x div 10; if a=5 then k:=k+1; until x

Вычислить а a:=4; For i:=1 to 5 do a:=2*a-7;

Вычислить а a:=1; For i:=5 downto 2 do a:=a+i;

Цикл с предусловием

WHILE DO begin … end;

Операторы цикла выполняются до тех пор, пока не станет ложным (условие выполнения цикла)

Найти S S:=1; i:=1; while i

Найти P p:=0; i:=7; while i > 1 do begin p := p + i mod 2; i := i - 1; end; Ответ: P=3

Вычислить P P:=1; i:=3; while i P:=1*(8 div 5)=1 Ответ: P=1

Цикл с постусловием

REPEAT … UNTIL ;

Операторы цикла выполняются до тех пор, пока не выполнится (условие выхода из цикла)

n:=2; repeat n:=2*n-1; Until n>10;

Найти n

Вычислить s s:=2; i:=1; repeat s:=s+1/i; i:=i-1 until i

Алгоритм Евклида

Нахождение НОД (наибольшего общего делимого) Даны 2 числа N и M. Сравнить данные числа и наибольшее из них заменить на разность большего и меньшего. Повторять до тех пор, пока числа не станут равными. НОД = N (M)

НОД (128,80) = 16

PROGRAM nod; var n,m:integer; BEGIN Write(‘Введите 2 числа:’); readln(n,m); While nm do if n>m then n:=n-m else m:=m-n; Writeln(‘НОД=’,n); END.