нужна помоч в програмке PASCAL

[Hunter123]

начало

Program Example_2;
Uses crt;
Var i:byte;
St,Rez:string;
Begin
Clrscr;
Write ('Введіть текст: ');


помогите з програмкой


Дан текст. Отредактировать его таким образом, чтобы все символы "." были заменены на "...", символы ":" на "-", символы "-" на ":"

[Hunter123]

Очень надо. Затра Лабу здавать(((

[preda1or]

100WMR и 20 мин. времени.

[Dimi4]

символы ":" на "-", символы "-" на ":"
в чом прикол?


Program Example_2;
Var i,n:integer;
St:string;
Begin
Write ('Введіть текст: ');
readln(St);
n:=length(St);
for i:=1 to n do begin
if St[i]='.' then St[i]:='...';
if St[i]=':' then St[i]:='-';
end;
writeln(St);
end.


Не проверял

[Dosia]

Program Zamena;
var
strInput,strOutput,strTemp:string;
intI:integer;
begin
writeln('vvedite stroku');
readln(strInput);
for intI:=1 to length(strInput) do begin
case strInput[intI] of
'.':strTemp:='...';
':':strTemp:='-';
'-':strTemp:=':';
else strTemp:=strInput[intI];
end; {case}
strOutput:=strOutput+strTemp;
end;
writeln(strOutput);
readln;
end.



vvedite stroku
hello world ... Hello:word hellow - world
hello world ......... Hello-word hellow : world


vvedite stroku
123.123:123-1.2.3-3:2:1 - 1
123...123-123:1...2...3:3-2-1 : 1

[h(f)ucker]

Забавные у вас лабы :o нам бы такие
Мож прикол в том что текст дан в формате .txt?

[Linkus]

Program Example_2;
Uses crt;
Var i: byte;
St,tmp: string;
Begin
Clrscr;
Write('Vv text.. ');
readln(St);

i:=1;
while i<= length(St) do begin
if St[i]= ':' then begin
St[i]:= '-';
inc(i);
continue;
end;

if St[i]= '-' then begin
St[i]:= ':';
inc(i);
continue;
end;

if St[i]= '.' then begin
insert('..',St,i);
i:=i+2;

end;

inc(i);
end;

Writeln(St);
readln
end.

С циклом FOR почему-то уходит в вечный луп если ввести всего одну точку. А с вайлом вроде всё норм. Удачи! :)

[Hunter123]

Большое спасибо всем получилось.
Нет з *тхт роботать не будем.

[Linkus]

пора чтоль свои лабы тоже поделать))) скоро сессия

[DeaD_MoroZ]

пора чтоль свои лабы тоже поделать))) скоро сессия
я уже давно сдал...
вопрос к Hunter123, а на кого ты учишься??? и почему ты не полдьзуешься разделом для студентов???

[Hunter123]

я уже давно сдал...
вопрос к Hunter123, а на кого ты учишься??? и почему ты не полдьзуешься разделом для студентов???

учусь я на факультете телекомуникации и информационних технологий (ICT)

Где есть такой раздел ? может я штото ни то понял.
Просто з книг и других теоритичних ведомостей я ничево не могу понять ли я не понимаю или там плохо виложено. Подскажите какой то материал сайти...
я на первом курсе

[DeaD_MoroZ]

учусь я на факультете телекомуникации и информационних технологий (ICT)

Где есть такой раздел ? может я штото ни то понял.
Просто з книг и других теоритичних ведомостей я ничево не могу понять ли я не понимаю или там плохо виложено. Подскажите какой то материал сайти...
я на первом курсе
оффтоп:
могу ошибаться-но ты не тот факультет выбрал... я вот пошёл на асу(физмат), когда я туда пришёл-я знал программирование, математику и т.д.(т.е. я был подготовлен). А по поводу тебя у меня сложилось мнение, ты пошёл туда из за красивого названия(как и у меня половина группы, правда они все после первой сессии вылетили... ну не важно)... могу ошибаться, так что не обижайся... просто эта задача(которую ты не мог решить) уровня 7 класса...
Важно: Студентам с лабораторными сюда (http://forum.antichat.ru/thread122076.html)