Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2006
Тип роботи:
Звіт
Предмет:
Алгоритмічні мови та програмування
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Ікта
Кафедра ЗІ
Звіт
до ЛАБОРАТОРНОЇ РОБОТИ № 2а
З КУРСУ:”Алгоритмічні мови та програмування” на тему:
“Програми з розгалуженими та циклічними алгоритмами”
Мета роботи - вивчити оператори мови Турбо-Паскаль та основні процедури введення-виведеиня даних, навчитися складати та відлагоджувати розрахункові пробами з розгалуженими та циклічними алгоритмами.
Повний текст завдання.
1. Скласти блок-схеми алгоритмів та програми мовою Турбо-Паскаль для табулювання функцій. Забезпечити ввід значень інтервалу, кроку і похибки табулювання з клавіатури і вивід результатів на дисплей. Дані для роботи беруться з таблиць 1 і 2 за вказівкою викладача:
а) табулювання функції (див. табл.1), що вибирається залежно від значення аргументу, на проміжку [а, b] з кроком табуляці h.
Таблиця 1
п/п
Функції
Умови для вибору функцій
Крок, h
Інтервал, [a,b]
1
0.02
[0.5, 0.9]
Остаточна версія блок-схеми алгоритму.
a)
Список ідентифікаторів констант, змінних, процедур і функцій, використаних у блок-схемі алгоритму і програмі, та їх пояснення.
a,b – змінні типу real, яким присвоюються значення кінців проміжку;
H - змінні типу real, якій присвоюються значення кроку табуляції;
X - змінна типу real, яка змінюється в діапазоні [a,b] з кроком h;
Y - змінна типу real, яка використовується для присвоєння значень виразуя;
Clrscr – процедура очищення екрану;
Write – процедура виводу тексту на дисплей;
Writeln - процедура виводу тексту на дисплей (курсор переходить на новий рядок);
Read – процедура вводу змінних з клавіатури;
Readln – процедура вводу змінних з клавіатури(курсор переходить на новий рядок);
Readkey – процедураочікування натискання клавіші з клавіатури;
Cos(x) – функція знаходження косинуса х;
Sin(x) - функція знаходження синуса x;
Arctan(x) - функція знаходження Arctan(x)
Остаточна версія програми.
PROGRAM lab2A;
USES crt;
Var x,y,a,b,h:real;
BEGIN
clrscr;
writeln('Vvedit chislo a=');
read(a);
writeln('Vvedit chislo b=');
read(b);
writeln('Vvedit chislo h=');
read(h);
X:=a;
While x<b+h do
Begin
If X<0.6 then y:=cos(sqrt(x));
If (x>0.6) and (x<0.7) then
Y:=cos(x*x)/sin(x*x);
If x>=0.7 then y:=arctan(x*x*x);
Writeln(‘X=’,x:4:3,’y=’,y:4:2);
end;
readkey;
end.
Результати роботи програми
'Vvedit chislo a=0.5
'Vvedit chislo b=0.9
'Vvedit chislo h=0.02
x=0.5 y= 0.76 x= 0.82 y=0.5
x=0.52 y=0.75 x= 0.84 y=0.54
x= 0.54 y=0.74 x= 0.86 y=0.57
x= 0.56 y=0.73 x= 0.88 y=0.6
x=0.58 y=0.72 x= 0.9 y=0.63
x= 0.6 y=2.66
x=0.62 y=2.47
x=0.64 y=2.3
x=0.66 y=2.15
x=0.68 y=2.01
x=0.7 y=0.33
x=0.72 y=0.36
x=0.74 y=0.39
x=0.76 y=0.41
x=0.78 y=0.44
x= 0.8 y=0.47
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора