Процедуры и функции

112.	Даны координаты трех вершин треугольника. Найти дины всех его сторон.
113.	Вычислить: z=f(sin a, b) + f(cos a, b) + f (sin2 a, b-1) + f(sin a - cos a, b2 - 1) + f(sin2 a-1, cos a+b), где
114.	Что напечатает следующая программа: program vlzl; var a,b: integer; procedure f1 (x,y: integer); begin y:=2*x+3; end; procedure f2 (var x,y: integer); begin y:=3*x+1; end; begin a:=1; b:=3; f1(a,b); writeln ('a=',a,'b=',b); f2(a,b); writeln ('a=',a,'b=',b); end.
115.	Используя процедуру решения квадратного уравнения, напишите программу решения биквадратного уравнения с коэффициентами a, b и c (a≠0).
116.	Даны координаты вершин треугольника и точки внутри него. Найти расстояние от данной точки до ближайшей стороны треугольника.
117.	Используя процедуру, вычислить значение выражения: y = a1x^4 + a2x^3 + a3x^2 + a4x + a5, где коэффициенты а1, a2, a3, a4, a5 и х – это числа, вводимые с клавиатуры.
118.	Составить программу нахождения наибольшего общего делителя нескольких чисел, например 3, используя функцию нахождения НОД двух чисел.
119.	Дано натуральное число N. Среди чисел 1, 2, 3, …., N найти все, которые можно представить в виде суммы квадратов двух натуральных чисел. (Определите процедуру, позволяющую распознавать полные квадраты).

Графика Турбо Паскаль

120.	Нарисовать "кораблик".
121.	Нарисовать диаграмму
122.	Нарисовать
123.	Составить программу, рисующую десять вложенных друг в друга кубиков.
124.	Используя генератор случайных чисел, нарисовать картинку "звездное небо".
125.	Составить программу, рисующую по главной диагонали (с левого верхнего угла в правый нижний угол) экрана 6 окружностей.
126.	Составить программу, рисующую 10 вложенных эллипсов.
127.	Составить программу, рисующую на экране 20 дуг разного радиуса и длины.
128.	Построить график функции:
129.	Напишите программу движения шарика по синусоиде.
130.	Нарисуйте концентрические окружности:

Одномерные массивы.

131.	Найти сумму положительных элементов массива.
132.	Найти максимальный элемент массива и его номер при условии, что все элементы массива различны.
133.	Найти минимальный элемент массива.
134.	Найти номера отрицательных элементов (вывести их на экран), если таких нет, то сообщить об этом.
135.	Сколько элементов массива превосходят по модулю заданное число А.
136.	Найти количество нечетных элементов.
137.	Найти количество отрицательных элементов массива.
138.	При выводе на экран элементов массива: а) после каждого элемента, кроме последнего, поставить точку; б) пропустить все отрицательные; в) удалить все отрицательные элементы.
139.	Упорядочить массив А(N) по возрастанию.
140.	Расположить элементы целочисленного массива по убыванию.
141.	Имеется массив Х. Определить индексы отрицательных элементов данного массива. Массив Х содержит m элементов.
142.	Вычислить сумму элементов массива C, стоящих на нечетных местах. Массив С содержит 10 элементов.
143.	Для целочисленного массива А, содержащего 10 элементов, определить, кратна ли сумма его элементов 7.
144.	Элементы массива А(К) получить по формуле: y=2*x^2-5*x+6. Найти сумму элементов, имеющих номера индексов кратных 3.
145.	Вычислить среднее арифметическое и среднее геометрическое элементов массива С(n).
146.	Для целочисленного массива Y вычислить среднее геометрическое элементов, кратных трем. Массив Y содержит К элементов.
147.	Дан массив В из десяти элементов. Организовать новый массив, элементы которого расположены в обратном порядке.
148.	Элементы массива А, удовлетворяющие условию А(i)>5.5, переписать в массив В, а элементы, удовлетворяющие условию А(i)<=5.5, переписать в массив С. В массиве А m элементов.
149.	Расположить в массиве R сначала положительные, а затем отрицательные элементы массива Z(12).
150.	Из массива Х, содержащего 15 элементов, в массив Y переписать подряд отрицательные элементы.
151.	Дан одномерный массив. Переставить в обратном порядке элементы массива, расположенные между минимальным и максимальными элементами.
152.	Дан массив целых чисел (n=20), заполненный случайным образом числам из промежутка [-45, 95]. а) удалить из него все элементы, кратные 7 и принадлежащие промежутку [a, n] (a и b вводить с клавиатуры); б) вставить число k между всеми соседними элементами, которые образуют пару элементов с одинаковыми знаками (k вводить с клавиатуры); в) переставить в обратном порядке часть массива между элементами с номерами k1 и k2, включая их. Сделать проверку корректности ввода k1 и k2, если ввод неправильный, то ничего не делать.