Форум АНТИЧАТ - нужна помоч в програмке PASCAL

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - нужна помоч в програмке PASCAL (https://forum.antichat.xyz/showthread.php?t=162037)

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

начало

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

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

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

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

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

Цитата:

символы ":" на "-", символы "-" на ":"

в чом прикол?

Код:

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.

Не проверял

Код:

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

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

Код:

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 почему-то уходит в вечный луп если ввести всего одну точку. А с вайлом вроде всё норм. Удачи! :)

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

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

Цитата:

Сообщение от Linkus

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

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

Цитата:

Сообщение от DeaD_MoroZ

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

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

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

Цитата:

Сообщение от Hunter123

оффтоп:
могу ошибаться-но ты не тот факультет выбрал... я вот пошёл на асу(физмат), когда я туда пришёл-я знал программирование, математику и т.д.(т.е. я был подготовлен). А по поводу тебя у меня сложилось мнение, ты пошёл туда из за красивого названия(как и у меня половина группы, правда они все после первой сессии вылетили... ну не важно)... могу ошибаться, так что не обижайся... просто эта задача(которую ты не мог решить) уровня 7 класса...
Важно: Студентам с лабораторными сюда