Програми з розгалуженими та циклічними алгоритмами. Звіт до лабораторної роботи з Алгоритмічні мови та програмування. Робота № 518961

Програми з розгалуженими та циклічними алгоритмами

Інформація про навчальний заклад

ВУЗ:

Національний університет Львівська політехніка

Інститут:

ІКТА

Факультет:

Не вказано

Кафедра:

Захист інформації

Інформація про роботу

Рік:

2013

Тип роботи:

Звіт до лабораторної роботи

Предмет:

Алгоритмічні мови та програмування

Група:

ІБ-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

Звіт до лабораторної роботи Алгоритмічні мови та програмування

infoman

28.01.2013 14:16

Коментарі

Ви не можете залишити коментар. Для цього, будь ласка, або зареєструйтесь.

Ділись своїми роботами та отримуй миттєві бонуси!

поділитись