Обчислення виразів. Використання стандартних функцій.. Лабораторна робота з Основи програмування та алгоритмічні мови. Робота № 200704

Обчислення виразів. Використання стандартних функцій.

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

ВУЗ:

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

Інститут:

Інститут комп’ютерних наук та інформаційних технологій

Факультет:

Не вказано

Кафедра:

Програмного забезпечення (ПЗ)

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

Рік:

2015

Тип роботи:

Лабораторна робота

Предмет:

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

Група:

КН-1

Варіант:

Завантажити

Частина тексту файла (без зображень, графіків і формул):

Міністерство освіти та науки України Національний університет «Львівська політехніка» Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ З В І Т Лабораторна робота № 3 з курсу «Основи програмування та алгоритмічні мови» Тема: «Обчислення виразів. Використання стандартних функцій» Варіант 8 Виконав: ст. гр. КН-1 Львів-2006 Мета роботи : Вивчення порядку дій при обчисленні виразів. Одержання навиків запису виразів на мові Паскаль і використання Завдання : Створити файл програми на мові Паскаль і обчислити значення заданої функції. За допомогою клавіатури ввести координати точки і перевірити чи ця точка належить заданій області на координатній площині. 3. Відлагодити, скомпілювати і зберегти програму. 4. Запустити програму на розв’язування задачі і вивести результати для підготовки тестового прикладу. 5. Оформити звіт про роботу. Постановка задачі : 1. Обчислити значення функції : 2. Ввести з клавіатури координати точки і перевірити чи ця точка належить заданій області на координатній площині. Блок-схема алгоритму Початок Ввід Х у11 = |у| Вивід у11 у22= |у11+0.5| Вивід у22 Ввід Х,У result:=(x1*x1+y1*y1<=1)and(abs(x1-1)>=y1) Ввід result Кінець program lab3; uses crt; label 1; var y,y11,y12,x,x1,y1,r:real; result:boolean; begin clrscr; 1:write('Vvedit x '); readln(x); if (x>-1)and(x<1) then begin y:=arctan(1/(sqrt(1-x*x)))+x*x; y11:=round(y);y12:=trunc(y); writeln('y=',y:5:2); writeln('y11=',y11:5:2); writeln('y12=',y12:5:2); end else begin writeln('nepravulnuu arhyment x e (-1;1)'); goto 1; end; writeln('Vvedit x1,y1'); readln(x1,y1); result:=(x1*x1+y1*y1<=1)and(abs(x1-1)>=y1); writeln(result); readln; end. Протокол роботи програми : ----------------------------------------------------------------------------------------------- Vvedit X = 2 nepravulnuu arhyment x e (-1;1) Vvedit X = 0.2; y=0.84 y11 = 1.00 y22 = 0.00 ---------------- X = 0.9 Y = 0.7 FALSE ----------------------------------------------------------------------------------------------- X = 0.9 y=1.97 y11 = 2 y22 = 1 --------------- X = 0.3 Y = 0.1 TRUE ----------------------------------------------------------------------------------------------- Висновок: На даній лабораторній роботі я одержав деякі навики запису виразів у середовищі Turbo Pascal, а також щодо використання стандартних функцій. Я запустив програму на виконання і вивів результати для тестових прикладів.

Лабораторна робота Основи програмування та алгоритмічні мови

2015

Коментарі

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

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

поділитись