лабораторная работа / вар19 / Лабораторная №9

СОДЕРЖАНИЕ

1 Цель работы. Вариант. Задание 3

2 Графическая схема алгоритма 4

3 Программа на языке Turbo Pascal 5

4 Результаты выполненной работы 6

1 ЦЕЛЬ РАБОТЫ. ВАРИАНТ

Цель работы: знакомство с основами обработки строковых массивов на языке Turbo Pascal.

Вариант №19

Задание.(класса С)

Найти в строке слова, являющиеся перевертышами, то есть те которые читаются слева на право и справа налево одинаково. Например «комок».

2 ГРАФИЧЕСКАЯ СХЕМА АЛГОРИТМА

3 ПРОГРАММА НА ЯЗЫКЕ Turbo Pascal

Program lab9_Vika;

var

i:byte;

word:string[30];

Begin

write('vvedite slovo ');

readln(word);

for i:=1 to trunc(length(word)/2) do

begin

if word[i]<>word[length(word)-i+1] then

begin

writeln('neperevertush');

exit

end;

end;

writeln('perevertush');

End.

4 РЕЗУЛЬТАТЫ ВЫПОЛНЕННОЙ РАБОТЫ

Введите слово комок

«Перевертыш»»

Введите слово кепка

«Неперевертыш»

6