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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

46
while i<=sqrt(n) do begin
if n mod i = 0 then begin
f:=0;
break;
end;
i:=i+1;
end;
writeln(f);
end.
9. Программа должна вычислять значение наибольшего общего
делителя. Выполните трассировку и проверьте работу программы
для значений m и
n: 4, 2; 12, 8.
program exam2_9;
var
m, n, p: integer;
begin
readln(m, n); {m>n}
repeat
p:= m mod n;
if p<>0 then begin
m:= n;
n:= p;
end;
until p=0;
writeln(n);
end.
10. Выполните трассировку и определите вид арифметического
выражения, значение которого (переменная
р) вычисляет программа. 
    while i<=sqrt(n) do begin
     if n mod i = 0 then begin
        f:=0;
        break;
     end;
     i:=i+1;
    end;
    writeln(f);
end.

   9. Программа должна вычислять значение наибольшего общего
делителя. Выполните трассировку и проверьте работу программы
для значений m и n: 4, 2; 12, 8.

   program exam2_9;
   var
    m, n, p: integer;
   begin
    readln(m, n); {m>n}
    repeat
     p:= m mod n;
     if p<>0 then begin
        m:= n;
        n:= p;
     end;
    until p=0;
    writeln(n);
   end.


  10. Выполните трассировку и определите вид арифметического
выражения, значение которого (переменная р) вычисляет программа.




                                 46

Страницы