Код программы

1 2 3 4

USES CRT;

Var

A, B, C, Y, S: REAL;

Begin

CLRSCR;

TextColor(8);

Writeln('The program finds a third party of the other two and the angle between them');

TextColor(20);

Writeln('Press "ENTER" to contine...');

ReadLN;

TextColor(9);

Writeln('Enter to 1th party'); READLN(A);

Writeln('Enter to 2th party'); READLN(B);

Writeln('Enter angle between on A and B party'); READLN(Y);

TextColor(2);

Writeln('-------------------');

TextColor(8);

Writeln('You entered:');

TextColor(2);

Writeln('-------------------');

TextColor(8);

Writeln('1th party - ',A:4:3);

Writeln('2th party - ',B:4:3);

Writeln('Angle between on 1th and 2th - ',Y:4:3);

TextColor(2);

Writeln('-------------------');

TextColor(3);

Writeln('Press "ENTER" to find 3th party...');

ReadLN;

Y:= Y * Pi / 180;

C:= SQRT(SQR(A) + SQR(B) - 2 * A * B * COS(Y));

TextColor(2);

Writeln('-------------------');

TextColor(8);

Writeln('Result:');

TextColor(2);

Writeln('-------------------');

TextColor(8);

Writeln('3th party = ',C:4:3);

Writeln('-------------------');

TextColor(3);

Writeln('Press "ENTER" to find area...');

ReadLN;

S:= A * B * SIN(Y) / 2;

TextColor(2);

Writeln('-------------------');

TextColor(8);

Writeln('Result:');

TextColor(2);

Writeln('-------------------');

TextColor(8);

Writeln('Area = ',S:4:3);

Writeln('-------------------');

TextColor(20);

Writeln('Press "ENTER" to EXIT!');

ReadLN;

END.

Инструкция пользователя

Данная программа предназначена для нахождения стороны треугольника по двум другим сторонам и углу между ними. Так же можно найти площадь этого треугольника.

Для того, чтобы использовать эту программу нужно запустить файл с именем LAB-6.exe и ввести размер сторон треугольника и угла между ними. После ввода на экране появятся эти значения. После того, как всё ввели и посмотрели, что ввели, нажимаем на клавишу «ENTER» и получаем третью сторону треугольника. Затем нажимаем вновь на «ENTER» и получаем площадь этого же треугольника.

Инструкция программиста

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

Таблица 1 – Структуры данных, используемых в программе

Имя	Тип	Назначение
A	Real	Первая сторона треугольника
B	Real	Вторая сторона треугольника
C	Real	Третья сторона треугольника
Y	Real	Угол между первой и второй стороной
S	Real	Площадь треугольника