Var i:integer; ch,max_ch:real;

2.1.4 Контрольный пример

Program pr1;

Uses crt;

Var i:integer; ch,max_ch:real;

Begin

Clrscr;

I:=1;

Writeln(‘Введите элемент последовательности #’,I,’(0 для окончания ввода)’);

Readln(ch);

Max_ch:=ch;

While ch<>0 do begin

I:=i+1;

Writeln(‘Введите элемент последовательности #’,I,’(0 для окончания ввода)’);

Readln(ch);

If max_ch<ch then max_ch:=ch;

End;

End;

Writeln(‘Максимальный элемент последовательности=’,max_ch:1:4);

Readkey;

End.

2.1.5. Листинг программы

2.2.4 Контрольный пример

Program pr2;

Uses crt;

Var s:string; n,i:integer;

Begin

Writeln(‘Введите сообщение:’);

Read(s);

N:=length(s);

For I:=1 to n do

Begin

Write(s[i]);

Delay(500);

End;

End.

2.2.5 Листинг программы

2.3.4 Контрольный пример

Program pr3;

Uses crt;

Var s:string;

I:byte;

Begin

Clrscr;

Writeln(‘Введите строку, содержащую начальные(ведущие) пробелы:’);

Read(s);

If s[1]=’ ‘ then

While s[1]=’ ‘ do

Delete(s,1,1);

Write(s);

End.

2.3.5 Листинг программы

Дата добавления: 2015-09-29