Язык Паскаль был создан Никлаусом Виртом в 1968—1969 годах после его участия в работе комитета разработки стандарта языка Алгол-68. Язык назван в честь французского математика, физика, литератора и философа Блеза Паскаля, который создал первую в мире механическую машину, складывающую два числа.
Блез Паскаль появился на свет 19 июня 1623 года в городке Клермон-Ферран на юге Франции.
в 1640 году свет увидел «Опыт теории конических сечений», ставший основополагающим трактатом для дальнейших трудов в области геометрии.
в 1642 году Блез занимался разработкой чудо-аппарата. Его арифмометр, сделанный по принципу античного таксометра, выглядел как ящик с многочисленными шестеренками и позволял производить расчеты с шестизначными числами, а подсчет производился в полуавтоматическом режиме.
В конце 1646 года Блез Паскаль, узнав о трубке, изобретенной Торричелли, стал увлекаться физикой. Ученый начал ставить эксперименты, доказывая, что гипотеза Аристотеля о «боязни пустоты» имеет пределы.
Блез видоизменил этот эксперимент и сделал заключение, что верхняя часть трубки не наполнена парами химического вещества, тонкой материей или иной субстанцией. Результаты своей работы Паскаль опубликовал в трактате «Новые опыты, касающиеся пустоты», а далее стремился прийти к выводу, что столбик с ядовитым металлом удерживается давлением воздуха.
Кроме того, Блез Паскаль выпустил в свет рукопись «Трактат о равновесии жидкостей» (1653), сформировал идею гидравлического пресса и установил основной закон гидростатики, опровергнув учение древнегреческого философа.
в 1652 году удостоился признания и славы, презентовав свою суммирующую машинку шведской королеве Кристине.
Умер в 1662 году, Париж, Франция.
#include <iostream>
int main() {
const int SIZE = 10;
bool isSence = false;
int sum = 0;
int count = 0;
int arr[SIZE];
for (int i = 0; i < SIZE; i++)
{
arr[i] = rand() % 20 - 10; // "рандомно" заполняем массив от -10 до 10
std::cout << arr[i] << "\t"; // выводим массив в консоль
if (arr[i] >= 0)
isSence = true;
}
for (int i = 0; i < SIZE; i++)
{
if ((isSence) && (arr[i] > 0))
sum += arr[i]; //sum = sum + arr[i];
count++;
}
if (isSence)
std::cout << "\nсреднее арифметическое положительных чисел = " << double(sum) / count << std::endl; // явное приведение типов
else
std::cout << "\nВ массиве нету положительных чисел или нету нулей и/или отрицательных чисел" << std::endl;
return 0;
}
m:integer;
begin
read (m);
case m of
1: write ('Январь');
2: write ('Февраль');
3: write ('Март');
4: write ('Апрель');
5: write ('Май');
6: write ('Июнь');
7: write ('Июль');
8: write ('Август');
9: write ('Сентябрь');
10: write ('Октябрь');
11: write ('Ноябрь');
12: write ('Декабрь');
end;
end.