Міністерство освіти та науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ З В І Т Лабораторна робота № 2 з курсу «Основи програмування та алгоритмічні мови» Тема: «Програмування лінійного обчислювального процесу з використанням арифметичних виразів і операторів присвоєння» Варіант 6 Львів-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 у задовольняє умову задачі ----------------------------------------------------------------------------------------------- Висновок: На даній лабораторній роботі я засвоїв програмування лінійного обчислювального процесу, побудованого на використанні арифметичних виразів і операторів присвоєння