ПАСКАЛЬ (Pascal) Блез (1623-62), один из самых знаменитых людей в истории человечества, французский математик, физик, религиозный философ и писатель. Сформулировал одну из основных теорем проективной геометрии. Работы по арифметике, теории чисел, алгебре, теории вероятностей. Сконструировал (1641 — 1642) суммирующую машину. Один из основоположников гидростатики, установил ее основной закон, названный его именем. Весьма религиозный человек, придерживался течения янсенизма, с 1655 вел полумонашеский образ жизни. Полемика с иезуитами отразилась в “Письмах к провинциалу” (1656-57) — шедевре французской сатирической прозы. В “Мыслях” (опубликованы в 1669) Паскаль развивает представление о трагичности и хрупкости человека, находящегося между двумя безднами — бесконечностью и ничтожеством (человек — “мыслящий тростник”). Путь постижения тайн бытия и человека от отчаяния видел в христианстве. Сыграл значительную роль в формировании французской классической прозы. В 1642 году французский математик Блез Паскаль «повторил» изобретение В. Шикарда. Его счетное устройство вошло в историю с именем «паскалево колесо», или «паскалина». Это был ящик с многочисленными шестеренками. При работе на «паскалине» складываемые числа вводились путем соответствующего поворота наборных колесиков. Паскаль всю жизнь работал над совершенствованием своего аппарата и построил более 50 различных его вариантов. А принцип, который он использовал в своих первых арифмометрах, стал основой, на которой строилось большинство вычислительных устройств на протяжении следующих трех столетий. Заслуга была достойно отмечена — в 1649 году Паскаль получил королевскую привилегию на изготовление и продажу своей машины. Надёжность в вычислениях и работе - главный критерий устройства, потому что даже до наших дней сохранилось восемь рабочих машин. Популярность и необычность их была такова, что им посвящались стихи...
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
uses NumLibABC;
begin var (num,denom):=ReadInteger2('Числитель и знаменатель 1-й дроби:'); var f1:=Frc(num,denom); (num,denom):=ReadInteger2('Числитель и знаменатель 2-й дроби:'); var f2:=Frc(num,denom); f1.Print; Write('* '); f2.Print; Write('= '); (f1*f2).Print end.
Примеры Числитель и знаменатель 1-й дроби: 4 9 Числитель и знаменатель 2-й дроби: 3 8 4/9 * 3/8 = 1/6
Числитель и знаменатель 1-й дроби: 32432424 10213133 Числитель и знаменатель 2-й дроби: 23123 12313123 32432424/10213133 * 23123/12313123 = 749934940152/125755562844359
Числитель и знаменатель 1-й дроби: 15 2 Числитель и знаменатель 2-й дроби: 8 15 15/2 * 8/15 = 4
