Pascal Составить подпрограмму из произвольной строки - Форум
Пятница, 09.12.2016, 06:51
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Pascal Составить подпрограмму из произвольной строки (18.04.2010 Процедуры и функции)
Pascal Составить подпрограмму из произвольной строки
jokДата: Вторник, 13.04.2010, 17:25 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
условие: Составить подпрограмму, которая из произвольной строки символов удаляет все повторно встречающиеся символы.Исходную строку описать в головной программе как типизированную константу.

программа решена ,но нужно переделать через процедуры или функции. ПОМОГИТЕ ПЛЗ!!!

program s1;
var
s:string;
m:set of char;
i:integer;
f1:text;
begin
writeln('Введите строку');
readln(s);
i:=1;
repeat
if s[i] in m then
delete(s,i,1)
else
begin
include(m,s[i]);
inc(i)
end
until
i>length(s);
writeln('Результат: ');
writeln(s);
assign (f1, 'D:\file1.txt');
rewrite (f1);
writeln ( f1, s);
close (f1);
end.

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Pascal Составить подпрограмму из произвольной строки (18.04.2010 Процедуры и функции)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016