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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

42
end.
3. Определите, в какие интервалы должно «попасть» значение х,
чтобы программа выводила значение
0.
program exam2_3;
var
f, x : integer;
begin
readln(x);
if (x>=-1) and (x<=4) or (x>=5) and (x<=10) then
f:= 1
else
f:= 0;
writeln(f);
end.
4. Пользователь ввел с клавиатуры значение переменной х. Опре-
делите, какое значение выведет компьютер на дисплей, если
х равно:
3; 4; -2; -4; 15.
program exam2_4;
var
f, x: integer;
begin
readln(x);
case x of
1, 3, 5, 7, 9 : f:=2∗x+1;
2, 4, 6, 8 : f:=2∗x;
10..100 : f:=x∗10;
-3..-1 : f:=-1;
else
f:=0;
end;
writeln(f);
end. 
  end.
   3. Определите, в какие интервалы должно «попасть» значение х,
чтобы программа выводила значение 0.

  program exam2_3;
  var
   f, x : integer;
  begin
   readln(x);
   if (x>=-1) and (x<=4) or (x>=5) and (x<=10) then
     f:= 1
   else
     f:= 0;
   writeln(f);
  end.
   4. Пользователь ввел с клавиатуры значение переменной х. Опре-
делите, какое значение выведет компьютер на дисплей, если х равно:
3; 4; -2; -4; 15.

  program exam2_4;
  var
   f, x: integer;
  begin
   readln(x);
   case x of
  1, 3, 5, 7, 9 : f:=2∗x+1;
  2, 4, 6, 8 : f:=2∗x;
  10..100       : f:=x∗10;
      -3..-1        : f:=-1;
    else
      f:=0;
    end;
    writeln(f);
   end.


                                 42

Страницы