Содержание
-
Циклические программы
-
Понятие цикла Информатика и ИКТ. 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.
-
Пример 2 Составить программу, которая увеличивает в 2 раза числа от 1 до N. 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.
-
Пример 2
-
Пример 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.
-
Задача Информатика и ИКТ. 9 класс 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) в рубли
-
Задача Информатика и ИКТ. 9 класс Составить программу, которая вычисляет сумму вклада в банке через 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.
-
Задача Информатика и ИКТ. 9 класс
-
Задача Информатика и ИКТ. 9 класс Найти сумму натуральных чисел от 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.
-
Задача Информатика и ИКТ. 9 класс Найти сумму натуральных чисел от 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.
-
Задача Информатика и ИКТ. 9 класс Найти количество чисел от 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.
-
Задача Информатика и ИКТ. 9 класс Найти количество трехзначных натуральных чисел, оканчивающихся на 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.
-
Задача Информатика и ИКТ. 9 класс Составить программу, которая печатает на экране все делители числа 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.
-
Задача Информатика и ИКТ. 9 класс Составить программу, которая выводит на экран трехзначные числа , в которых первая цифра равна последней 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.
-
Задача Информатика и ИКТ. 9 класс Составить программу, которая выводит на экран трехзначные числа , в которых первая цифра равна последней var i:integer; BEGIN write(‘Числа:'); for i:=100 to 999 do if i div 100=i mod 10 then writeln(i); END.
-
Табулирование функции Информатика и ИКТ. 9 класс Задача. Найти значения функции 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 и соответствующие им значения у, найденные в процессе выполнения программы.
-
Табулирование функции Информатика и ИКТ. 9 класс h Задача. Найти множество значений функции В этой задаче начальное и конечное значение х и шаг изменения h вводятся с клавиатуры и могут изменяться при каждом выполнении программы. В данном случае значение х нельзя использовать в качестве параметра цикла (в предыдущей задаче строка for x:=3 to 8 do), так как параметр цикла может изменяться только с шагом 1, а в данной задаче h может быть любым.
-
Табулирование функции Информатика и ИКТ. 9 класс Ввод исходных данных 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.
-
Задача Информатика и ИКТ. 9 класс Составить программу, которая проверяет встречается ли в натуральном числе 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
-
Задача Информатика и ИКТ. 9 класс Вычислить а a:=4; For i:=1 to 5 do a:=2*a-7;
-
Задача Информатика и ИКТ. 9 класс Вычислить а a:=1; For i:=5 downto 2 do a:=a+i;
-
Цикл с предусловием Информатика и ИКТ. 9 класс WHILE DO begin … end; Операторы цикла выполняются до тех пор, пока не станет ложным (условие выполнения цикла)
-
Цикл с предусловием Информатика и ИКТ. 9 класс Найти S S:=1; i:=1; while i
-
Цикл с предусловием Информатика и ИКТ. 9 класс Найти P p:=0; i:=7; while i > 1 do begin p := p + i mod 2; i := i - 1; end; Ответ: P=3
-
Задача Информатика и ИКТ. 9 класс Вычислить P P:=1; i:=3; while i
-
Цикл с постусловием Информатика и ИКТ. 9 класс REPEAT … UNTIL ; Операторы цикла выполняются до тех пор, пока не выполнится (условие выхода из цикла)
-
Цикл с предусловием Информатика и ИКТ. 9 класс n:=2; repeat n:=2*n-1; Until n>10; Найти n
-
Задача Информатика и ИКТ. 9 класс Вычислить s s:=2; i:=1; repeat s:=s+1/i; i:=i-1 until i
-
Алгоритм Евклида Информатика и ИКТ. 9 класс Нахождение НОД (наибольшего общего делимого) Даны 2 числа N и M. Сравнить данные числа и наибольшее из них заменить на разность большего и меньшего. Повторять до тех пор, пока числа не станут равными. НОД = N (M)
-
Алгоритм Евклида Информатика и ИКТ. 9 класс НОД (128,80) = 16
-
Информатика и ИКТ. 9 класс 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. Алгоритм Евклида
Нет комментариев для данной презентации
Помогите другим пользователям — будьте первым, кто поделится своим мнением об этой презентации.