Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
Обчислення виразів. Використання стандартних функцій.
Інформація про навчальний заклад
ВУЗ:
Національний університет Львівська політехніка
Інститут:
Інститут комп’ютерних наук та інформаційних технологій
Факультет:
Не вказано
Кафедра:
Програмного забезпечення (ПЗ)
Інформація про роботу
Рік:
2006
Тип роботи:
Лабораторна робота
Предмет:
Основи програмування та алгоритмічні мови
Група:
КН-1
Варіант:
8
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти та науки України
Національний університет «Львівська політехніка»
Інститут комп’ютерних наук та інформаційних технологій
Кафедра ПЗ
З В І Т
Лабораторна робота № 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, а також щодо використання стандартних функцій. Я запустив програму на виконання і вивів результати для тестових прикладів.
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора