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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

45
7. Выполните трассировку программы и определите результат, ес-
ли пользователь ввел с клавиатуры значения:
1, 7, 2. Дайте геометри-
ческую интерпретацию работы программы, если значение перемен-
ной s рассматривать как площадь геометрической фигуры.
program exam2_7;
var
s, x, x0, x1, d: integer;
n : integer;
begin
readln(x0, x1, d);
n:= (x1-x0) div d;
x:= x0;
s:= 0;
while n>0 do begin
s:=s+d∗x;
x:=x+d;
n:=n-1;
end;
writeln(s:5);
end.
8. Пользователь ввел с клавиатуры значение переменной х. Вы-
полните трассировку программы и определите результат, если
х рав-
но:
5; 8. Можно ли использовать программу для определения, про-
стое число или нет?
program exam2_8;
var
n, f, i: integer;
begin
readln(n);
i:=2;
f:=1; 
   7. Выполните трассировку программы и определите результат, ес-
ли пользователь ввел с клавиатуры значения: 1, 7, 2. Дайте геометри-
ческую интерпретацию работы программы, если значение перемен-
ной s рассматривать как площадь геометрической фигуры.

  program exam2_7;
  var
   s, x, x0, x1, d: integer;
   n          : integer;
  begin
   readln(x0, x1, d);
   n:= (x1-x0) div d;
   x:= x0;
   s:= 0;
   while n>0 do begin
    s:=s+d∗x;
    x:=x+d;
    n:=n-1;
   end;
   writeln(s:5);
  end.

   8. Пользователь ввел с клавиатуры значение переменной х. Вы-
полните трассировку программы и определите результат, если х рав-
но: 5; 8. Можно ли использовать программу для определения, про-
стое число или нет?

  program exam2_8;
  var
   n, f, i: integer;
  begin
   readln(n);
   i:=2;
   f:=1;


                                45

Страницы