Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
ТИПИ ДАНИХ. ВИРАЗИ ТА ОПЕРАЦІЇ МОВИ PASCAL
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Кафедра інформаційних систем та мереж
Інформація про роботу
Рік:
2009
Тип роботи:
Лабораторна робота
Предмет:
Інші
Група:
КН
Частина тексту файла (без зображень, графіків і формул):
МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ „ЛЬВІВСЬКА ПОЛІТЕХНІКА”
Кафедра інформаційних
систем та мереж
Лабораторна робота №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. Ознайомитись із правилами запису виразів та операцій.
15.03.2012 12:03-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора