(код паскаль)написать набор процедур для работы - вопрос №1698983 от Olesechka00818 31.05.2021 08:56

Question

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

Olesechka00818 · 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.