Определение длины строки

Program primer 8;

Uses Crt;

var a, b: string[25];

Begin

Clrscr; В результате получим: 8 19.

a:='computer';

b:='calculating machine';

writeln(length(a), ' ', length(b));

readln;

End.

Преобразование строк

Программа, определяющая и сравнивающая в введённом с клавиатуры числе количество чётных и нечётных цифр.

Program primer 9;

Uses Crt;

var a: string[5];

b: string[1];

i, k, s, sn, x: integer;

Begin

Clrscr;

s: =0; sn: =0;

write('Задайте число'); readln(a);

for i:=l to length(a) do

begin

b:=copy(a,i,l);

val(b,x,k);

if x mod 2=0 then s:=s+l else sn:=sn+l;

end;

if s>sn then writeln ('Четных цифр больше');

if s<sn then writeln ('Нечетных цифр больше');

if s=sn then writeln ('Одинаково');

readln;

End.

Программа, заменяющая в предложении одно слово на другое.

Program Replace;

Uses Crt;

var Text, Slovol, Slovo2: String;

i, DlinaSlova, P: Integer;

Begin

CIrScr;

write(‘Введите строку:');

readln(Text);

write('Kaкoe слово заменить? '); readln(Slovol);

write('Haкакое слово заменить? '); readln(Slovo2);

writeln;

writeln('0 т в е т: ');

writeln('Исходный текст: ', Text);

DlinaSlova:= Length(Slovol);

P:= Pos(Slovol,Text); {номер позиции, с которой в строке Text в первый раз встречается подстрока Slovol}

while P>0 do {цикл продолжается до тех пор, пока подстрока Slovol встречается в строке Text}

begin

Delete(Text,P, DlinaSlova); {удаление подстроки Slovol, начинающейся с позиции P, из строки Text}

Insert(Slovo2, Text, P); {вставка подстроки Slovo2 в строку Text с позиции P}

P:=PostSlovol, Text);{номер позиции, с которой подстрока Slovol встречается в строке Text в очередной раз}

end;

writeln('Hoвый текст: ', Text);

readln;

End.

Программа подсчета различных букв в слове.

Program schot;

Uses Crt;

var s: string;

r: real;

i, j, n: integer;

Вegin

CIrScr;

r:=0;

readln(s);

for i:=1 to length(s) do

begin

n:=0;

for j:=1 to length(s) do

if s[i]=s[j] then inc(n);

r:=r+1/n;

end;

writeln('количество различных букв = ', r:1:0);

readln;

Еnd.

Программа определяющая, является ли слово "перевертышем".

{Например, "шалаш", "казак" - перевёртыш}.

Program kazak;

Uses Crt;

var s1, s2: string;

i: integer;

Вegin

CIrScr;

readln(s1); s2:='';

for i:=length(s1) downto 1 do

s2:=s2+s1[i];

if s1=s2 then writeln(s1, ' - перевертыш')

else writeln(s1, ' - не перевертыш');

readln;

Еnd.

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

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

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

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

Program slovo1;

Uses Crt;

const Alpha: set of char=['A'..'Z', 'А'..'П', 'Р'..'Я', 'a'..'z', 'а'..'п', 'р'..'я'];

var s, t: string;

i: integer;

Вegin

CIrScr;

writeln('Введите текст'); readln(s);

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

i:=1;

Repeat

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

t:=' ';

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

begin

t:=t+s[i];

inc(i);

end;

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

Until (i>length(s));

readln;

Еnd.

Обработка текста: Подсчет количества слов в тексте

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

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

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

Program slovo2;

Uses Crt;

const Alpha: set of char=['A'..'Z', 'А'..'П', 'Р'..'Я', 'a'..'z', 'а'..'п', 'р'..'я'];

var s: string;

i: integer;

wc: integer;

Вegin

CIrScr;

writeln('Введите текст'); readln(s);

i:=1; wc:=0;

Repeat

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.

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

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

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

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

Program number;

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.

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

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

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

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

Program text1;

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.

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

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

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

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

Program text2;

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.

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

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