Коробкова1437
?>

Составить программу , которая сложить две дроби! нужно сначала к общему знаменателю ! паскаль !

Информатика

Ответы

sgritsaev
// PascalABC.NET 3.3, сборка 1607 от 31.12.2017
// Внимание! Если программа не работает, обновите версию!

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,b):=((a div d)*sgna,(b div d)*sgnb)
end;

begin
  var (a,b):=ReadInteger2('Числитель и знаменатель 1-й дроби:');
  var (c,d):=ReadInteger2('Числитель и знаменатель 2-й дроби:');
  var (p,q):=(a*d+b*c,b*d);
  RedFrac(p,q);
  Writeln('Результат: ',p,'/',q)
end.

Пример
Числитель и знаменатель 1-й дроби: -135 36
Числитель и знаменатель 2-й дроби: 31 60
Результат: -97/30

Составить программу , которая сложить две дроби! нужно сначала к общему знаменателю ! паскаль !
dinadumno2114
Программа и скриншот как она работает в приложениях.
Составить программу , которая сложить две дроби! нужно сначала к общему знаменателю ! паскаль !
Дмитриевич_Скрябин931

Резервное копирование в облако: преимущества...рассказываем о преимуществах и недостатках резервного копирования в облако. ... Резервное копирование в облако: преимущества и недостатки. 15 января 2019. Безопасность, сохранность и оперативность доступа к данным очень важны для бизнеса. ... Часто предприятию требуется в технической экспертизе, чтобы использовать и правильно настроить-решения для бизнес-критичной информации. Локальное копирование обходится недёшево, тем не менее, такой не всегда эффективен. А между тем, различные аварии, отказы оборудования и катастрофы могут происходить внезапно ну как то так

yelenaSmiryagin

Объяснение:

Платные программы Бесплатные программы (freeware) Операционные системы (для компьютеров) Windows Самая ра операционная система. Легко установить. Понятный интерфейс. Большинство программ работают именно под этой системой. Стоимость: от 3 500 руб. ОС Windows - официальный сайт Есть возможность получить пробную версию системы MacOS Удобная система от Apple, но программы на неё тяжело искать, иногда невозможно. Тем, кто привык к Виндовс, придётся переучиваться. MacOS более безопасна. Стоимость: от 57 000 руб. (поставляется только с устройствами, купить отдельно невозможно).

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Составить программу , которая сложить две дроби! нужно сначала к общему знаменателю ! паскаль !
Ваше имя (никнейм)*
Email*
Комментарий*

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

tatyanaryzhkova
ver2bit29
reinish23
Щуплова Александр
abramovae
Исакова-Александрович511
murza2007
peshnoshamon
Bondarev_Ayupova795
stepanova-natalie
gk230650
Филипп1054
yurazharov
kulttrop
Татьяна_Вологжин