Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2006
Тип роботи:
Звіт
Предмет:
Алгоритмічні мови та програмування
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
ІКТА
Кафедра ЗІ
Звіт
до ЛАБОРАТОРНОЇ РОБОТИ № 2а
З КУРСУ:”Алгоритмічні мови та програмування” на тему:
“Програми з розгалуженими та циклічними алгоритмами”
Варіант 1
Мета роботи - вивчити оператори мови Турбо-Паскаль та основні процедури введення-виведеиня даних, навчитися складати та відлагоджувати розрахункові пробами з розгалуженими та циклічними алгоритмами.
Повний текст завдання
1. Скласти блок-схеми алгоритмів та програми мовою Турбо-Паскаль для табулювання функцій. Забезпечити ввід значень інтервалу, кроку і похибки табулювання з клавіатури і вивід результатів на дисплей. Дані для роботи беруться з таблиць 1 і 2 за вказівкою викладача:
б) Табулювання функції, представленої рядом, на інтервалі [a, b] з кроком табуляції h та абсолютною похибкою d. Оцінку похибки здійснювати за значенням модуля чергового члена ряду.
№ п/п
Функція
Інтервал, [a, b]
Крок, h
Похибка, d
1
[0.5, 0.7]
0.02
0.001
Остаточна версія блок-схеми алгоритму
a)
Так
ні
Список ідентифікаторів констант, змінних, процедур і функцій, використаних у блок-схемі алгоритму і програмі, та їх пояснення
a,b – змінні типу real, яким присвоюються значення кінців проміжку;
H - змінні типу real, якій присвоюються значення кроку табуляції;
d - змінна типу real, яка змінюється в діапазоні [a,b] з кроком h;
Y - змінна типу real, яка використовується для присвоєння значень виразу;
Write – процедура виводу тексту на дисплей;
While – оператор циклу з передумовою;
Read – процедура вводу змінних з клавіатури;
Abs(y) – функція модуль x;
Repeat until – оператор циклу з передумовою.
Остаточна версія програми
Program tab2b;
Var
b,a,h,d,x,s,y,k:real;
Begin
Write('Vvedit a='); Read(a);
Write('Vvedit b='); Read(b);
Write('Vvedit h='); Read(h);
Write('Vvedit d='); Read(d);
x:=a;
While x<=b+h/2 do
Begin
S:=0;
k:=1;
Repeat
y:=(x+2)/K*(K+2);
s:=s+y;
k:=k+1;
until abs(y)>d;
WriteLn('x=',x:3:2,' s=',s:3:2,' y=', abs(y):2:2);
x:=x+h;
end;
end.
Результати роботи програми
'Vvedit a=0.5
'Vvedit b=0.7
'Vvedit h=0.02
'Vvedit d=0.001
x=0.5 s=7.5 y= 7,5
x=0.52 s=7.56 y=7,56
x= 0.54 s=7,62 y=7,62
x= 0.56 s=7,68 y=7,68
x=0.58 s=7,74 y=7,74
x= 0.6 s=7,8 y=7,8
x=0.62 s=7,86 y=7,86
x=0.64 s=7,92 y=7,92
x=0.66 s=7,98 y=7,98
x=0.68 s=8,04 y=8,04
x=0.7 s=8,1 y=8,1
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора