Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Програмування лінійного обчислювального процесу з використанням арифметичних виразів і операторів присвоєння
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
КН
Кафедра:
Не вказано
Інформація про роботу
Рік:
2005
Тип роботи:
Лабораторна робота
Предмет:
Інформаційні технології
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний університет „Львівська політехніка”
Інститут комп’ютерних наук та інформаційних технологій
Кафедра ПЗ
ЗВІТ
Лабораторна робота №2
Тема: ” Програмування лінійного обчислювального процесу з використанням арифметичних виразів і операторів присвоєння”
Львів - 2005
Мета роботи:
Засвоєння програмування лінійного обчислювального процесу, побудованого на використанні арифметичних виразів і операторів присвоєння.
Предмет лабораторної роботи складають:
способи побудови програми на мові Паскаль;
способи програмування арифметичних вирізів і присвоєння значення змінним;
правила обчислення на комп’ютері арифметичних вирізів і виконання операторів присвоєння.
Завдання:
Розробити програму на мові Паскаль і виконати на комп’ютері обчислення значень заданої функції для вибраного набору значень аргумента.
Вхідними даними є вигляд функції і значення її коефіцієнтів, що вибираються з таблиці відповідно до номера індивідуального завдання, а також спосіб обчислення поліномів (схема Горнера).
----------------------------------------------------------------------------------------------------------
Обчислення функції
Блок-схема алгоритму
Текст програми
program gorner;
uses crt;
const a0=7.3738;
a1=6.8650;
a2=3.0317;
a3=0.5831;
a4=0.0000;
b0=7.3739;
b1=15.184;
b2=-12.795;
b3=5.3542;
b4=1.0000;
var x,d0,d1,d2,d3,d4,d5,F,c0,c1,c2,c3,c4:real;
begin
ClrScr;
writeln('Vvedit x ,yakuj popadae v promizhok mizh x<=0.46875 i x<=4');
write('x='); readln(x);
d0:=a4*(sqr(x)*sqr(x));
d1:=a3*sqr(x)*x+d0;
d2:=a2*sqr(x)+d1;
d3:=a1*x+d2;
d4:=a0+d3;
d5:=exp(-x)*d4;
c0:=b4*sqr(x)*sqr(x);
c1:=b3*sqr(x)*x+c0;
c2:=b2*sqr(x)+c1;
c3:=b1*x+c2;
c4:=b0+c3;
F:=d5/c4;
if (x>=0.46875) and (x<=4) and (F>=0) and (F<1) then
writeln('f(',x:5:3,')=',F:5:3)
else
begin
writeln('!!! x mae nedopustyme znachennya !!!');
end;
writeln('Natysnit [ENTER] dlya vyhodu z programy!');
readln;
end.
end.
Протокол роботи програми
-----------------------------------------------------------------------------------------------
x=0.5
f(0.5)=0.565
-----------------------------------------------------------------------------------------------
x=5
x mae nedopustyme znachennya
09.02.2013 00:02-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора