лабораторная работа / LAB_9

Лабораторная работа №9.

Работа со строками.

Цель работы: овладение практическими навыками разработки алгоритмов и программ, использующих символьные переменные.

Задание: из исходного текста удалить все символы ‘*’, оставшиеся символы удвоить.

Блок-схема:

s1:=s1+s[i]+s[i]

нет

да

Программа:

program lab9;

var s,s1:string;i:integer;

begin

write('stroka:');

read(s);

s1:='';

writeln;

for i:=1 to length(s) do

if s[i]<>'*' then

s1:=s1+s[i]+s[i];

writeln('poluchili:');

write(s1);

end.

Из строки «ab*c*D» получили:

aabbccDD