сколько среди них отрицательных.
Цикл с условием
while < условие >
dobegin
< тело цикла >
end;
- Главная
- Разное
- Бизнес и предпринимательство
- Образование
- Развлечения
- Государство
- Спорт
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Религиоведение
- Черчение
- Физкультура
- ИЗО
- Психология
- Социология
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Что такое findslide.org?
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Обратная связь
Email: Нажмите что бы посмотреть
Презентация на тему Программирование циклов (9 класс)
Содержание
- 2. С клавиатуры вводится последовательность чисел, заканчивающаяся нулем,
- 3. program pods4et;var i,n,a:integer;begin i:=1; n:=0;write(‘введите 1-ое
- 4. Программа вычисления суммы 10- ти чисел вводимых
- 5. Программа вычисления суммы 10- ти чисел вводимых
- 6. § 15 упр. 7 -сумма всех натуральных
- 7. § 15 упр. 7 -сумма всех натуральных
- 8. Упр. 8 §15 программа вычисления Х NProgram
- 9. Алгоритм «Евклида» (НОД)Program Evklid; var m,n: integer;
- 10. д/з: § 16 упр 3.
- 11. Наименьшее общее кратное двух чисел:НОК(А,В)=
- 12. Program NOK_ab; var a,b,a1,b1: integer;
- 13. Написать программу: С клавиатуры вводятся n чисел. Подсчитать среднее арифметическое положительных чисел.
- 14. Program srednee; var n,i,sum,kol :integer; begin
- 15. Определите значения переменных x и y после выполнения фрагмента алгоритма
- 16. Ручная проработка ( трассировка фрагмента алгоритма)…A:=2;B:=5;While A
- 17. Скачать презентацию
- 18. Похожие презентации
С клавиатуры вводится последовательность чисел, заканчивающаяся нулем, подсчитать сколько среди них отрицательных.Цикл с условиемwhile < условие > dobegin < тело цикла >end;
Слайд 2 С клавиатуры вводится последовательность чисел, заканчивающаяся нулем, подсчитать
сколько среди них отрицательных.
dobegin
< тело цикла >
end;
Слайд 3
program pods4et;
var i,n,a:integer;
begin
i:=1; n:=0;
write(‘введите 1-ое число=’);
readln(a);
while a0 do
begin
if a
then n:=n+1;i:=i+1;
write(i,’число=’); readln(a);
end;
writeln(‘отрицательных чисел среди ’, i,’=’,n);
end.
Слайд 4 Программа вычисления суммы 10- ти чисел вводимых с
клавиатуры: program summa1; var a,i,sum: integer; begin sum:=0; i:=1; while i
begin write(i, ’- 4islo= ‘); readln(a); sum:=sum+a; i:=i+1; end; writeln (‘sum=‘,sum); end.цикл "пока"
Слайд 5 Программа вычисления суммы 10- ти чисел вводимых с
клавиатуры:
цикл с параметром ( «для»)
program summa1;
var a,i,sum: integer;
begin
sum:=0;
for
i:=1 to 10 do
begin
write(i, ’- 4islo= ‘); readln(a);
sum:=sum+a;end; writeln (‘sum=‘,sum); end.
Слайд 6 § 15 упр. 7 -сумма всех натуральных чисел,
не превышающих заданного натурального числа N
Program summa_N;
Var i, N,
sum: integer;Begin
write (‘N=‘); readln(N);
i:=1;
while i<=N do
begin
sum:=sum+i;
i:=i+1;
end;
writeln (‘sum=‘,sum);
End.
Слайд 7 § 15 упр. 7 -сумма всех натуральных чисел,
не превышающих заданного натурального числа N
Program summa_N;
Var i, N,
sum: integer;Begin
write (‘N=‘); readln(N);
For i:=1 to N do
sum:=sum+i;
Writeln (‘sum=‘,sum);
End.
Слайд 8
Упр. 8 §15 программа вычисления Х N
Program stepen;
Var
x,n,i,rez : integer;
Begin
rez:=1;
write(‘x,n=‘); readln(x,n);
for
i:=1 to n dorez:=rez*x;
writeln (‘rez=‘,rez);
End.
Слайд 9
Алгоритм «Евклида» (НОД)
Program Evklid;
var m,n: integer;
begin
write(‘ m,n=‘);
readln(m,n); while mn do begin if
m > n then m:=m-n else n:=n-m; end; writeln(‘ nod=‘, m); end.Слайд 12 Program NOK_ab; var a,b,a1,b1: integer; nok:real; begin write(‘a,b=‘); readln(a,b);
a1:=a; b1:=b; while ab do begin
if a > b then a:=a-b else b:=b-a; end; nok:=(a1*b1)/a; writeln(‘ nok=‘, nok); end.
Слайд 13
Написать программу:
С клавиатуры вводятся n чисел.
Подсчитать среднее арифметическое положительных чисел.
Слайд 14 Program srednee; var n,i,sum,kol :integer; begin write(‘n=‘); readln(n);
sum:=0; kol:=0; for i:=1 to n do
begin write (i, ‘=4islo=‘); readln(a); if a>0 then begin sum:=sum+a; kol:=kol+1; end; end; writeln(‘srednee arifm. pol. 4isel=‘,sum/kol); end.
Слайд 16
Ручная проработка ( трассировка фрагмента алгоритма)
…
A:=2;
B:=5;
While A
do
begin
A:=A+1;
B:=B+A;
end;Writeln(‘A=‘,A, ‘B=‘, B);
….
