Program LexOrder;

Тест

Тест

Program TurnOver;

Система тестов

N теста	Данные	Результат
	Slovo = ''казак''	Otvet = ''Перевертыш''
	Slovo = ''коза''	Otvet = ''Не перевертыш''

Uses Crt; Var Slovo: String; Dlina, i: Integer; Flag: Boolean;BEGIN ClrScr; Write('Введите слово: '); ReadLn(Slovo); Dlina:= Length(Slovo);{Сравниваются пары букв: первая буква с последней, вторая буква с предпоследней и т.д.} i:=1; Flag:= TRUE; While (i <= Dlina/2) and Flag do {цикл до первой несовпавшей } begin {пары букв (если такая есть)} Flag:= (Slovo[i]=Slovo[Dlina-i+1]); i:= i+1 end; WriteLn; Write('О т в е т: слово ', Slovo); If Flag then WriteLn(' — перевертыш. ') else WriteLn(' — не перевертыш'); ReadLnEND.

Пример 3. B заданном тексте одно заданное слово везде заменить на другое заданное слово такой же длины.

Данные	Результат
Текст	Слово1	Слово2
''2sinx+siny''	''sin''	''cos''	''2cosx+cosy''

Эта программа, использующая стандартную функцию Pos, не требует, чтобы длины заменяемого и вставляемого слов были одинаковыми.

Program Replace; Uses Crt; Var Text, Slovo1, Slovo2: String; i, DlinaSlova, P: Integer;BEGIN ClrScr; Write('Введите строку: '); ReadLn(Text); Write('Какое слово заменить? '); ReadLn(Slovo1); Write('На какое слово заменить? '); ReadLn(Slovo2); WriteLn; WriteLn('О т в е т: '); WriteLn('Исходный текст: ', Text); DlinaSlova:=Length(Slovo1); DlinaSlova:=Length(Slovo1); P:=Pos(Slovo1,Text); {номер позиции, с которой в строке Text } {в первый раз встречается подстрока Slovo1 } While P>0 do {цикл продолжается до тех пор,пока подстрока} {Slovo1 встречается в строке Text } begin Delete(Text, P, DlinaSlova); {удаление подстроки Slovo1, начинаю-} {щейся с позиции P, из строки Text } Insert(Slovo2, Text, P); {вставка подстроки Slovo2 } { в строку Text с позиции Р} P:=Pos(Slovo1, Text); {номер позиции, с которой подстрока Slovo1} {встречается в строке Text в очередной раз} end; WriteLn('Новый текст: ', Text); ReadLnEND.

Пример 4. Заданную последовательность слов переупорядочить в алфавитном порядке (то есть выполнить лексикографическое упорядочение).

Данные	Результат
Words=(''стул'', ''гора'', ''яма'', ''стол'')	Words=("гора", "стол", "стул", "яма")

Uses Crt; Var Words: Array[1..10] of String; {массив слов} Tmp: String; {Tmp — вспомогательная переменная} i, j, NWords: Integer; {NWords — количество слов}BEGIN ClrScr; Write('Количество слов в тексте — '); ReadLn(NWords); For i:= 1 to NWords do begin Write(i, '-ое слово: '); ReadLn(Words[i]) end; For i:= 1 to NWords-1 do {лексикографическое упорядочение слов} For j:= i+1 to NWords do If Words[i]>Words[j] then begin Tmp:= Words[i]; Words[i]:=Words[j]; Words[j]:=Tmp end; WriteLn; WriteLn('О т в е т'); WriteLn('Лексикографически упорядоченный массив слов:'); For i:= 1 to NWords do Write(Words[i], ' '); WriteLn; ReadLnEND.

Пример 7.5. Проверить, имеется ли в линейной записи заданной математической формулы баланс открывающих и закрывающих скобок.

Дата добавления: 2013-12-13