Программы работы со строками

1. Программа конкатенации строк:

Program Concatenaсia;

var s,s1,s2: string; //объявляем переменные

begin

Writeln('Введите слова');

readln(s1,s2);

s:=Concat(s1,s2);

Writeln('Полученное слово = ',s);

end.

2. Программа вычисления длины строки (количество символов в строке):

Program DlinaStroki;

var s: string; L:integer; //объявляем переменные

begin

writeln('введите строку');

readln(s);

L:= Length(s);

Writeln(’Длина строки = ’,L);

end.

3. Программа вырезания n символов из строки s, начиная с позиции i, с помощью функции Copy(s,i,n):

Program VyrezSimvol;

var s,s1: string; i,n:integer; //объявляем переменные

begin

Writeln('введите слово');

readln(s1);

Writeln('введите с какого символа и сколько их вырезать');

Write('i = '); read(i);

Write('n = ');read(n);

s1:=Copy(s,i,n); // смотри раздел Стандартные процедуры и функции

Writeln('полученное слово = ',L);

end.

4. Программа удаления из введённой строки s, первых n символов.

Program UdalenieSimv;

uses crt;

var s:string;n:integer;

begin

writeln('Введите строку и количество удаляемых символов');

readln(s,n);

delete(s,1,n);

writeln('после удаления получилось - ', s);

end.

5. Программа поиска символа в строке:

Program PoiskSimvola;

var s,si:string; i:integer; f:boolean; //объявляем переменные

begin

writeln('Введите строку');

readln(s); //считываем строку

writeln(' Введите символ');

readln(si); //обозначаем искомый символ si

f:=false; //изначально считаем, что символа в строке нет

for i:=1 to length(s) do

begin //функцией copy проверяем совпадают ли

if copy(s,i,1)= si then f:=true //вырезаемые символы с искомым

end; //тогда логическая функция f примет значение true

writeln(f); //выводим результат

end.

6. Программа вычисления количества слов в строке;

Program KolichSlov;

var s: string;

n,k: integer;

begin

writeln('ââåäèòå ñòðîêó ');

readln(s);

for n:=1 to length(s) do

begin

if (s[n]=' ') then

k:=k+1;

end;

writeln('Â ïðåäëîæåíèè ',k+1,' ñëîâ');

end.

7. Программа записи слова в обратном порядке (перевёртыш):

Program Perevorot;

var c,c1:string;

i:integer; //объявляем переменные

begin

writeln('Введите слово');

readln(c);

for i:=length(c) downto 1 do

c1:=c1+copy(c,i,1);

writeln(‘перевёртыш = ’,c1);

end.