Рациональные числа

[Nastyity]

Умножение рациональных чисел.
Ответ должен быть несократимой дробью. В Edit1 вводим 5/6 (пять шестых), в Edit2 3/2 (три вторых), в Memo1 получаем результат - 5/6 умноженное на 3/2. Получаем результат 5/4 который и выводим в Memo1.

[eoln]

Приводил подобный пример.

type
  drob = record//создадим дробный тип
    chisl: integer;
    znam: integer
  end;

function NOD(a, b: integer): integer;//наибольший общий делитель
begin
  if a = 0 then NOD := b
  else NOD := NOD(b mod a, a)
end;

function sekir(x: drob): drob;//сокращение дроби
var
  y: integer;
begin
  y := NOD(x.chisl, x.znam);//ищем НОД
  while y <> 1 do begin//если можно сокращать
    x.chisl := x.chisl div y;//то сокращаем числитель
    x.znam := x.znam div y;// и знаменатель на их НОД
    y := NOD(x.chisl, x.znam)
  end;
  sekir := x
end;

function PrDrob(a, b: drob): drob;//произведение дробей (школьная формула)
var
  y: drob;
begin
  y.znam := a.znam * b.znam;
  y.chisl := a.chisl * b.chisl;
  PrDrob := sekir(y);
end;

var
  a, b, c: drob;
begin
  a.chisl := 5; a.znam := 6; //первая дробь = 5/6
  b.chisl := 3; b.znam := 2; //вторая дробь = 3/2
  c := PrDrob(a, b); //произведение дробей
  write(c.chisl, '/', c.znam);
  readln
end.

Осталось чуть изменить под свои нужды.

[Nastyity]

Что такое NOD, зачем while?
Не знаю что именно менять( Хотелось бы как можно проще всё это. Учусь на документоведа, зачем нам это программирование не понимаю

[Nastyity]

Набрала задачу в программу , а она сплошные ошибки выводит(
что делать?

[eoln]

Что такое NOD, зачем while?

Набрала задачу в программу , а она сплошные ошибки выводит(
что делать?

NOD - наибольший общий делитель. В школе математику учили? Как дробь сократить?

1) Сокращаем на наибольший общий делитель , получаем новую дробь
2) Сокращаем на наибольший общий делитель , получаем новую дробь
3) Сокращаем на наибольший общий делитель 1, но так как это бессмыслено, то больше не будем сокращать.

Так вот, while это цикл, который сокращает дробь (числитель и знаменатель) на наибольший общий делитель пока это возможно.

Программа для консоли или для Паскаля. Но функции и тип подходят и для "форменного" приложения.

procedure TForm1.Button1Click(Sender: TObject);
type
  drob = record//создадим дробный тип
    chisl: integer;
    znam: integer
  end;

function NOD(a, b: integer): integer;//наибольший общий делитель
begin
  if a = 0 then NOD := b
  else NOD := NOD(b mod a, a)
end;

function sekir(x: drob): drob;//сокращение дроби
var
  y: integer;
begin
  y := NOD(x.chisl, x.znam);//ищем НОД
  while y <> 1 do begin//если можно сокращать
    x.chisl := x.chisl div y;//то сокращаем числитель
    x.znam := x.znam div y;// и знаменатель на их НОД
    y := NOD(x.chisl, x.znam)
  end;
  sekir := x
end;

function PrDrob(a, b: drob): drob;//произведение дробей (школьная формула)
var
  y: drob;
begin
  y.znam := a.znam * b.znam;
  y.chisl := a.chisl * b.chisl;
  PrDrob := sekir(y);
end;

var
  a, b, c: drob;
  s: string;
begin
  s := edit1.Text;
  a.chisl := strtoint(copy(s, 1, pos('/', s) - 1));
  delete(s, 1, pos('/', s));
  a.znam := strtoint(s);

  s := edit2.Text;
  b.chisl := strtoint(copy(s, 1, pos('/', s) - 1));
  delete(s, 1, pos('/', s));
  b.znam := strtoint(s);

  c := PrDrob(a, b); //произведение дробей
  memo1.Lines.Add(inttostr(c.chisl) + '/' + inttostr(c.znam));
end;

[Nastyity]

в каком компоненте нужно это все писать?

[eoln]

В обработчике Button1Click
Инструкция с картинками

[Nastyity]

Спасибо большое