Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Програми з розгалуженими та циклічними алгоритмами
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
ІКТА
Факультет:
Не вказано
Кафедра:
Захист інформації
Інформація про роботу
Рік:
2006
Тип роботи:
Звіт до лабораторної роботи
Предмет:
Алгоритмічні мови та програмування
Група:
ІБ-13
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ “ЛЬВІВСЬКА ПОЛІТЕХНІКА”
ІКТА
кафедра „ЗАХИСТ ІНФОРМАЦІЇ”
ЗВІТ
до лабораторної роботи №2 б)
З КУРСУ “АЛГОРИТМІЧНІ МОВИ І ПРОГРАМУВАННЯ”
на тему: „Програми з розгалуженими та циклічними алгоритмами”
Варіант № 12
2. ПОВНИЙ ТЕКСТ ЗАВДАННЯ
Скласти блок-схемy алгоритмy та програмy мовою Турбо-Паскаль для табулювання функції, представленої рядом:
при a = 1; b=2; h=0.1; d=0.001;
на інтервалі [a, b] з кроком табуляції h та абсолютною похибкою d. Оцінку похибки здійснювати за значенням модуля чергового члена ряду.
Забезпечити ввід значень інтервалу, кроку табулювання та похибки з клавіатури і вивід результатів на дисплей.
3. ОСТАТОЧНА ВЕРСІЯ БЛОК-СХЕМИ АЛГОРИТМУ
4. СПИСОК ІДЕНТИФІКАТОРІВ КОНСТАНТ, ЗМІННИХ, ПРОЦЕДУР І ФУНКЦІЙ, ВИКОРИСТАНИХ У ПРОГРАМІ, ТА ЇХ ПОЯСНЕННЯ
a, b, h, d, y, sum – змінні типу real для зберігання введених даних та результату роботи;
k – змінна типу integer;
clrscr – процедура очистки екрана яка об’явлена в модулі crt;
writeln – процедура виведення текстових повідомлень і значень змінних на екран;
readln – процедура яка зчитує дані з клавіатури та присвоює відповідне значення змінній або очікує натискання клавіші Enter;
exp(x) – функція яка обчислює експоненту числа;
ln(x) – функція для обчислення натурального логарифму числа x;
cos(x) – функція знаходження косинуса кута x заданого в радіанах;
abs(x) – функція яка повертає значення модуля змінної x.
mod – операція для знаходження остачі від ділення.
5. ОСТАТОЧНА ВЕРСІЯ ПРОГРАМИ
program lab3;
uses crt;
var a,b,h,d,y,sum:real;
k:integer;
begin
clrscr;
writeln('Vvedit interval [a,b], krok [h] ta pohubky [d]');
write('a = '); readln(a); write('b = '); readln(b);
write('h = '); readln(h); write('d = '); readln(d); writeln;
while (a<=b+h/2) do
begin
sum:=0; k:=1;
repeat
y:=exp(4*ln(abs(cos(exp(k*ln(2))*a))))/exp(2*k*ln(2));
if (k mod 2 =1) then y:=-y;
k:=k+1; sum:=sum+y;
until (abs(y)<d);
writeln('x = ',a:3:1,' sum = ',sum:2:4, ' y = ',abs(y):2:6);
a:=a+h;
end;
readln;
end.
6. РЕЗУЛЬТАТИ РОБОТИ ПРОГРАМИ
Vvedit interval [a,b], krok [h] ta pohubky [d]:
a = 1
b = 2
h = 0.1
d = 0.001
x = 1.0 sum = 0.0039 y = 0.00000700281
x = 1.1 sum = -0.0294 y = 0.00055759140
x = 1.2 sum = -0.0739 y = 0.00000366347
x = 1.3 sum = -0.1332 y = 0.00007368013
x = 1.4 sum = -0.1745 y = 0.00002653663
x = 1.5 sum = -0.1948 y = 0.00012646103
x = 1.6 sum = -0.1991 y = 0.00012174461
x = 1.7 sum = -0.1836 y = 0.00020107042
x = 1.8 sum = -0.1532 y = 0.00007120208
x = 1.9 sum = -0.0976 y = 0.00024909921
x = 2.0 sum = -0.0456 y = 0.00002801124
28.01.2013 14:01-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора