Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (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)

Hunter123 08.12.2009 21:55
нужна помоч в програмке PASCAL
 
начало

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


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


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

Hunter123 08.12.2009 22:57
Очень надо. Затра Лабу здавать(((

preda1or 08.12.2009 23:02
100WMR и 20 мин. времени.

Dimi4 08.12.2009 23:16
Цитата:
символы ":" на "-", символы "-" на ":"
в чом прикол?

Код:
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 08.12.2009 23:36
Код:
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 08.12.2009 23:39
Забавные у вас лабы :o нам бы такие
Мож прикол в том что текст дан в формате .txt?

Linkus 08.12.2009 23:41
Код:
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 08.12.2009 23:48
Большое спасибо всем получилось.
Нет з *тхт роботать не будем.

Linkus 09.12.2009 00:06
пора чтоль свои лабы тоже поделать))) скоро сессия

DeaD_MoroZ 09.12.2009 12:07
Цитата:
Сообщение от Linkus
пора чтоль свои лабы тоже поделать))) скоро сессия
я уже давно сдал...
вопрос к Hunter123, а на кого ты учишься??? и почему ты не полдьзуешься разделом для студентов???


Время: 19:46
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице