лабораторная работа / лабор-ая №7 турбо паскаль

САРАТОВСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ БАЛАКОВСКИЙ ИНСТИТУТ ТЕХНИКИ, ТЕХНОЛОГИИ И УПРАВЛЕНИЯ ФАКУЛЬТЕТ ИНЖЕНЕРНО-СТРОИТЕЛЬНЫЙ КАФЕДРА «УПРАВЛЕНИЕ И ИНФОРМАТИКА В ТЕХНИЧЕСКИХ СИСТЕМАХ»

ЛАБОРАТОРНАЯ РАБОТА № 7

по дисциплине Программирование и основы алгоритмизации

ОБРАБОТКА СИМВОЛЬНЫХ МАССИВОВ на языке

TURBO PASCAL

Выполнил: ст. гр. УИТ-21

Приняла:

2008

Балаково

Лабораторная работа №7 Обработка символьных массивов на языке TURBO PASCAL

Цель: Освоение медов обработки символьных массивов на языке программирования TURBO PASCAL.

Задание. ВАРИАНТ 17. Даны две строки (одинаковой длины). Создайте третью строку из символов, которые на одинаковых позициях совпадают.

Графический алгоритм:

Начало

Введите str1

str1

Введите str2

str2

k:=0

length(str1)=length(str2)

i=1,length (str1)

str1[i]=str2[i]

длина строк не совпадает

k:=k+1

str3[k]:= str1[i]

i=1,k

str3[i]

writeln

Конец

Программа, реализующая данный алгоритм имеет вид:

program ml;

var

str1,str2,str3:string;

i,k:byte;

begin

write (‘vvedite pervuy stroky’);

readln(str1);

write (‘vvedite vtoryy stroky^’);

readln(str2);

k:=0;

if length(str1)=length(str2) then begin

for i:=l to length(str1) do

if (strl[i])=(str2[i]) then

begin

k:=k+l;

str3[k]:=str1[i];

end;

end

else

write ('dlina strok ne sovpadaet’);

writeln;

for i:=1 to k do

write(str3[i]);

writeln;

end.