Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 42 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

41
2.5.2. Выполнить трассировку
и определить результаты программы
1. Пользователь ввел с клавиатуры значения 3 и 5. Определите,
какое значение выведет компьютер на дисплей.
program exam2_1;
var
f, x, y : integer;
max, min: integer;
begin
readln(x,y);
if x>=y then begin
max:= x;
min:= y;
end
else begin
max:= y;
min:= x;
end;
if x∗y>0 then
f:=max
else
f:=min;
writeln(f);
end.
2. Нарисуйте область на плоскости, при попадании в которую точ-
ки с координатами
x, y программа выводит значение True.
program exam2_2;
var
x, y : integer;
b:boolean;
begin
readln(x,y);
b:= (abs(x-y)<=1) and (abs(x+y)<=1);
writeln(b); 
  2.5.2. Выполнить трассировку
          и определить результаты программы
   1. Пользователь ввел с клавиатуры значения 3 и 5. Определите,
какое значение выведет компьютер на дисплей.
  program exam2_1;
  var
   f, x, y : integer;
   max, min: integer;
  begin
   readln(x,y);
   if x>=y then begin
      max:= x;
      min:= y;
   end
   else begin
      max:= y;
      min:= x;
   end;
   if x∗y>0 then
      f:=max
   else
      f:=min;
   writeln(f);
  end.
   2. Нарисуйте область на плоскости, при попадании в которую точ-
ки с координатами x, y программа выводит значение True.
  program exam2_2;
  var
   x, y : integer;
   b:boolean;
  begin
   readln(x,y);
   b:= (abs(x-y)<=1) and (abs(x+y)<=1);
   writeln(b);



                                41

Страницы