Заменить в каждой строке воскл. знаки на точки. - язык Pascal

[Karinna]

Помогите с задачей, плиз! Затра нужно сдать, а то не видать мне зачета как своих ушей =)

Задано М строк символов, которые вводятся с клавиатуры. Каждая строка представляет собой последовательность символов, включающих в себя восклицательные знаки. Заменить в каждой строке воскл. знаки на точки.

В принципе, я понимаю что надо делать через copy и concat, но собрать все это в единую программу не могу...

[Abrakadabra]

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

Помогите с задачей, плиз! Затра нужно сдать, а то не видать мне зачета как своих ушей =)

Задано М строк символов, которые вводятся с клавиатуры. Каждая строка представляет собой последовательность символов, включающих в себя восклицательные знаки. Заменить в каждой строке воскл. знаки на точки.

В принципе, я понимаю что надо делать через copy и concat, но собрать все это в единую программу не могу...

Вы забыли 1 мелочь.. с помощью каких инструментов желали бы это сделать?

[Karinna]

в Паскале... или я неправильно поняла ваш вопрос?

[Stilet]

Так подойдет?

uses crt;
var s:string;i:integer;
begin
repeat
 writeln('Введите строку или пробел для окончания');
 readln(s);
 for i:=1 to length(s) do if s[i]='!' then s[i]:='.';
 writeln(s);
until s=' ';
end.

[SERG1980]

uses crt;
var s1,s2:string;
begin
clrscr;
writeln('Vvedite ishodnuy stroky');
readln(s1);
while pos('!',s1)>0 do s1[pos('!',s1)]:='.';
writeln(s1);
readln;
end.

[Karinna]

Задано М строк символов, которые вводятся с клавиатуры

а как сделать, чтобы рассматривать сразу все введеные строки, а не каждый раз новую строку вводить?

[Карась]

Берёте какойнибудь цикл. Обьявляете массив типа String.

И чтото типа этого:

Var mas : array [1..M] of String;

For i := 1 To M Do
     Begin
          Readln(Stroka);
          {Делаете необходимую обработку строки}
          mas[i] := {обработанная строка}
     End;

{Выводим на экран.}

[Karinna]

program stroka;
var s:string;
i,M:integer;
a:array [1..10] of string;
begin
write ('M');
readln (M);
for i:= 1 to M do
begin
write ('s');
readln (s);
for i:= 1 to lenght(s) do
if s[i]='!' then
s[i]:='.';
writeln (s);
end;
end;
end.

Что-то жутко напутала, т.к. выводит что-то непонятное =)

[Stilet]

Да этот код вообще ничего не должен выводить - он с синтаксическими ошибками.
В цикле вводиш все строки:

var s:string;
i,M:integer;
a:array [1..10] of string;
begin
write ('M');
readln (M);
for i:= 1 to M do begin 
 write ('s');
 readln (s);
 for i:=1 to length(s) do if s[i]='!' then s[i]:='.';   
 a[i]:=s;
end;

И выводиш потом на экран:

 for i:= 1 to M do writeln (a[i]);

Ферштехен?

[Karinna]

Так, ну вот как-то так она у меня получилась, но все равно не выводит итоговые строки с точками

program stroka;
var s,d:string;
i,j,k,M:integer;
a,a1:array [1..10] of string;
begin
write ('M');
readln (M);
for i:= 1 to M do
begin
write ('a[i]');
readln (a[i]);
end;
for i:=1 to M do
begin
s:='';
for k:= 1 to length(a[i]) do
begin
d:=copy (a[i],k,1);
if d<>'!' then
s:=concat (s,d)
else
begin
d:='.';
s:=concat (s,d)
end;
end;
a[i]:=s;
end;
for i:= 1 to M do
begin
writeln ('a1[j]=',a[i]);
end;
end.
где-то напутала с i и j...