Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
ПРОГРАМИ З РОЗГАЛУЖЕНИМИ ТА ЦИКЛІЧНИМИ АЛГОРИТМАМИ
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра захисту інформації
Інформація про роботу
Рік:
2006
Тип роботи:
Звіт до лабораторної роботи
Предмет:
Алгоритмічні мови і програмування
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
ІКТА, кафедра “Захисту інформації”
ЗВІТ
З ЛАБОРАТОРНОЇ РОБОТИ № 2
З КУРСУ “АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ”
ПРОГРАМИ З РОЗГАЛУЖЕНИМИ
ТА ЦИКЛІЧНИМИ АЛГОРИТМАМИ
кафедра “Автоматика і
телемеханіки”
Львів – 2006
Мета роботи - вивчити оператори мови Турбо-Паскаль та основні процедури введення-виведеиня даних, навчитися складати та відлагоджувати розрахункові пробами з розгалуженими та циклічними алгоритмами.
ЗАВДАННЯ
1. Вивчити синтаксис, призначення., принцип роботи і використання операторів мови Турбо-Паскаль та основних процедур введення-виведення.
2. Скласти блок-схеми алгоритмів та програми мовою Турбо-Паскаль для табулювання функцій. Забезпечити ввід значень інтервалу, кроку і похибки табулювання з клавіатури і вивід результатів на дисплей. Дані для роботи беруться з таблиць 1 і 2 за вказівкою викладача:
а) табулювання функції (див. табл.1), що вибирається залежно від значення аргументу, на проміжку [а, b] з кроком табуляці h.
Таблиця 1
24
0.2
[2, 5]
Текст програми мовою Pascal
Program Lab2;
Uses crt;
Var a, b, h, x, y : real;
Begin
Clrscr:
Writeln(‘vvedit krok’);
Readln(h);
Writeln(‘vvedit minimalne x’);
Readln(a);
Writeln(‘vvedit maximalne x’);
Readln(b);
x:=a;
while x<=b do
begin
if x<5 then
y:= ln(ABS(ln(ABS(ln(x)))/ln(3)/ln(4))/ln(5);
if (x>=5) and (x<7) then
y:=1/(sqr(x)+16);
if x>=7 then
y:=ln(x)+cos(x);
begin
writeln (‘y=’,y:4:2, ‘ x=’,x:4:2 );
x:=x+h;
end;
end;
readln;
End.
Результати виконання роботи:
y=-1.73 x=3.00
y=-1.19 x=3.50
y=-0.96 x=4.00
y=-0.82 x=4.50
y=0.02 x=5.00
y=0.02 x=5.50
y=0.02 x=6.00
y=0.02 x=6.50
y=2.70 x=7.00
y=2.36 x=7.50
y=1.93 x=8.00
Таблиця ідентифікаторів, які використовуються
а
Початкова точка, в якій обчислити значення функції (тип REAL)
b
Кінцева точка, в якій обчислити значення функції (тип REAL)
y
Значення функції, яке обчислюється за допомогою стандартних функцій (тип REAL)
h
Крок зміни аргументу x
x
Змінна, в якій обчислюється значення функції (тип REAL)
Висновок: На цій лабораторній роботі я вивчав оператори мови Турбо-Паскаль та основні процедури введення-виведеиня даних, вчився складати та відлагоджувати розрахункові пробами з розгалуженими та циклічними алгоритмами
БЛОК-СХЕМА
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора