TURBO PASCAL:Учебное пособие. Терёхин В.В. - 48 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

Составители: 

Рубрика: 

48
Примеры:
1)
for i:= 100 downto 1 do p:= p * i;
2)
for c:= 'Я’ downto 'A' do if t = с then Writeln('Входит');
3)
for t:= 300 downto 400 do v:= v - t mod 3;
Как вы заметили, в теле цикла может выполняться толь-
ко один оператор, который записан непосредственно за струк-
турой for .. do. Поэтому, если возникает необходимость, мы
можем воспользоваться составным оператором и объединить в
теле цикла несколько операторов.
Примеры:
1)
for i:= I to 100 do
begin
Writeln(i);
S:= S + i*j ;
Writeln(S);
end;
2)
for h:= 'F’ to 'X
’
do
begin
read(b, c);
1:= 1 + chr(ord(t) - ord(h));
m:= m + chr(ord(c) + ord(h));
writeln (1, m);
end;
Как уже было сказано, счетчиком цикла могут быть пе-
ременные любого порядкового типа, даже если это тип пользо-
вателя.
Пример:
program р9;
type
Month= (Jan, Feb, Mar, Apr, May, Jun, 
        Примеры:
        1)
for i:= 100 downto 1 do p:= p * i;
        2)
for c:= 'Я’ downto 'A' do if t = с then Writeln('Входит');
        3)
for t:= 300 downto 400 do v:= v - t mod 3;
        Как вы заметили, в теле цикла может выполняться толь-
ко один оператор, который записан непосредственно за струк-
турой for .. do. Поэтому, если возникает необходимость, мы
можем воспользоваться составным оператором и объединить в
теле цикла несколько операторов.
        Примеры:
        1)
for i:= I to 100 do
begin
       Writeln(i);
       S:= S + i*j ;
        Writeln(S);
end;
        2)
for h:= 'F’ to 'X’ do
begin
   read(b, c);
   1:= 1 + chr(ord(t) - ord(h));
   m:= m + chr(ord(c) + ord(h));
   writeln (1, m);
end;
        Как уже было сказано, счетчиком цикла могут быть пе-
ременные любого порядкового типа, даже если это тип пользо-
вателя.
        Пример:
program р9;
type
Month= (Jan, Feb, Mar, Apr, May, Jun,
                                                           48

Страницы