Файл: Сборник-задач-на-Языке-Turbo-Pascal.doc

while NOT(s[i] in Alpha) and (i<=length(s)) do inc(i);

if (i<=length(s)) then inc(wc);

while (s[i] in Alpha) and (i<=length(s)) do inc(i);

Until (i>length(s));

writeln('Количество слов в этом тексте = ', wc);

readln;

end.

Обработка текста: Выделение чисел из текста

--------------------------------------------------------------------------

На входе - текст, на выходе - список чисел

--------------------------------------------------------------------------

Programnumber;

Uses Crt;

const Digits : set of char=['0'..'9'];

var s, d: string;

i: integer;

Вegin

CIrScr;

writeln('Введите текст, в котором есть и цифры:');

readln(s);

writeln('Список чисел в тексте:');

i:=1;

Repeat

while NOT(s[i] in Digits) and (i<=length(s)) do inc(i);

d:=' ';

while (s[i] in Digits) and (i<=length(s)) do

begin

d:=d+s[i];

inc(i);

end;

if length(d)<>0 then writeln(d);

Until (i>length(s));

readln;

Еnd.

Обработка текста: Перевод в маленькие буквы (нижний регистр)

-------------------------------------------------------------------------

На входе - текст, на выходе - текст из маленьких букв

--------------------------------------------------------------------------

Programtext1;

Uses Crt;

var s: string;

function SmallAlpha(ps: string): string;

var i: integer;

begin

for i:=1 to length(ps) do

begin

case ps[i] of

'A'..'Z','А'..'П': inc(ps[i],32);

'Р'..'Я' : inc(ps[i],80);

end;

end;

SmallAlpha:=ps;

end;

Вegin

CIrScr;

writeln('Введите любой текст'); readln(s);

writeln('Этот же текст маленькими буквами:');

writeln(SmallAlpha(s));

readln;

Еnd.

Обработка текста: Перевод в заглавные буквы (верхний регистр)

--------------------------------------------------------------------------

На входе - текст, на выходе - текст из больших букв

--------------------------------------------------------------------------

Programtext2;

Uses Crt;

var s: string;

function BigAlpha(ps: string): string;

var i: integer;

begin

for i:=1 to length(ps) do

begin

case ps[i] of

'a'..'z','а'..'п': dec(ps[i], 32);

'р'..'я' : dec(ps[i], 80);

end;

end;

BigAlpha:= ps;

end;

Вegin

ClrScr;

writeln('Введите любой текст');

readln(s);

writeln('Этот же текст большими буквами:');

writeln(BigAlpha(s));

readln;

Еnd.

Список использованных источников

Лахтин А.С., Искакова Л.Ю. Языки и технология программирования. Начальный курс.

Учебное пособие. Екатеринбург. 1998.

Немнюгин С., Перколаб Л. Изучаем TurboPascal. – СПб.: Питер, 2002.

Шауцукова Л. З. Информатика: Учеб. Пособие для 10-11 кл. общеобразоват. Учреждений. М.: Просвещение, 2002.

55