Практическое задание N 1. 28

Написать и отладить программы с использованием процедур:

1. Вывести на экран визитную карточку программиста с указанием текущей даты.

2. Вывести на экран визитную карточку программиста с указанием времени.

Примечание к п. п. 1, 2 :рассмотреть случаи задания фамилии разработчика в качестве глобального, локального и формального параметра.

3. Рассчитать массив из N значений функции Y= ex + Cos(x) при изменении аргумента с постоянным шагом в диапазоне x1. . x2, и записи массива в файл. Значения N, x1, x2 и имя файла задаются оператором ввода

4. Рассчитать массив из N значений функции Y=ln(x) - x³ при изменении аргумента с постоянным шагом в диапазоне x1. . x2, и записи массива в файл. Значения N, x1, x2 и имя файла задаются оператором ввода.

5. Создать единичную матрицу NxN (N<=50). Элементы матрицы на главной диагонали равны единице, остальные - нулю. Вывести на экран массив 20х20.

6. Заменить элементы матрицы NxN (N<=30), расположенных в строках на элементы, расположенные в столбцах, т. е. a[i, j] на a[j, i]. Вывести на экран исходный и транспонированный массивы размером 10х10.

Приведем пример функции для расчета высоты треугольника по заданным значениям его сторон.

Program TR;

Var a, b, c, ha, hb, hc: real;

{----------------------------------------------------------------}

Function H_TR(a, b, c: real): real;{ a, b, c - Стороны треугольника }

Var p, s: real;

Begin

If (a<0) or (b<0) or (c<0) Then begin

Writeln('Стороны треугольника >0 ?'); readln; Halt end;

If (a>(b+c)) or (b>(a+c)) or (c>(a+b)) Then begin

Writeln('a<(b+c), b<(a+c), c<(a+b) ?'); readln; Halt end;

p:= (a+b+c)/2;{ полупериметр }

s:= Sqrt(p*(p-a)*(p-b)*(p-c));{ площадь }

H_TR:= 2*s/a;{ Присвоение функции значения }

End;

{----------------------------------------------------------------}

Begin

Writeln('Введите значения сторон треугольника a,b,c'); Readln(a,b,c);

ha:= H_TR(a, b, c); hb:= H_TR(b, a, c); hc:= H_TR(c, b, a);

Writeln('Высоты треугольника:');

Writeln('ha=',ha:-10:4, 'hb=',hb:-10:4, 'hc=',hc:-10:4); Readln

End.

В программе трижды вызывается функция расчета высоты треугольника для различных комбинаций фактических параметров, что позволяет вычислить все высоты треугольника.