Реферат Курсовая Конспект
Система тестов - раздел Информатика, Алгоритмы обработки символьной информации. 1 N Теста Данные Результат ...
|
N теста | Данные | Результат |
Slovo = ''казак'' | Otvet = ''Перевертыш'' | |
Slovo = ''коза'' | Otvet = ''Не перевертыш'' |
Program TurnOver;
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 заданном тексте одно заданное слово везде заменить на другое заданное слово такой же длины.
– Конец работы –
Эта тема принадлежит разделу:
Алгоритмы обработки символьной информации... Операция присваивания... Операция сцепления...
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: Система тестов
Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:
Твитнуть |
Новости и инфо для студентов