прцедура Опции

[zoha]

помогите пожалуйста в организации процедуры! я только новичек в Паскале

Вот описание

Составить программу для нахождения наименьшего общего кратного 3 натуральных чисел

Вот фрагмент программы, го она не работает! Даже есть скриншот!!
ПОМОГИГЕ, PLEASE

program LAb_14;
uses crt;
var a,b,c:0..9;
z:integer;
procedure vvod(a,b,c:byte);
Var i:byte;
begin
read(a,b,c);end;
procedure nok(a,b,c:byte;var z:integer);
var i,x:byte;
begin
if ((a div a)<>0)and((b div a)<>0)and((c div a)<>0) then x:=x+1;
x:=z;
end;
begin
clrscr;
writeln('Введите 3 натуральных числа');
vvod(a,b,c);
writeln('Наименьшее общее кратное 3 чисел=');
nok(a,b,c,z);
readln;
end.

[compiler]

как ты думаешь, что будет происходить в этой строчке

if ((a div a)<>0)and((b div a)<>0)and((c div a)<>0) then x:=x+1;

при а=0?

и вообще я не понял алгоритма... ИМХО, проще всего будет решить считая НОК(a, b, c) = НОК(НОК(a, b), c)

Сообщение отредактировано: compiler - 3.01.2008 22:10

[zoha]

как ты думаешь, что будет происходить в этой строчке

if ((a div a)<>0)and((b div a)<>0)and((c div a)<>0) then x:=x+1;

при а=0?

и вообще я не понял алгоритма... ИМХО, проще всего будет решить считая НОК(a, b, c) = НОК(НОК(a, b), c)

А как это сделать ПОМОГИ пажалуйста фрагмент напиши

[compiler]

А как это сделать ПОМОГИ пажалуйста фрагмент напиши

а у гугла спросить слабо? вот например так пишут на сурсах в вики..

function GCD (A: integer;  B: integer): integer;
{Наибольший Общий Делитель}
begin
    while (a <> 0) and (b <> 0) do
       if a >= b then
         a := a mod b
       else 
         b := b mod a;
    GCD := a + b; { один - ноль }
end;

function LCM (A: integer;  B: integer): integer; 
{Наименьшее Общее Кратное}
begin
     LCM := a * b div GCD (a, b)
end;

если хочешь одной функцией, можеш посмотретьтут, только подправь возращение результата функцией...


Сообщение отредактировано: compiler - 3.01.2008 23:40

[zoha]

а у гугла спросить слабо? вот например так пишут на сурсах в вики..

function GCD (A: integer;  B: integer): integer;
{Наибольший Общий Делитель}
begin
    while (a <> 0) and (b <> 0) do
       if a >= b then
         a := a mod b
       else 
         b := b mod a;
    GCD := a + b; { один - ноль }
end;

function LCM (A: integer;  B: integer): integer; 
{Наименьшее Общее Кратное}
begin
     LCM := a * b div GCD (a, b)
end;

если хочешь одной функцией, можеш посмотретьтут, только подправь возращение результата функцией...

Можно ли организовать процедуру к этой задаче.
Буду благодарен за фрагмент порграаммы
Заранее спасибо!!!!!

[compiler]

Можно ли организовать процедуру к этой задаче.
Буду благодарен за фрагмент порграаммы
Заранее спасибо!!!!!

а что я тебе написал? или тебе надо именно procedure?

[zoha]

а что я тебе написал? или тебе надо именно procedure?

Да именно procedura нужна ПОМОГИТЕ ПОЖАЛУЙСТА

[compiler]

Да именно procedura нужна

можна написать так...

function GCD (A: integer;  B: integer): integer;
{Наибольший Общий Делитель}
begin
    while (a <> 0) and (b <> 0) do
       if a >= b then
         a := a mod b
       else
         b := b mod a;
    GCD := a + b; { один - ноль }
end;

function LCM (A: integer;  B: integer): integer;
{Наименьшее Общее Кратное}
begin
     LCM := a * b div GCD (a, b)
end;

procedure nod(const a, b, c:integer;var  r:integer);
{твоя процедура) }
begin
        r:=LCM(LCM(a, b), c);
end;

{пример вызова}
var a, b, c, res:integer;
begin
        write('>>');    readln(a);
        write('>>');    readln(b);
        write('>>');    readln©;
        NOD(a, b, c, res);
        writeln('NOD=', res);
end.

Сообщение отредактировано: compiler - 6.01.2008 13:59

[zoha]

можна написать так...

мне нужно нок, ане нод

[Client]

uses crt;
procedure nok(var a,b:integer);
var
   m:integer;
begin
     if a>b then m:=a
        else m:=b;
     while (m mod a<>0) or (m mod b <>0) do
           inc(m);
     b:=m
end;
var
   a,b,c:integer;
begin
     clrscr;
     writeln(' Vvedite 3 chisla: ');
     readln(a,b,c);
     nok(a,b);
     nok(b,c);
     writeln(' NOK= ',c);
     readkey
end.

проще всего будет решить считая НОК(a, b, c) = НОК(НОК(a, b), c)

А у меня он почему-то на это стал ругаться...

Сообщение отредактировано: Client - 8.01.2008 6:34

[volvo]

А у меня он почему-то на это стал ругаться...

Потому, что Var-параметры используешь, компилятор ждет переменную, а вызов функции - это не переменная...

Сообщение отредактировано: volvo - 7.01.2008 15:47

[compiler]

мне нужно нок, ане нод

переименнуй)) лол...

оффтоп
да... кажется, я последнее время начал буковки путать)

[zoha]

Все спасибо большое
THANK YOU!!!!!!!!!!!!!!!!!!!!!!