Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Метод сортировки трёх строк по алфавиту.
Program primer 2;
Uses crt;
var a, b, c, d: string [20];
Begin
Clrscr;
writeln ('Введите 1-е слово');
readln (a);
writeln ('Введите 2-е слово');
readln (b);
writeln ('Введите 3-е слово');
readln (с);
d: = ‘ ‘;
If a > b then
begin
d:= a;
a:= b;
b:= d;
end;
If b > с then
begin
if с < a then
begin
d = a;
a = c;
с = d;
end;
d:= b;
b:= c;
c:= d;
end;
writeln (a);
writeln (b);
writeln (c);
readln;
End.
Объединение строк
Составление предложения.
Program primer 3;
Uses Crt;
Var
a, b, c, d: string[30];
Begin
Clrscr; В результате получим:
a:='To be'; To be or not To be That is the question
b: = 'or not';
c:='That is the question';
d:=a+b+a;
writeln (d);
writeln (c);
readln;
End.
Сцепление строк.
Program primer 4;
Uses Crt;
Var
a, b, c, d, 1, m, n, p: string [10]; В результате работы этой программы на
экране появятся следующие слова
Begin
Clrscr; парад паром сом сад
а:='пар';
b:='ад';
с:='ом';
d:='c';
l:=a+b; m:=a+c; n:=d+c; p:=d+b;
writeln (1, ' ', m, ' ', n, ' ', p);
readln;
End.
Копирование подстроки
Составление простых слов из более сложного.
Program primer 5;
Uses Crt;
Var
a, b, c, d, e: string [15];
Begin
Clrscr;
a:='стихотворение'; В результате работы этой программы получим:
b:=copy(a, 1, 4); стих, тихо, творение, вор
c:=copy(a, 2, 4);
d:=copy(a, 6, 8);
e:=copy(a, 7,3);
writeln (b, ', ', с, ', ', d, ', ', е);
readln;
End.
Вставка, замена и удаление подстроки
Преобразование слова лево в слово компот.
Program primer 6;
Uses Crt;
Var
a, b,c,d: string [15];
Begin
Clrscr;
a:='лекарство';
delete(a, 3, 5);
writeln(a); {лево}
delete(а, 3, 1);
b:='т';
insert(b, a, 3);
writeln(a); {лето}
с:='кот';
d:='мпo';
insert(d, с, 3);
writeln(c); {компот}
readln;
End.
Поиск подстроки
Поиск слов в предложении.
Program primer 7;
Uses Crt;
Var
a, b, с: string [100];
m, n: integer;
Begin
Clrscr;
a ='Жил-был в норе под землей хоббит';
b:='был';
с:='хоббит';
m:=pos (b, a);
n:=pos (с, а);
writeln (b, ' - ', m); {был - 5}
writeln (с, ' - ', n); {хоббит – 27}
readln;
End.
Дата публикования: 2015-01-04; Прочитано: 189 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!