PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
function gcd(a,b:integer):integer; // НОД begin while b<>0 do begin a:=a mod b; Swap(a,b) end; Result:=a end;
procedure RedFrac(var a,b:integer); // сокращение дроби begin var (sgna,sgnb):=(Sign(a),Sign(b)); // мы должны учитывать знак! (a,b):=(Abs(a),Abs(b)); var d:=gcd(a,b); a:=(a div d)*sgna; b:=(b div d)*sgnb end;
begin var (a,b):=ReadInteger2('Введите числитель и знаменатель 1-й дроби:'); var (c,d):=ReadInteger2('Введите числитель и знаменатель 2-й дроби:'); (a,b):=(a*c,b*d); RedFrac(a,b); Writeln('Результат умножения: ',a,' / ',b) end.
Пример Введите числитель и знаменатель 1-й дроби: 32 1024 Введите числитель и знаменатель 2-й дроби: 60 300 Результат умножения: 1 / 160
В качестве бонуса - решение на базе входящей в состав PascalABC.NET библиотеки численных методов
uses NumLibABC;
begin var (a,b):=ReadInteger2('Введите числитель и знаменатель 1-й дроби:'); var (c,d):=ReadInteger2('Введите числитель и знаменатель 2-й дроби:'); Writeln('Результат умножения: ',Frc(a,b)*Frc(c,d)) end.
2) ПО – совокупность программ, выполняемых компьютером. Роль – дает возможность пользоваться вычислительными мощностями
4) Взаимодействие пользователя с программами, взаимодействие программ и устройств, распределение ресурсов компьютера между запущенными процессами
6) Компьютерный вирус — это специально написанная вредоносная программа нанести ущерб данным на компьютере или вывести его из строя.
Для того чтобы не подвергнуть компьютер «заражению» вирусами и обеспечить надёжное хранение информации, необходимо соблюдать следующие простые правила:
1) установить на компьютер антивирусную программу и регулярно тестировать компьютер на наличие вирусов с её ;
2) регулярно обновлять антивирусную программу через Интернет;
3) перед считыванием информации со случайных носителей проверять их на наличие вирусов.
Внимание! Если программа не работает, обновите версию!
function gcd(a,b:integer):integer; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
procedure RedFrac(var a,b:integer); // сокращение дроби
begin
var (sgna,sgnb):=(Sign(a),Sign(b)); // мы должны учитывать знак!
(a,b):=(Abs(a),Abs(b));
var d:=gcd(a,b);
a:=(a div d)*sgna; b:=(b div d)*sgnb
end;
begin
var (a,b):=ReadInteger2('Введите числитель и знаменатель 1-й дроби:');
var (c,d):=ReadInteger2('Введите числитель и знаменатель 2-й дроби:');
(a,b):=(a*c,b*d);
RedFrac(a,b);
Writeln('Результат умножения: ',a,' / ',b)
end.
Пример
Введите числитель и знаменатель 1-й дроби: 32 1024
Введите числитель и знаменатель 2-й дроби: 60 300
Результат умножения: 1 / 160
В качестве бонуса - решение на базе входящей в состав PascalABC.NET библиотеки численных методов
uses NumLibABC;
begin
var (a,b):=ReadInteger2('Введите числитель и знаменатель 1-й дроби:');
var (c,d):=ReadInteger2('Введите числитель и знаменатель 2-й дроби:');
Writeln('Результат умножения: ',Frc(a,b)*Frc(c,d))
end.
2) ПО – совокупность программ, выполняемых компьютером. Роль – дает возможность пользоваться вычислительными мощностями
4) Взаимодействие пользователя с программами, взаимодействие программ и устройств, распределение ресурсов компьютера между запущенными процессами
6) Компьютерный вирус — это специально написанная вредоносная программа нанести ущерб данным на компьютере или вывести его из строя.
Для того чтобы не подвергнуть компьютер «заражению» вирусами и обеспечить надёжное хранение информации, необходимо соблюдать следующие простые правила:
1) установить на компьютер антивирусную программу и регулярно тестировать компьютер на наличие вирусов с её ;
2) регулярно обновлять антивирусную программу через Интернет;
3) перед считыванием информации со случайных носителей проверять их на наличие вирусов.