МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА” ІКТА кафедра „ЗАХИСТ ІНФОРМАЦІЇ”
ЗВІТ до лабораторної роботи №1 З КУРСУ “АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ” на тему: „Прості програми та лінійні структури” Варіант № 12 Львів - 2006 2. ПОВНИЙ ТЕКС ЗАВДАННЯ Скласти блок-схему алгоритму та програму мовою Турбо-Паскаль для розрахунку значення виразу:
при x=0.067, y=3.017 Забезпечити ввід значень аргументів з клавіатури і вивід результату розрахунку на дисплей. 3. ОСТАТОЧНА ВЕРСІЯ БЛОК-СХЕМИ АЛГОРИТМУ 4. СПИСОК ІДЕНТИФІКАТОРІВ КОНСТАНТ, ЗМІННИХ, ПРОЦЕДУР І ФУНКЦІЙ, ВИКОРИСТАНИХ У ПРОГРАМІ, ТА ЇХ ПОЯСНЕННЯ x, y, r – змінні типу real для зберігання введених даних та результату роботи; clrscr – процедура очистки екрана яка об’явлена в модулі crt; writeln – процедура виведення текстових повідомлень і значень змінних на екран; readln – процедура яка зчитує дані з клавіатури та присвоює відповідне значення змінній або очікує натискання клавіші Enter; exp(x) – функція яка обчислює експоненту числа x; ln(x) – функція для обчислення натурального логарифму числа x; sin(x) – функція знаходження синуса кута x заданого в радіанах; cos(x) – функція знаходження косинуса кута x заданого в радіанах; 5. ОСТАТОЧНА ВЕРСІЯ ПРОГРАМИ program Lab1; uses crt; var x,y,r:real; begin clrscr; writeln('Vvedit x: '); readln(x); writeln('Vvedit y: '); readln(y); r:= 137*exp(3*ln(x)) + cos(exp(3*ln(y))/exp(4*ln(x))) + sin(14*y)/cos(14*y) - 7*exp(6*ln(x)); writeln('r=',r:2:5); readln; end. 6. РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ. Vvedit x: 0.067 Vvedit y: 3.017 r=5.19527