пользователей: 21258
предметов: 10464
вопросов: 177980
Конспект-online
зарегистрируйся или войди через vk.com чтобы оставить конспект.
РЕГИСТРАЦИЯ ЭКСКУРСИЯ

pogromirovanie:
» sooqa
Уася:
» History motherfuckers

Оператор цикла с параметром по возрастающим и убывающим значениям параметра. Правила его использования. Специальный выход из цикла. (Пример программы).

Оператор цикла с параметром

Данный оператор используется в двух формах:

  1. цикл по возрастающим значениям параметра;
  2. цикл по убывающим значениям параметра.

 

В первом случае оператор имеет вид:

 

for I: = N1 to N2 do S;

где I - параметр цикла;

N1, N2 - его начальное и конечное значения;

S - простой или составной оператор ("тело" цикла).

 

В качестве параметра цикла I можно использовать переменную любого простого типа за исключением real, а в качестве N1, N2 - константы, переменные и выражения, совпадающие по типу с параметром цикла I.

          Пример. Дано 5 целых чисел. Найти сумму положительных,

произведение отрицательных и количество нулей.

 

Program h1;

Var s ,p,a,:integer; n,i:byte;

Begin
S:=0; p:=1; n:=0;

For I:=1 to 5 do

Begin

Writeln (‘Введите числo’);

Readln (a);

If a>0 then s:= s+a

else if a <0 then p:= p*a

else n:=n=1;

end;

Writeln (‘s=’, s ,’p=’, p , ‘n=’,n);

End.

Пример. Напечатать в следующем порядке загл. буквы латинского алфавита

              A

B

C

. . .

Z
Var c: char; n: byte;

begin

n:=1;

for c:=`A` to `Z` do

begin

writeln(c:n);

inc(n);

end;
end.


27.01.2014; 06:49
хиты: 328
рейтинг:0
для добавления комментариев необходимо авторизироваться.
  Copyright © 2013-2016. All Rights Reserved. помощь