Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Комп’ютеризовані системи
Кафедра:
Не вказано
Інформація про роботу
Рік:
2001
Тип роботи:
Лабораторна робота
Предмет:
Алгоритмічні мови та програмування
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
ПРОГРАМИ З РОЗГАЛУЖЕНИМИ ТА ЦИКЛІЧНИМИ АЛГОРИТМАМИ
ЛАБОРАТОРНА РОБОТА № 2 : Частина А
З КУРСУ “АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ”
для студентів спеціальності 6.0914
“Комп’ютеризовані системи, автоматика і управління”
Львів – 2001
ПОВНИЙ ТЕКСТ ЗАВДАННЯ
1. Вивчити синтаксис, призначення., принцип роботи і використання операторів мови Турбо-Паскаль та основних процедур введення-виведення.
2. Скласти блок-схеми алгоритмів та програми мовою Турбо-Паскаль для табулювання функцій. Забезпечити ввід значень інтервалу, кроку і похибки табулювання з клавіатури і вивід результатів на дисплей. Дані для роботи беруться з таблиць 1 і 2 за вказівкою викладача:
а) табулювання функції (див. табл.1), що вибирається залежно від значення аргументу, на проміжку [а, b] з кроком табуляці h.
Таблиця 1
№ п/п
Функції
Умови для вибору функцій
Крок, h
Інтервал, [a,b]
3
0.2
[4, 6]
ОСТАТОЧНА ВЕРСІЯ БЛОК-СХЕМИ АЛГОРИТМУ
y:=1/sin(sqr(x)); i:=i+1;x1[i]:=x;y1[i]:=y;
x:=x+h;
y:=x+ln(sqrt(exp(7*ln(x))));
i:=i+1;
x1[i]:=x;
y1[i]:=y;
x:=x+h;
СПИСОК ІДЕНТИФІКАТОРІВ КОНСТАНТ, ЗМІННИХ, ПРОЦЕДУР ТА ФУНКЦІЙ, ВИКОРИСТАНИХ У БЛОК-СХЕМІ АЛГОРИТМУ ПРОГРАМИ
СПИСОК :
A
B
X
Y
I
X1
Y1
ПОЯСНЕННЯ ІДЕНТИФІКАТОРІВ ЗМІННИХ :
Y – значення функції
X – значення аргументу
A – ліва крайня межа табулювання
B – права крайня межа табулювання
I – лічильник
X1 – масив для зберігання значень аргументу
Y1 – масив для зберігання значень функції
ОСТАТОЧНА ВЕРСІЯ ПРОГРАМИ
Program Lab_2;
uses crt;
const h=0.2;
a=4;
b=6;
type y1_1=array[1..10] of real;
x1_1=array[1..10] of real;
var x,y:real;
i:integer;
y1:y1_1;
x1:x1_1;
begin
clrscr;
x:=a;
i:=0;
writeln;
while x<4.5 do begin y:=1/sin(sqr(x));
i:=i+1;
x1[i]:=x;
y1[i]:=y;
x:=x+h;end;
write(' Y Result : X Result : ');
writeln;
writeln;
for I:=1 to i do writeln(' ',y1[i]:4:2,' ',x1[i]:4:2);
i:=0;
x:=4.6;
while (x>=4.5) and (not(x>4.9)) do begin y:=x+ln(sqrt(exp(7*ln(x))));
i:=i+1;
x1[i]:=x;
y1[i]:=y;
x:=x+h;end;
for I:=1 to i do writeln(' ',y1[i]:4:2,' ',x1[i]:4:2);
i:=0;
x:=5;
while (x>=5) and (x<b) do begin y:=ln(exp(x)+4)/ln(10);
i:=i+1;
x1[i]:=x;
y1[i]:=y;
x:=x+h;end;
for I:=1 to i do writeln(' ',y1[i]:4:2,' ',x1[i]:4:2);
end.
РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ
Y Result : X Result :
-3.47 4.00
-1.07 4.20
2.05 4.40
9.94 4.60
10.29 4.80
2.18 5.00
2.27 5.20
2.35 5.40
2.44 5.60
2.52 5.80
2.61 6.00
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора