[Lory]

что будет выведено на печать?

Код:

program C;
var a,b,c,d:integer;
procedure P(var b:integer;c:integer);
var d:integer;
begin a:=5;b:=6;c:=7;d:=8;(writeln(a,b,c,d)end;
begin a:=1;b:=2;c:=3;d:=4;P(a,b);writeln(a,b,c,d)end.

[Bars1992]

5678
6734

[Lory]

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

5678
6734

спасибо но мне нужны объяснения хотябыкратенько пожалуйста...

[Aristarh Dark]

Нескомпилится этот код.

[Lory]

почему???
ну у мя щас экзамен и мне преподу надо объяснить откуда все это взялось...помогите пожалуйста...

[Страдалецъ]

Согласен с Aristarh Dark, ошибка при компиляции будет, причем не в одном месте. Догадайтесь почему

[Страдалецъ]

program C;
var a,b,c,d:integer;
procedure P(var b:integer;c:integer);
var d:integer;
begin a:=5;b:=6;c:=7;d:=8;(writeln(a,b,c,d)end;

[Lory]

потому что дано больше значений?)))
ну сначала бегин с одним потом бегин со вторым?)))

[Lory]

я все равно не понимаю почему ошибка объясните пожалуйста.....

[Страдалецъ]

Скобка лишняя, я ее выделил цветом специально

[Lory]

там без скобки))))
я опечаталась)))

[Страдалецъ]

Тогда другое дело. На печать будет выведено я думаю следующее:
Сначала результат выполнения процедуры:
5 6 7 8
потом уже те значения, что в основном теле программы:
6 2 3 4
но поскольку в процедуру значение переменной а передается как ссылка, то а будет равно значению переприсвоенному в процедуре. Там хитро накручено.

[friz]

Правильный и красивый код:

Код:

program C1; {название программы}
var a,b,c,d:integer; {объявление переменных}

procedure P(var b:integer;c:integer); {объявляем процедуру в которую передаеться два параметра b и c}
var d:integer;{объявление переменных в процедуре, т.е. локальная переменная}
begin 
   a:=5; {присваиваем переменной а значение 5  }
   b:=6;
   c:=7;
   d:=8;
   writeln(a,b,c,d); {выводим на экран переменные a,b,c,d}
end;

begin {начало самой программы}
   a:=1;{присваиваем переменной а значение 1  }
   b:=2;
   c:=3;
   d:=4;
   P(a,b);{вызываем процедуру и передаем в нее переменные a b}
   writeln(a,b,c,d); {выводим на экран переменные a,b,c,d}
end.

сперва выдаст 6678
потом 6234

[Aristarh Dark]

Сообщение от Страдалецъ

Там хитро накручено.

Там не хитро накручено, там благодяря глобальным переменным и идиотскому вызову процедуры P внутри нее (процедуры P) потрится значение переменной а.
Ну а результат уже рассказал friz

[Страдалецъ]

И я о том-же.