Розробка та виконання програм на мові Pascal

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: бесплатные рефераты скачать, механизм реферат
| Добавил(а) на сайт: Корнев.

Варіант №3.
Скласти та виконати на ЕОМ програми розв’язування слідуючих задач:

Задача 1.
Обчислити та вивести на очищений екран з К-ї позиції L-го рядка в форматованому вигляді значення вихідних даних та результатів обчислення виразу:

Обчислити значення виразу на ЕОМ для значень:
A=-6, b=6.4, c=8.85, k=20, l=10

Задача 2.
Обчислити значення даної функції, використовуючи оператори IF_THEN,
IF_THEN_ELSE (два варіанти програми):

Виконати для: a=-2.3, b=-8, t1=-4.5, t2=1.2*10-3, t3=4.3

Задача 3.
Обчислити та вивести на екран в стовпчик таблицю значень функції:

Для значень Х із проміжку Х=[-3,5] з кроком h=1.2
Скласти програми, використавши всі структури циклів.

Задача 1:

program zanattia3; uses crt; const k=20; l=10; a=-6; b=6.4; c=8.85; var f:real; begin clrscr; f:=(exp(a)+2*ln(b+c))/(arctan(b))+a*b; gotoxy(k,l); textcolor(2); write('Вiдповiдь : '); textcolor(3); write(f:7:5); textcolor(14); write(' при а=-6, в=6.4, с=8.85'); end.

Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :
____________________________________________________________________________
__

Вiдповiдь : -34.54943 при а=-6, в=6.4, с=8.85
____________________________________________________________________________
__

Задача 2:

program zanattia3_variant1; uses crt; const a=-2.3; b=-8; t1=-4.5; t2=1.2e-3; t3=4.3; var y,t:real; function obch(t:real):real; begin if t>3 then obch:=exp(t)/ln(t); if t3 then obch:=exp(t)/ln(t) else if t5; end.

Р Е З У Л Ь Т А Т И Р О Б О Т И П Р О Г Р А М И :

____________________________________________________________________________
__

y=35.00000 при x=-3.00000 y=18.68000 при x=-1.80000 y=8.12000 при x=-0.60000 y=3.32000 при x=0.60000 y=4.28000 при x=1.80000 y=11.00000 при x=3.00000 y=23.48000 при x=4.20000

____________________________________________________________________________
__

program zanattia3_variant2; uses crt; var y:real; x:real; h:real; begin clrscr; x:=-3; h:=1.2; while x