close

Вход

Забыли?

вход по аккаунту

код для вставкиСкачать
Операторы цикла
Виды циклов
Арифметические
(количество
повторов
известно заранее)
Итерационные
(количество
повторов заранее
неизвестно)
Операторы Арифметического цикла
•for i := 1 to n do (счетчик
увеличивается на 1 от
одного до n)
•for i := n to 1 do (счетчик
уменьшается на 1 от n до
одного)
Задача. Вычислим сумму первых N натуральных чисел.
Вывести на экран все строчные буквы латинского
алфавита в обратном порядке
Выведите на экран квадраты всех натуральных
чисел, меньших данного N
program summa;
uses crt;
var
i, n, s: integer;
begin
clrscr;
write (‘Введите натуральное число');
readln (n);
for i:= 1 to n-1 do
begin
s:=i*i;
writeln (s);
end;
readln;
end.
РЕШИТЬ ЗАДАЧИ
• 1. Вычислить сумму всех
натуральных чисел в
диапазоне [a; b], где а и в
– целые числа.
• 2. Выведите на экран
значения функции у=х^2
в диапазоне [a; b], с
шагом h.
program summa;
uses crt;
var
a, b, x, y, h, i: integer;
begin
clrscr;
write ('Введите интервал и шаг');
readln (a, b, h);
for i:= a to b-h do
begin
a:=a+h;
i:=a;
x:=i;
y:=x*x;
writeln (y);
end;
readln;
end.
Итерационные циклы
•
•
•
1.Цикл с предусловием (оператор будет
выполняться пока выражение истинно)
While выражение do оператор
Оператор цикла с предусловием
выполняет действия заранее
неизвестное число раз. Выход из цикла
осуществляется, если некоторое
логическое выражение или его
результат окажется ложным. Так как
верность логического выражения
проверяется в начале, тело цикла
может не выполнится ни одного разу.
•
•
2.Циклы с постусловием (операторы
выполняются до тех пор пока
выражение ложно)
Repeat оператор 1, оператор 2 until
выражение
Подсчитать количество цифр в целом числе
Int - Возвращает целую часть параметра.
program count;
uses crt;
var
a, n: integer;
b, c: real;
begin
clrscr;
write ('Введите целое число');
readln (a);
b:=int(a/10);
n:=1;
while b>0 do
begin
n:=n+1;
b:=int(b/10);
end;
write ('Количество цифр в числе=', n);
readln;
end.
Вводим число 125
а=125
b = (125\10)=12
n=1
12>0
N=1+1=2
b=(12\10)=1
1>0
N=2+1=3
b=(1\10)=0
0>0 – нет, конец цикла
1/--страниц
Пожаловаться на содержимое документа