Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“ Київський політехнічний інститут ”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № 1
з дисципліни
“ Основи програмування та алгоритмічні мови ”
Тема: обчислення арифметичних виразів
Постановка задачі
За заданими двома сторонами трикутника і куту (в градусах) між ними знайти довжину третьої сторони цього трикутника.
Аналітичні викладки
Переведення градусної міри кута до радіанної:
1° = π/180 рад (радіан)
х° = х*π/180 рад (радіан)
Теорема косинусів:
a^2 = b^2 + c^2 – 2*b*c*cos(α).
a = sqrt(b^2+c^2-2*c*b*cos(a))
Текст програми з коментарями
program Opredelenie_3_Storonu_Po_2_Storonam_I_Uglu_Megdu_Nimi;
uses crt;
var a,b,c:real; {a,b-izvestnue storoni; c-iskomaya}
Ugol_Rad,Ugol_Grad:real; {ugol v radiannoy i gradusnoy merax!}
begin
repeat
clrscr;
writeln('Result of laboratory work 1');
writeln('variant 4');
writeln('Executed student of group IP-02 Bondur Vladislav');
write('vvedite 2 storonu treugol`nika: ');
read(a,b);
writeln('vvedite ugol v gradusax!');
readln(Ugol_Grad);
Ugol_Rad:=Ugol_Grad*Pi/180;
if (Ugol_Grad<=0) or (Ugol_Grad>=180)
then
writeln('Error! Ugol ne vxodit v promejutok (0..180)')
else
begin
c:=sqrt(sqr(a)+sqr(b)-2*a*b*cos(Ugol_Rad));
writeln('tretb9 storona = ',c:10:5);
end;
writeln('Dlya vixoda iz programmi nagmite Esc!');
writeln('Chtobi povtorutb raboty programmy nagmite lubuy druguy knopky');
until ord(readkey)=27
end.
Блок-схема алгоритму
Результат виконання програми у вигляді відеокопії екрана
/
Висновки
Отже, перевіримо, чи правильно працює моя програма:
Нехай дві сторони трикутника a=3, b=4, а кут у градусах Ugol_grad=90°. Тоді, за теоремою косинусів: с=5.
Результати співпадають, тому моя програма працює як треба.