Міністерство освіти і науки України Національний технічний університет України “ Київський політехнічний інститут ” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 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 [ім’я автора приховано]'); 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. Результати співпадають, тому моя програма працює як треба.