Помогите разобраться что такое процедура (pascal)

[tdsotm]

Пытаюсь разобраться что такое процедура, я написал программу для понимания, но она не работает, в чем ошибка?

procedure input;
var re1,im1,re2,im2:real;
begin
  writeln('vvedite re1 im1 re2 im2'); 
  readln(re1,im1,re2,im2);
end;

procedure output;
var re1,im1,re2,im2:real;
begin
  writeln(re1*2,im1,re2,im2); 
end;

var i:integer;
begin 
 input;
 output;
end.

[challengerr]

Программа не работает, так как переменным не заданы значения перед вычислением. var re1,im1,re2,im2:real; нужно вынести в глобальный блок, убрав из процедур, иначе значения в этих переменных после выхода из процедур не сохраняются, так как они действительно только во время исполнения процедуры.

[tdsotm]

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

Программа не работает, так как переменным не заданы значения перед вычислением. var re1,im1,re2,im2:real; нужно вынести в глобальный блок, убрав из процедур, иначе значения в этих переменных после выхода из процедур не сохраняются, так как они действительно только во время исполнения процедуры.

Можете написать правильный вариант?

[studen]

var re1,im1,re2,im2:real;

procedure input;
begin
  writeln('vvedite re1 im1 re2 im2'); 
  readln(re1,im1,re2,im2);
end;

procedure output;
begin
  writeln(re1*2,im1,re2,im2); 
end;

begin 
 input;
 output;
end.

[challengerr]

Примерно так

var re1,im1,re2,im2:real;

procedure input;
begin
  writeln('vvedite re1 im1 re2 im2'); 
  readln(re1,im1,re2,im2);
end;

procedure output;
begin
  writeln(re1*2,im1,re2,im2); 
end;

var i:integer;
begin 
 input;
 output;
end.

[ViktorR]

tdsotm

Пытаюсь разобраться что такое процедура, я написал программу для понимания, но она не работает, в чем ошибка?

Предложенное решение, на мой взгляд, наихудшее с точки зрения поднятого вопроса, да и вообще ...

var re1,im1,re2,im2:real;

procedure input(var in1, in2, in3, in4 : real);
begin
  writeln('vvedite re1 im1 re2 im2'); 
  readln(in1, in2, in3, in4);
end;

procedure output(out1, out2, out3, out4 : real);
begin
  writeln(out1*2, out2, out3, out4); 
end;

var i:integer;
begin 
 input(re1, im1, re2, im2);
 output(re1, im1, re2, im2);
end.

Вот теперь можно и подумать, почему так лучше, почему использовано волшебное слово var в описании процедуры input и почему его нет в описании второй процедуры, ...
Почему исходный код не работал, почему предложенное выше решение работает, но это не хороший вариант, ...


Как-то так, ...