(код паскаль)написать набор процедур для работы с обыкновенными дробями, обеспечив их сложение, вычитание, умножение, деление. примечание:

Question

Информатика: (код паскаль)написать набор процедур для работы с обыкновенными дробями, обеспечив их сложение, вычитание, умножение, деление. примечание: обыкновенную дробь представлять двумя целыми числами: первое число представляет числитель дроби, а второе - знаменатель. в процессе вычислений требуется сокращать дроби на их наибольший общий делитель (нод). если одно из чисел равно нулю, то нод берем равным 1. разработать также отдельные процедуры для ввода (на экран выводится надпись: «введите числитель и знаменатель

sofialipezina23 · Answer

чето типо того

uses crt;

var a,b,s:real; z:char;
procedure vyvod(s:real);begin write(s); end;
procedure plus(a,b:real);
begin
s:=a+b;
write('Suma = '); vyvod(s);
end;
procedure minus(a,b:real);
begin
s:=a-b;
write(' = '); vyvod(s);
end;
procedure mn(a,b:real);
begin
s:=a*b;
write(' = '); vyvod(s);
end;
procedure de(a,b:real);
begin
s:=a/b;
write(' = '); vyvod(s);
end;
procedure vvod(a,b:real; z:char);
begin
writeln('Write a,b');
readln(a,b);
writeln('CHOOSE + - * / ');
readln(z);
case z of
'+':plus(a,b);
'-':minus(a,b);
'*':mn(a,b);
'/':de(a,b);
end;
end;

begin
vvod(a,b,z);

readln;
end.

Популярные вопросы