Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Програмування лінійного обчислювального процесу з використанням арифметичних виразів і операторів присвоєння
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Не вказано
Кафедра:
Програмного забезпечення (ПЗ)
Інформація про роботу
Рік:
2006
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови
Група:
КН
Варіант:
6
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти та науки України
Національний університет «Львівська політехніка»
Інститут комп’ютерних наук та інформаційних технологій
Кафедра ПЗ
З В І Т
Лабораторна робота № 2
з курсу «Основи програмування та алгоритмічні мови»
Тема: «Програмування лінійного обчислювального процесу з використанням арифметичних виразів і операторів присвоєння»
Варіант 6
Виконав: ст. гр. КН-1
Львів-2006
Мета роботи:
Засвоїти програмування лінійного обчислювального процесу, побудованого на використанні арифметичних виразів і операторів присвоєння
Завдання:
Розробити програму на мові Паскаль і виконати на комп’ютері обчислення значень заданої функції для вибраного набору значень аргумента.
Вхідними даними є вигляд функції і значення її коефіцієнтів, що вибираються з таблиці відповідно до номера індивідуального завдання, а також спосіб обчислення поліномів (схема Горнера).
Розрахункові формули для схеми Горнера мають вигляд:
; ; … ; …
; ; ;
Постановка задачі:
Обчислити функцію при
Блок-схема алгоритму
Текст програми
{Laboratorna robota N2 Variant 6}
Program Lab2;
uses Crt;
const a0=7.3738;
a1=6.8650;
a2=3.0317;
a3=0.5631;
a4=0;
b0=7.3739;
b1=15.184;
b2=12.795;
b3=5.3542;
b4=1;
var d0,d1,d2,d3,d4,c0,c1,c2,c3,y,x:real;
Begin
ClrScr;
writeln ('vvedit x (0.46875<=x<=4)');
write (' x=');
readln (x);
if (x>=0.46875) and (x<=4) then
Begin
d0:=a4*x;
d1:=x*(a3+d0);
d2:=x*(a2+d1);
d3:=x*(a1+d2);
d4:=a0+d3;
c0:=b4*x;
c1:=x*(b3+c0);
c2:=x*(b2+c1);
c3:=x*(b1+c2);
y:=exp(-x)*d4/(b0+c3);
writeln ('y=',y);
if (y>=0) and (y<1) then
writeln ('y zadovolnjae ymovy zadachi')
else
writeln ('y ne zadovolnjae ymovy zadachi')
end
else
writeln ('x ne zadovolnjae ymovy');
readkey;
end.
Протокол роботи програми
-----------------------------------------------------------------------------------------------
Введіть Х (0.46875<=x<=4)
Х=2
У=3,456
у задовольняє умову задачі
-----------------------------------------------------------------------------------------------
Введіть Х (0.46875<=x<=4)
Х=6
Х не задовольняє умову задачі
-----------------------------------------------------------------------------------------------
Введіть Х (0.46875<=x<=4)
х=4
у=2,508
у задовольняє умову задачі
-----------------------------------------------------------------------------------------------
Висновок:
На даній лабораторній роботі я засвоїв програмування лінійного обчислювального процесу, побудованого на використанні арифметичних виразів і операторів присвоєння
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора