Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
Презентация была опубликована 11 лет назад пользователемs_2.bol.edu54.ru
1 это алгоритмы, предусматривающие многократное повторение одного и того же действия над ноывми данными. Цикл называется арифметическим, если заранее известно количество повторений. =,, шаг Тело цикла
3 1. Вывести на экран N раз свою фамилию и имя. начало N i= 1, N, 1 Петров Петр конец Program familiy; const N=10; Var i: byte; begin For i:=1 to N do Writeln(Петров Петр); Readln; End.
4 2. Вывести на экран последовательные натуральные числа, не превосходящие N. начало N i= 1, N, 1 i конец Program N2; const N=10; Var i: byte; begin For i:=1 to N do Writeln( i ); Readln; End.
5 3. Вывести на экран последовательные натуральные числа, начиная с N до 1. начало N i = N, 1, -1 i конец Program N3; const N=10; Var i: byte; begin For i:=N downto 1 do Writeln( i ); Readln; End.
6 4. Найти сумму последовательных натуральных чисел, не превосходящих N. начало N i = 1, N, 1 S конец Program N4; const N=10; Var i: byte; S:word; begin S:=0; For i:=1 to N do S:=S+i; Writeln( S=, S ); Readln; End. S=S+i S=0
7 5. Найти произведение последовательных натуральных чисел, не превосходящих N. начало N i = 1, N, 1 P конец Program N5; const N=10; Var i: byte; P:word; begin P:=1; For i:=1 to N do P:=P*i; Writeln( P=, P ); Readln; End. P=P*i P=1
8 6. Найти сумму отрицательных чисел, количество чисел N (числа вводятся с клавиатуры) начало N i = 1, N, 1 S конец Program N6; const N=10; Var i: byte; ch, S:integer; begin S:=0; For i:=1 to N do begin writeln(введи Ch); readln(ch); If ch
9 7. Найти сумму четных чисел (начиная с 2), не превосходящих N. начало N Ch=2 Ch
Еще похожие презентации в нашем архиве:
© 2024 MyShared Inc.
All rights reserved.