Помогите написать программу на паскале!!Сложение дробей

Question

Помогите написать программу на паскале!!Сложение дробей

Nutok93 Мастер (1036), закрыт 14 лет назад

Как найти сумму двух положительных дробей. На экран результат вывести в виде целой части.Например числитель - 1, знаменатель -2 .Как написать такую программу на паскале. а то я умею только на бэйсике. Если даны такие дроби. 1/5 и 2/3, 52/16 и 2/3?

Answer 1

VIKING Мудрец (15431) 15 лет назад

program slogenie_drobei;
{Bez okraglenija rezultata}
var
C1,C2,Z1,Z2,OZ,S: REAL;
begin
Write('vvedite chislitel 1 drobi: ');
ReadLN(C1);
Write('vvedite znamenatel 1 drobi: ');
ReadLN(Z1);
Write('vvedite chislitel 2 drobi: ');
ReadLN(C2);
Write('vvedite znamenatel 2 drobi: ');
ReadLN(Z2);
OZ := Z1*Z2;
S := C1+C2;
WriteLN('OTVET');
WriteLN('chislitel ',S:2:0);
WriteLN('znamenatel ',OZ:2:0);
ReadLN
END.

{Результат получился без округления дроби, если знаете как сделать напишите мне, я переделаю программу}

F.E.A.R.Профи (793) 14 лет назад

Эй, ты же мне ее писал!!! Так не честно, пользуешься...

VIKING Мудрец (15431) Да ладно))) Кроме того все исключительные права на нее у меня))) Это же интелектуальная собственность!

Никита ВоронинУченик (107) 6 лет назад

А ещё с целой частью можешь?

VIKING Мудрец (15431) Оно? === program slogenie_drobei; var A1,A2,C1,C2,Z1,Z2,OZ,sumC,otv_A,otv_C,otv_Z,cel,ost: INTEGER; begin //Vvod dannyh WriteLN('vvedite pervuyu drod A1 C1/Z1'); Read(A1,C1,Z1); WriteLN('pervaja drob ',A1,' ',C1,'/',Z1); WriteLN('vvedite vtorujy drod A2 C2/Z2'); Read(A2,C2,Z2); WriteLN('vtoraja drob ',A2,' ',C2,'/',Z2); //schitaem OZ := Z1*Z2; sumC := C1*Z2+C2*Z1; //socratim cel := sumC div OZ; //promighutochno otv_A := A1+A2+cel; otv_Z := OZ; otv_C := sumC-cel*OZ; //probuen maiti NOD while otv_Z<>0 do begin ost := otv_C mod otv_Z; otv_C := otv_Z; otv_Z := ost; end; otv_Z := Round(OZ/otv_C); otv_C := Round((sumC-cel*OZ)/otv_C); WriteLN('OTVET'); WriteLN('drob v formate A C/Z ',otv_A,' ',otv_C,'/',otv_Z); ReadLN END.

Таня ФедороваУченик (180) 6 лет назад

program Evklid;
var m, n: integer;
begin
writeln('Введите m, n');
readln(m, n);
while m<>n do
if m>n then m:=m-n
else n:=n-m;
writeln('НОД =',m);
end.
добавьте это и все получится

VIKING Мудрец (15431) Молодец)