Прграмма про дроби

[korib]

Разработка электронного учебного пособия в среде визуального программирования, использование, которого помогает освоить теоретические и практические аспекты темы, сформировать навыки и умения работы с дробями, провести тестирования по теме

program hhh;
uses ctr;
var
 a,b,c      :longint:
 a2, b1     :longint:    
 a2, b2     :longint:
 nok        :longint:
procedure Nod {процедура находит НОД чисел a и d}
              {a,b,c - глобальные параметры     }
begin
  if b>a then begin {высчитываем наибольшее число и записываем его в
                   переменную a, наименьшее - в d}
    c:=a;
    a:=b;
    b:=c;
   end;
   while a mod b <> 0 do begin
      c:=b;
      b:=a mod d;
      a:=c;
   end;
end;

begin
  GlrScr;
  Write('Введите числитель 1ой дроби:>'>;Reedln(a1);
  Write('Введите числитель 1ой дроби:>'>;Reedln(b1);
  Write('Введите числитель 2ой дроби:>'>;Reedln(a2);
  Write('Введите знаменатель 2ой дроби:>'>;Reedln(d2);

if (b1=0) or (d2=0) then begin {проверка на правильность ввода чисел}
  Writeln('ошибка!! Знаменатель не должен равнятся нулю.');
  Readkey;
  Halt(1);
end;
Write(a1,'/',b1,'+',a2,'/',b2,'=');

if (a1=0) or (a2=0) then begin {если числитель одной из дробей равен нулю,
          то мы пропускаем пункт сложения дробей}

  if a1=0 then begin 
    a:=a2;b:=b2;
    a1:=a2;nok:=b2;
  end
  else begin
    a:=a1;b:=b1;
    nok:=b1;
  end;
end

кусочек кода программы на паскале на с++ полный ноль кто знает что делать подскажите как быть. Но это не вся программа. Дальше просто ноль и эту причом переделать на с++ надо.

[Blade]

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

кто знает что делать подскажите как быть.

Великолепный вопрос!

Извините, не удержался

[Lapo4ka]

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

кусочек кода программы на паскале на с++ полный ноль кто знает что делать подскажите как быть.

можно всё сделать на паскале, а можно на С++
мне больше нравится С++
в какой язык переделывать код?

[korib]

препод сказал в с++ а я в нем ноль честно. В паскале еще разбираюсь, а в с++ не получается

И да Blade я серьезно за помощью обратился, хоть с чем то не как многие тут, а ты посмеялся. Круто

[Blade]

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

И да Blade я серьезно за помощью обратился, хоть с чем то не как многие тут, а ты посмеялся. Круто

Я посмеялся над тем, как поставлен вопрос, не принимай близко к сердцу

[Lapo4ka]

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

препод сказал в с++ а я в нем ноль честно. В паскале еще разбираюсь, а в с++ не получается

C++ не такой уж и страшный язык
что программа должна делать с дробями?
находить НОК знаменателей, складывать, отнимать, умножать, делить, сранивать дроби
что еще нужно?

[korib]

дополнить нужно остальными операциями, нужно показать этапы вычисления.
Находить НОК знаменателей, складывать, отнимать, умножать, делить, сранивать дроби. Основные вычислительные функции.

И еще незнаю поможет ли это чемто или нет но у меня есть еще один код

program s1;

uses crt;
Var   a,b,f:word;
st:string;
Function HOD(a,b:word):word;
var i,c:word;
begin
Hod:=1;
If a<b then begin
       c:=a;
    a:=b;
    B:=c;  end;
for i:=1 to a div 2 do begin
      If (a mod i=0) and(b mod i=0) then Hod:=i;
    end
        end;
procedure drob(s:string;var a,b:word);
var I,d:integer;
c,t:string;
 begin
 i:=1;
    while s[i]<>'/' do inc(i);
 d:=length(s)-i;
 c:=copy(s,1,i-1);
 t:=copy(s,i+1,d);
 val(c,a,d);
 val(t,b,d);
end;
begin

readln(st);
drob(st,a,b);
f:=Hod(a,b);
A:=a div f;
b:=b div f;
write(a,'/',b);

readln;
end.