Skracanie ułamka

program asd;

function NWD (A,B:longint) : longint;
var Tmp : longint;
Begin
if (A<>0) AND (B<>0) then
begin
 A:=abs(A); B:=abs(B);

 while (A<>B) do
 begin

      if (A<B) then
      begin
      Tmp:=A;
      A:=B;
      B:=Tmp;
      end;

 A:=A-B;
 end;

 NWD:=A;

end else
NWD:=0;
end;

var
p,q:longint;
z:longint;

begin
readln(p);
writeln('-');
readln(q);
z:=(nwd(p,q));

if z<>0 then
begin
writeln('');
writeln(p/z:0:0);
writeln('-');
writeln(q/z:0:0);
end
else writeln('Bledne dane wejsciowe');

readln;
end.

Dodawanie ułamków

program asd;
uses crt;
function NWD (A,B:longint) : longint;
var Tmp : longint;
Begin
if (A<>0) AND (B<>0) then
begin
 A:=abs(A); B:=abs(B);

 while (A<>B) do
 begin

      if (A<B) then
      begin
      Tmp:=A;
      A:=B;
      B:=Tmp;
      end;

 A:=A-B;
 end;

 NWD:=A;

end else
NWD:=0;
end;

var
p:array[1..2] of longint;
q:array[1..2] of longint;
z,x,i,c:longint;

begin
writeln('podaj pierwszy ułamek');
for i:=1 to 2 do begin
readln(p[i]);
writeln('-');
readln(q[i]);
clrscr;
end;
z:=p[1]*q[2]+p[2]*q[1];
x:=q[1]*q[2];

c:=(nwd(z,x));

writeln(z/c:0:0);
writeln('-');
writeln(x/c:0:0);

readln;
end.

Komentarze (0)

Zapisz sie do kolportera RSS tego komentarza

Twoje Imię

Twój email

Twoja Strona

Tytuł Twojego komentarza

Twój Komentarz

mniejsze | większe

Subskrybuj poprzez email (Tylko zarejestrowani)

Przeczytałem i akceptuje Regulamin.

Dodaj Komentarz