Сборник задач для проведения практических занятий по дисциплинам "Программирование на языке высокого уровня", "Алгоритмизация и программирование". Барков И.А. - 10 стр.

UptoLike

ВУЗ: 

ИжГТУ им. Калашникова | Ижевск

Составители: 

Рубрика: 

10
p2(A);
for j:= 1 to n do writeln(A[j])
end.
3. Определить значения переменных X1, X2, A1, A2, которые будут выведены на экран в
результате выполнения следующей программы:
var X1, X2 : integer;
procedure p1(A1 : integer; var A2 : integer);
begin
A1 := A1 * A1;
A2 := A1 * A1 + A1;
write(A1, A2)
end;
procedure p2(var A1, A2 : integer);
begin
A1 := A1 * A1;
A2 := A1 * A1 + A1;
writeln(A1, ‘ ‘, A2)
end;
begin
X1 := 1;
X2 := 2;
p1(X1, X2);
write(X1, ‘ ‘, X2)
X1 := 2;
X2 := 3;
write(X1, ‘ ‘, X2)
end. 
                                                                                  10
                      p2(A);
                      for j:= 1 to n do writeln(A[j])
                   end.

3. Определить значения переменных X1, X2, A1, A2, которые будут выведены на экран в
результате выполнения следующей программы:
                   var X1, X2 : integer;
                   procedure p1(A1 : integer; var A2 : integer);
                   begin
                      A1 := A1 * A1;
                      A2 := A1 * A1 + A1;
                       write(A1, A2)
                   end;
                   procedure p2(var A1, A2 : integer);
                   begin
                      A1 := A1 * A1;
                      A2 := A1 * A1 + A1;
                       writeln(A1, ‘ ‘, A2)
                   end;
                   begin
                      X1 := 1;
                      X2 := 2;
                      p1(X1, X2);
                      write(X1, ‘ ‘, X2)
                      X1 := 2;
                      X2 := 3;
                      write(X1, ‘ ‘, X2)
                   end.

Страницы