[Brish]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

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 должна быть функцией, которая тебе вернет значение, которое в свою очередь подставиться в знаменатель формулы

Код:

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

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

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

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

[Brish]

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

[Kailon]

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

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

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

[Brish]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

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]

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