Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Прості програми та лінійні структури
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
ІКТА
Факультет:
Не вказано
Кафедра:
Захист інформації
Інформація про роботу
Рік:
2006
Тип роботи:
Звіт до лабораторної роботи
Предмет:
Алгоритмічні мови та програмування
Група:
ІБ-13
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
ІКТА
кафедра „ЗАХИСТ ІНФОРМАЦІЇ”
ЗВІТ
до лабораторної роботи №1
З КУРСУ “АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ”
на тему: „Прості програми та лінійні структури”
Варіант № 12
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
28.01.2013 14:01-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора