[Brish]

Здравствуйте)) Помогите, пожалуйста. Не могу понят ошибку в коде:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
    NOK:real;
    a,b,Na:integer;

    procedure NOD(m,n:integer;var nm:integer);
    begin
    while m<>n do
    if m<>n then
    m:=m-n
    else
    n:=n-m;
    nm:=m;
    end;

begin
readln(a);
readln(b);
  NOK:=(a*b)/NOD(a,b,Na);
  writeln('NOK=',NOK:4);
  readln;

end.

Админ: Пользуемся тегами для оформления кода!

[Error] Project1.dpr(23): Operator not applicable to this operand type

Что не так???

[Kailon]

Что не так???

Да все все не так! Что у тебя делает процедура NOD? Она ведь просто оперирует своими внутренними переменными и все. Я думаю процедура NOD должна быть функцией, которая тебе вернет значение, которое в свою очередь подставиться в знаменатель формулы

Код:

NOK := (a*b) / NOD(a,b,Na)

Почему переменной "Na" ничего не присвоено?

[Страдалецъ]

Здесь было сообщение, которое я же и потер.

[Brish]

Нам сказали написать эту прогу 2 способами. 1-ая как процедура, 2-ая - функция. Вот попыталась написать как процедура, теперь думаю ее переписать следует((

[Kailon]

Сообщение от Brish

Нам сказали написать эту прогу 2 способами. 1-ая как процедура, 2-ая - функция. Вот попыталась написать как процедура, теперь думаю ее переписать следует((

Да нет проблем. Пиши процедурой. Только пусть она глобальными переменными оперирует, а не своими внутренними.

[Brish]

Спасибо всем, я нашла ошибку. Вот что получилось :

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;


var
a,b,na: integer;

procedure NOD (x,y: integer;var g:integer);
begin
while x<>y do
      if x>y then
        x:=x-y
      else
        y:=y-x;
        g:=x;
end;

begin
write('A=');
readln(a);
write('B=');
readln(b);
NOD(a,b,Na);
writeln ('NOK=',a*b/na);
readln;
end.

[Kailon]

Умничка!

[Brish]

Спасибо))

[Kailon]

На будущее. Весь код в тег заворачивай, а то Админ ругаться будет.

[Brish]

Приму к сведению))