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



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

Это сообщение отредактировал(а) volvo877 - 7.5.2008, 01:06

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

lenght - нет такого в Паскале...

Я ошиблась, нужно length

В таком случае я покажу тебе еще одну ошибку:



Это сообщение отредактировал(а) volvo877 - 7.5.2008, 01:32

А в Паскале аналога "StringReplace" нет?

Нет... Мало ли, чего где нет...

Для тех, кто в танке: задание было таким, никакого указания на то, что надо вводить каждый символ по отдельности нет...

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

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...

Во-первых, пользуйся кнопкой "Код"... 
Во-вторых, я привел тебе работающую программу, чем она тебя не устроила?

Ну, и если уж хочется сделать самостоятельно - тогда вопрос на засыпку: зачем нужно для доступа к определенному символу строки использовать Copy, когда можно просто обратиться по индексу?

В вашей программе мне не нравится только то, что она выполняет действия построчно. Т.е, я ввожу одну строку, она меняет знаки и только потом вводим вторую. А мне нужно, чтобы сначала ввели весь массив строк, а потом получили весь массив строк с другими символами...

Это не моя прихоть, а препода, т.к. задача по теме строки и надо использовать операторы из этой темы...

Вот и используй операторы, а не функции и процедуры... Ты ж усложняешь себе же жизнь, и то, что делается элементарно у тебя получается растянутым...

Ну, как знаешь. Вот так?

Оу, ес!!! Вот это то, что надо!!! огромное спасибо!!!!!!!!!!!