Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Програми з розгалуженими та циклічними алгоритмами
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
ІКТА
Факультет:
Не вказано
Кафедра:
Захист інформації
Інформація про роботу
Рік:
2006
Тип роботи:
Звіт до лабораторної роботи
Предмет:
Алгоритмічні мови та програмування
Група:
ІБ-13
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
ІКТА
кафедра „ЗАХИСТ ІНФОРМАЦІЇ”
ЗВІТ
до лабораторної роботи №2 а)
З КУРСУ “АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ”
на тему: „Програми з розгалуженими та циклічними алгоритмами”
Варіант № 12
2. ПОВНИЙ ТЕКС ЗАВДАННЯ
Скласти блок-схемy алгоритмy та програмy мовою Турбо-Паскаль для табулювання функції, що вибирається залежно від значення аргументу:
на відрізку [0.5, 2] з кроком 0.2.
Забезпечити ввід значень інтервалу та кроку табулювання з клавіатури і вивід результатів на дисплей.
3. ОСТАТОЧНА ВЕРСІЯ БЛОК-СХЕМИ АЛГОРИТМУ
4. СПИСОК ІДЕНТИФІКАТОРІВ КОНСТАНТ, ЗМІННИХ, ПРОЦЕДУР І ФУНКЦІЙ, ВИКОРИСТАНИХ У ПРОГРАМІ, ТА ЇХ ПОЯСНЕННЯ
a, b, h, y – змінні типу real для зберігання введених даних та результату роботи;
clrscr – процедура очистки екрана яка об’явлена в модулі crt;
writeln – процедура виведення текстових повідомлень і значень змінних на екран;
readln – процедура яка зчитує дані з клавіатури та присвоює відповідне значення змінній або очікує натискання клавіші Enter;
exp(x) – функція яка обчислює експоненту числа;
ln(x) – функція для обчислення натурального логарифму числа x;
sin(x) – функція знаходження синуса кута x заданого в радіанах;
cos(x) – функція знаходження косинуса кута x заданого в радіанах;
arctan(x) – функція знаходження арктангенса від змінної х;
5. ОСТАТОЧНА ВЕРСІЯ ПРОГРАМИ
program lab2;
uses crt;
var a,b,h,y:real;
begin
clrscr;
Writeln('Vvedit interval [a,b], ta krok h:');
write('a = '); readln(a);
write('b = '); readln(b);
write('h = '); readln(h); writeln;
while (a<=b+h/2) do
begin
if (a<1) then y:=cos(exp((3/2)*ln(a)));
if ((1<=a) and (a<1.5)) then y:=arctan(exp(a));
if (a>=1.5) then y:=exp(5*ln(sin(ln(a))));
writeln('a = ',a:3:1,'; y = ',y:1:3);
a:=a+h;
end;
readln;
end.
6. РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ
Vvedit interval [a,b], ta krok h:
a = 0.5
b = 2
h = 0.2
a = 0.5; y = 0.938
a = 0.7; y = 0.833
a = 0.9; y = 0.657
a = 1.1; y = 1.249
a = 1.3; y = 1.305
a = 1.5; y = 0.010
a = 1.7; y = 0.033
a = 1.9; y = 0.077
28.01.2013 14:01-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора