ТИПИ ДАНИХ. ВИРАЗИ ТА ОПЕРАЦІЇ МОВИ PASCAL. Лабораторна робота з Інші. Робота № 516628

ТИПИ ДАНИХ. ВИРАЗИ ТА ОПЕРАЦІЇ МОВИ PASCAL

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

ВУЗ:

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

Інститут:

Не вказано

Факультет:

Не вказано

Кафедра:

Кафедра інформаційних систем та мереж

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

Рік:

2012

Тип роботи:

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

Предмет:

Інші

Група:

КН

Завантажити

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

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА” Кафедра інформаційних систем та мереж Лабораторна робота №3 на тему ТИПИ ДАНИХ. ВИРАЗИ ТА ОПЕРАЦІЇ МОВИ PASCAL Львів-2009 Мета роботи Ознайомитись з алфавітом мови Pascal, поняттями змінної та константи. Освоїти типи даних, що використовуються в Pascal. Ознайомитись із правилами запису виразів та операцій.. Перший рівень На основі Прикладів 1-3, наведених у методичних вказівках, продемонстуйте особливості операції над типами Real та Boolean та деякі стандартні елементарні функції. program laba3_1; uses crt; var z,x,y: real; b,b1: boolean; begin clrscr; {1} writeln ('vvedit 4ysla typu real '); read (x,y); if x>y then writeln(x-y) else writeln (y-x); writeln (z); writeln('_____________________________________________'); {2} b:=x>1000; b1:=y=0; writeln ('x bilshyj 1000 ce ',b); writeln ('y=0 ce ',b1); {3}writeln ('_____________________________________________'); Writeln ('obrahuem Z 3a z=sin(Pi/x)*cos(y/PI)*sqrt(abs(x-y))'); z:=sin(Pi/x)*cos(y/PI)*sqrt(abs(x-y)); writeln (z); readkey; end. Другий рівень Написати програму, яка обчислює значення виразу (згідно номеру варіанту). program laba3_2; uses crt; var y,y1,d3 : extended; a,x,b : integer; begin clrscr; write ('x='); read (x); write ('a='); read(a); write ('b='); read (b); y:=(a*sin(b*x)+exp(x)); d3:=exp(a*b*x*ln(3)); y1:=(sin(x)*(ln(a*x*d3)/ln(10))); y:=(y/y1); write (y); readkey; end. program laba3_22; uses crt; var y,b,z,x : real; begin clrscr; write ('x='); read (x); write ('y='); read (y); write ('z='); read (z); b:=arctan(sqr(z)/sqrt(1-sqr(z*z))+ abs(x+y)); write (b); readkey; end. Третій рівень Обчислити значення змінних F1 i F2, приведених у таблиці, по заданим розрахунковим формулам і наборам вхідних даних. Використовуючи стандартні функції, обчислити в змінній F11 цілу частину числа F1, а в змінній F22 закруглення числа F2. Роздрукувати вхідні дані і результати обчислень, супроводжуючи ввід і вивід коментарями. Присвоїти логічній змінній NALEZH i вивести на екран монітора значення True або False у залежності від того, чи точка з координатами (F11, F22) належить заданій області: F11 [x , x ] 1 2 I , F22 [y , y ] program laba3_3; uses crt; const x1=-5; x2=0; y1=-5; y2=0; var f1,f2,f11,f22,b,a,x : real; nalezh2,nalezh1 : boolean; begin clrscr; write ('a='); read (a); write ('b='); read (b); write ('x='); read (x); writeln; f1:=sqrt(sqr(x)+b)-sqr(b)*sqr(sin(x+a))*sin(x+a)/x; f2:=sqr(cos(x*x*x))-x/sqrt(sqr(a)+sqr(b)); f11:=int(f1); f22:=trunc(f2); nalezh1:=(f11>=x1)and(f11<=x2); nalezh2:=(f22>=y1)and(f22<=y2); writeln ('vhidni dani a=',a:5:2,' b=',b:5:2,' x=',x:5:2); writeln ('rozrehunkovi formuly f1=',f1:10:3,' f2=',f2:10:3); writeln ('f1 nalezhyt ',x1,' ',x2,' ',nalezh1); writeln ('f2 nalezhyt ',y1,' ',y2,' ',nalezh2); readkey; end. Висновок На лабораторній роботі ознайомився з алфавітом мови Pascal, поняттями змінної та константи. Освоїв типи даних, що використовуються в Pascal. Ознайомитись із правилами запису виразів та операцій.

Лабораторна робота Інші

iceman

15.03.2012 12:51

Коментарі

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

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

поділитись