Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа.
Блез Паскаль появился на свет 19 июня 1623 года в городке Клермон-Ферран на юге Франции.
в 1640 году свет увидел «Опыт теории конических сечений», ставший основополагающим трактатом для дальнейших трудов в области геометрии.
в 1642 году Блез занимался разработкой чудо-аппарата. Его арифмометр, сделанный по принципу античного таксометра, выглядел как ящик с многочисленными шестеренками и позволял производить расчеты с шестизначными числами, а подсчет производился в полуавтоматическом режиме.
В конце 1646 года Блез Паскаль, узнав о трубке, изобретенной Торричелли, стал увлекаться физикой. Ученый начал ставить эксперименты, доказывая, что гипотеза Аристотеля о «боязни пустоты» имеет пределы.
Блез видоизменил этот эксперимент и сделал заключение, что верхняя часть трубки не наполнена парами химического вещества, тонкой материей или иной субстанцией. Результаты своей работы Паскаль опубликовал в трактате «Новые опыты, касающиеся пустоты», а далее стремился прийти к выводу, что столбик с ядовитым металлом удерживается давлением воздуха.
Кроме того, Блез Паскаль выпустил в свет рукопись «Трактат о равновесии жидкостей» (1653), сформировал идею гидравлического пресса и установил основной закон гидростатики, опровергнув учение древнегреческого философа.
в 1652 году удостоился признания и славы, презентовав свою суммирующую машинку шведской королеве Кристине.
Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа.
Блез Паскаль появился на свет 19 июня 1623 года в городке Клермон-Ферран на юге Франции.
в 1640 году свет увидел «Опыт теории конических сечений», ставший основополагающим трактатом для дальнейших трудов в области геометрии.
в 1642 году Блез занимался разработкой чудо-аппарата. Его арифмометр, сделанный по принципу античного таксометра, выглядел как ящик с многочисленными шестеренками и позволял производить расчеты с шестизначными числами, а подсчет производился в полуавтоматическом режиме.
В конце 1646 года Блез Паскаль, узнав о трубке, изобретенной Торричелли, стал увлекаться физикой. Ученый начал ставить эксперименты, доказывая, что гипотеза Аристотеля о «боязни пустоты» имеет пределы.
Блез видоизменил этот эксперимент и сделал заключение, что верхняя часть трубки не наполнена парами химического вещества, тонкой материей или иной субстанцией. Результаты своей работы Паскаль опубликовал в трактате «Новые опыты, касающиеся пустоты», а далее стремился прийти к выводу, что столбик с ядовитым металлом удерживается давлением воздуха.
Кроме того, Блез Паскаль выпустил в свет рукопись «Трактат о равновесии жидкостей» (1653), сформировал идею гидравлического пресса и установил основной закон гидростатики, опровергнув учение древнегреческого философа.
в 1652 году удостоился признания и славы, презентовав свою суммирующую машинку шведской королеве Кристине.
Умер в 1662 году, Париж, Франция.
program Geom;
program Test_nn;
{$APPTYPE CONSOLE}
{$R *.res}
uses
Math;
var
a: array of Extended;
n, i, c: Integer;
x: Extended;
begin
Write ('Размерность массива = ');
ReadLn (n);
SetLength (a, n);
Randomize;
for i := Low (a) to High (a) do begin
a [i] := (Random (2001) - 1000) / 1000;
Write (a [i] :7 :3);
end;
x := 1;
c := 1;
WriteLn;
for i := Low (a) to High (a) do begin
if a [i] > 0 then begin
Write (a [i] :7 :3);
x := x * a [i];
Inc (c);
end;
end;
WriteLn;
WriteLn ('Среднее геометрическое = ', Power (x, 1/c) :20 :15);
ReadLn;
end.