Версия для печати темы

Автор: Stud 25.12.2007 17:44

Народ помогите разобраться с процедурами.
Программа:
1. Заменить все имеющиеся пробелы во введенной строке на запятые.
это я сделал

var
s:string;
i,j,n:integer;
begin
writeln('vvedite stroku');
readln(s);
n:=length(s);
for i:=1 to n do
if s[i]=' ' then
   s[i]:=',';
writeln(s);
readln;
end.

теперь нужно решить эту программу с помощью процедур и функций

вот мой нерабочий вариант

var
s:string;
i,n:integer;
begin
Procedure zamena(i,n: integer; s: string);
n:=length(s);
for i:=1 to n do
if s[i]=' ' then
   s[i]:=',';
end;
begin
writeln('vvedite stroku');
readln(s);
zamena(s);
writeln(s);
readln;
end.

Подскажите что делаю неправильно?

Автор: Ozzя 25.12.2007 18:07

var
s:string;
i,n:integer;

Procedure zamena(var s: string);
begin
n:=length(s);
for i:=1 to n do
if s[i]=' ' then
   s[i]:=',';
end;
begin
writeln('vvedite stroku');
readln(s);
zamena(s);
writeln(s);
readln;
end.

Автор: Stud 25.12.2007 18:39

Благодарю

Добавлено через 19 мин.
Знаю про правило: одна тема - один вопрос (задача), но задача очень похожа на 1 нужно тоже самое
решить программу с помощью процедур и функций.

var
word:string;
s1,s2: string;
p: Byte;
i,c,k: integer;
begin
word:=('s1');
write('Imput phrase: ');
readln(s1);
p:=pos(' ',s1);
while (length(s1)>0) do
begin
  word:=copy(s1,1,p);
  delete(s1,1,length(word));
  if pos(word,s1)>0 then
  begin
    s2:=(s2+' '+word);
    while (pos(word,s1)>0) do
    delete(s1,pos(word,s1),length(word));
 end;
 if p=0 then
 s1:=' ';
 p:=pos(' ',s1);
end;
writeln('Modified string: ',s2);
readln;
end.

Опять не могу скомпилировать свой вариант.

Автор: Ozzя 25.12.2007 19:11

Кидай сюды. Подправим.

Автор: Stud 25.12.2007 19:23

сейчас смеяться будете, но я представляю программу таким образом

var
word:string;
s1,s2: string;
p: Byte;
procedure proc1(var s1,s2: string;p: Byte;);
while (length(s1)>0) do
  begin
  word:=copy(s1,1,p);
  delete(s1,1,length(word));
  if pos(word,s1)>0 then
   begin
   s2:=(s2+' '+word);
   while (pos(word,s1)>0) do
   delete(s1,pos(word,s1),length(word));
end;
 end;
procedure proc2(var s1: string; p: Byte;);
    begin
    if p=0 then
    s1:=' ';
    p:=pos(' ',s1);
end;
begin
word:=('s1');
write('Imput phrase: ');
readln(s1);
p:=pos(' ',s1);
proc1(s1,s2);
proc2(s1);
writeln('Modified string: ',s2);
readln;
end.

Автор: Stud 25.12.2007 20:37

Кстати насколько большой может быть процедура?

Автор: andriano 25.12.2007 21:17

А что значит "большой"? Что ты предлагаешь использовать в качестве "размера"?
1. количество строк текста,
2. количество алифметических/логических операций?
3. длину текста в символах?
4. суммарный объем всех локальных переменных?
5. объем скомпилированного кода?
6. что-то еще.

Максимальное значение 4 и 5, как правило, устанавливаются в опциях компилятора.

По поводу второй задачи: не увидел ее условия. Что она должна делать?

Автор: Stud 25.12.2007 22:35

2. количество арифметических/логических операций.

Автор: volvo 25.12.2007 23:37

Больше в одну процедуру тебе втолкать не удастся... Придется разбивать на несколько (процедур или модулей). Только не совсем понятно, как этот вопрос связан с названием топика? Общее слово "процедура"?

Автор: andriano 26.12.2007 22:55

Насколько я понимаю, statement - это оператор, выражение, т.е., грубо говоря, одна строка подпрограммы. А количество арифметических/логических операций ограничивается лишь допустимым размером получаемого исполняемого кода.

Автор: volvo 26.12.2007 23:27

andriano, разницу между statement и statement part улавливаешь? Максимальный размер БЛОКА операторов подпрограммы не может превышать 24К... И плевать Паскаль хотел на то, как именно они записаны - в один ли Begin ... End, в несколько ли, с ветвлениями или без. Хочешь больше - делай вторую процедуру. Превысил размер кода 64К - получил ошибку, делай другой модуль.