Міністерство освіти і науки України Національний університет „Львівська політехніка” Інститут комп’ютерних наук та інформаційних технологій Кафедра ПЗ ЗВІТ Лабораторна робота №3 Тема: ” Обчислення виразів. Використання стандартних функцій ” Львів - 2005 Мета роботи: 1. Вивчення порядку дій при обчисленні виразів. 2. Одержання навиків запису виразів на мові Паскаль і використання стандартних функцій. Завдання: 1. Знайти значення функції
при заданому
. Використовуючи стандартні функції, обчислити
, де
означають цілу частину числа;
. 2. Записати вираз, що залежить від координат точки
і
і приймає значення TRUE, якщо точка належить заштрихованій області, і FALSE, якщо не належить. Для заданої точки обчислити цей вираз і результати вивести на друк (екран). ---------------------------------------------------------------------------------------------------------- Знаходження значення функції
при x=4.352 Блок-схема алгоритму
 Текст програми program laba3; uses crt; var x,y,x1,y1,y11,y22:real; umova:boolean; begin clrscr; writeln; writeln('************ Блок 1 ************'); writeln(' Введіть координати точки x'); write(' x= '); readln(x); y:=1+1/x+1/sqr(x); y11:=trunc(y); y22:=trunc(y+0.5); writeln(' y= ',y:5:3); writeln(' [y]= ',y11:5:3); writeln(' [y+0.5]= ',y22:5:3); writeln; writeln('************ Блок 2 ************'); writeln(' Введіть значення x1,y1'); write(' x1= '); readln(x1); write(' y1= '); readln(y1); umova:=(x1<=0) and (y<=0) and (sqr(x1)+sqr(y1)<=1); writeln(umova); writeln('************ Для виходу натисніть [ENTER] ************'); readln; end. Протокол роботи програми ----------------------------------------------------------------------------------------------- x=4,352 Результат: y=1,283 [y]=1,000 [y+0.5]=1,000 ----------------------------------------------------------------------------------------------- X1=0,5 Y1=-0,2 Результат: FALSE Висновок: На даній лабораторній роботі я вивчив порядок дій при обчислюванні виразів, та одержав навики запису виразів на мові Паскаль і використання стандартних функцій.