Составьте программу, складывающую две обыкновенные дроби

@Korotkow_96 · Регистрация: 14.10.2012

Помогите, пожалуйста, Составить программу, складывающую две обыкновенные дроби.

@Locust · 11.11.2012, 19:25

Только сокращать самому придётся.

Pascal

program Project2;
 
uses crt;
 
var a1, a2, b1, b2, c1, c2: Integer;
 
begin
Writeln ('Enter the numerator of the first fraction: '); Readln(a1);
Writeln ('Enter the denominator of the first fraction: '); Readln(a2);
Writeln ('Enter the numerator of the second fraction: '); Readln(b1);
Writeln ('Enter the denominator of the second fraction: '); Readln(b2);
 
if a2=b2 then
  begin
  c2:=a2;
  c1:=a1+b1;
  end
else
  begin
  c2:=a2*b2;
  c1:=a1*b2+a2*a1;
  end;
Writeln;
Writeln ('Here is the result: ', a1,'/',a2,' + ',b1,'/',b2,' = ',c1,'/',c2);
Writeln;
Writeln('Press Enter...'); Readln;
end.

@Korotkow_96 0 / 0 / 0 Регистрация: 14.10.2012 Сообщений: 3
		1
	Составьте программу, складывающую две обыкновенные дроби 11.11.2012, 16:17. Показов 9610. Ответов 1 Метки нет (Все метки) Помогите, пожалуйста, Составить программу, складывающую две обыкновенные дроби. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Составьте программу, складывающую две обыкновенные дроби

Решение