Версия для печати темы

Автор: zoha 4.01.2008 1:54

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

Вот описание

Составить программу для нахождения наименьшего общего кратного 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 4.01.2008 2:00

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

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

Автор: zoha 4.01.2008 2:43

Цитата(compiler @ 4.01.2008 0:00)

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

Автор: compiler 4.01.2008 3:37

Цитата(zoha @ 3.01.2008 21:43)

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;

Автор: zoha 5.01.2008 14:13

Цитата(compiler @ 4.01.2008 1:37)

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 5.01.2008 16:24

Цитата(zoha @ 5.01.2008 9:13)

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

Автор: zoha 6.01.2008 17:23

Цитата(compiler @ 5.01.2008 14:24)

Автор: compiler 6.01.2008 17:57

Цитата(zoha @ 6.01.2008 12:23)

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.

Автор: zoha 7.01.2008 18:55

Цитата(compiler @ 6.01.2008 15:57)

Автор: Client 7.01.2008 19:25

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.

Цитата(compiler @ 3.01.2008 22:00)

Автор: volvo 7.01.2008 19:47

Автор: compiler 8.01.2008 2:50

Цитата(zoha @ 7.01.2008 13:55)

Автор: zoha 8.01.2008 23:18

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