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

                                                                                                   9
    4. Пусть дан фрагмент программы:
y := 1;
i := 2;
for i := 1 to 5 do
     begin
        y := y * i
     end;
write ( y );
Что будет выведено на экран в результате работы указанного фрагмента программы?

2.11.Операторы ввода – вывода
    1. Какие из перечисленных выражений являются операторами ввода языка Паскаль:
а) read (x, y, z); б) read a, b, c; в) read (x) г) x := read (y); д) read (a; b); е) read (a, b + c)
    2. Какие значения будут иметь переменные x и y в результате выполнения последова-
тельности операторов:
                    read (x, y); t := x; x := y; y := t;
если последовательность исходных данных была составлена из чисел 5.2 и 18.7
    3. Какие из перечисленных выражений являются операторами вывода языка Паскаль:
а) write (x, y); б) write (x, x + 1, x + 2); в) read (a) г) write (100); д) print (y, z);
е) write (x ; y ; b + c); ж) write (x + 2.2) з) write ( x + 2,2) и) put (z)
    4. Какие числа будут выведены в результате выполнения последовательности операто-
ров:
 x := (sin (sqr (1) -1 ) + 2 * abs ( -2 )) / cos ( 2 – 2);
 y := x * ( sqr ( 2 ) ); write (x, y);

2.12.Процедуры и функции
1. Определить значения переменных X и Y, которые будут выданы на экран в результате
выполнения следующей программы:
                   var X, Y : integer;
                   procedure p1(A : integer; var B : integer);
                   begin
                       B:=sqr(3*A)-6
                   end;
                   begin
                      X:=3;
                      p1(X, Y);
                      write(X, Y)
                   end.

2. Определить значения элементов массива А, которые будут выведены на экран в резуль-
тате выполнения следующей программы:
                   const n=8
                   type mas = array[1..n] of real;
                   var A : mas; j : integer;
                   procedure p2(var B : mas);
                   var i : integer;
                   begin
                      for i:= 2 to n do
                       B[i] := B[i-1] + 1.0
                   end;
                   begin
                      for j:= 1 to n do A[j] :=0.0;