Трассировка программы, содержащих процедуры и функции.

[Jaix]

Товарищи,снова трудности,вот такое задание,помогите,пожалуйста:

Выполнить трассировку программы для заданных входных дан-

ных. Ввести программу в ЭВМ, сравнить результаты трассировки и

работы программы.

Содержание отчета:

1. Задание

2. Текст программы

3. Таблица трассировки

program prim4(input, output);

VAR a, b: INTEGER;

procedure swap(VAR x, y:

INTEGER);

VAR a: INTEGER;

BEGIN

a := x;

x := y;

y := a

END;

BEGIN

READ(a, ;

swap(a, ;

WRITELN(a,

END.

[Bags]

И в чём проблема?

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

[hook]

Ну и трассируй с компиляторе, а бумажку пиши значения перемены во время исполнения.

[Jaix]

С тем разобрался сам,вот еще задачка,буду очень признателен:

7. Для положительных элементов массива Z вычислить их среднее геометрическое.

[Bags]

uses crt;
var a:array[1..10] of integer;
i,t,n:integer;
s:real;
begin
clrscr;
randomize;
writeln ('Сколько цифр будет?');
readln(n);
for i:=1 to n  do
begin
a[i]:=random(10)+1;
end;
for i:=1 to n do
begin
write(a[i]:3);
end;
t:=1;
for i:=1 to n do
 t:=t*a[i];
begin
s:=exp((1/n)*Ln(t));
end;
writeln;
writeln('Среднее геометрическое = ',s:3:3);
writeln('Ололо-ололо, я водитель НЛО!');
readln;

end.

Добавлено спустя 1 минуту 26 секунд:

А вообще, используй для начала Google.

Очень многие простые задачки легко находятся в два клика на этом форуме: http://www.cyberforum.ru/