Совсем недавно мы прошли строковый тип данных, а так же его функции. Сегодня я хочу представить исходник, который использует этот тип данных в Паскаль. Данный исходник является решением простейшей задачи на Pascal, a именно удваивает вхождение некоторой буквы в тексте. Например, при удвоении буквы к текст "уроки паскаль" должен превратиться в текст - "Урокки пасккаль".
Итак, для решения данной задачи паскаль, нам придется использовать строковый тип данных, функцию определения длины строки - length (s), цикл FOR, а также процедуру вставки insert. Так как задача достаточно проста, то расписывать её решение я не буду.
Исходный код программы Паскаль:
var S1,a:string;
i:integer;
begin
writeln ('Введите строку');
readln(S1);
writeln ('Введите букву');
readln(a);
for i:=length(S1) downto 1 do
if S1[i]=a then
insert(a,S1,i);
writeln(S1);
end.Скачать исходник: pas5.pas
Вам негде жить? Быть может Вам нужна аренда квартир в минске на www.sdamprodam.by.