Розрахункова Pascal

Міністерство освіти і науки України
Національний університет “Львівська Політехніка”

                                                                                       

Кафедра обчислювальної
математики та програмування

Розрахункова робота №1 (варіант 12)
на тему:
Pascal

Виконав:
студент групи ПР-11
Чиж Владислав

Перевірив:
доцент
Філь Б.М.

Львів 2012

Завдання № 1 Лінійні програми
Задано правильну піраміду. Її основою є правильний 4-кутник (квадрат)   зі стороною 12. Висоту задає значення   h=16. Обчислити радіус сфери, вписаної в піраміду і кут між ребром піраміди та стороною основи.

Розв`язування:
program lab1;
const n=4; a=12; h=16;
var r, rs, b, beta: real;
begin
    b:=sqrt(sqr(a/2)+sqr(h));
    beta:=a/(2*b);          
    beta:=arctan((1-sqr(beta))/beta);
    r:=a/sqrt(2);
    rs:=h*sqrt(sqr(r)-sqr(a/2))/(sqrt(sqr(r)-sqr(a/2))+sqrt((sqr(h)+sqr(r)-sqr(a/2))));
    writeln ('Radius sferu vpusanoi v piramidy: ', rs:7:3);
    writeln ('Kyt beta = ', beta:5:2, ' rad.')
end.

Відповідь:
Radiys sferu vpusanoi v piramidy:   4.158
Kyt beta =   1.19 rad.

Завдання № 3 Дослідження квадратичного рівняння
Задано квадратне рівняння a*x^2+b*x+c=0, де а= 4.88; b=17.4; c=4.72. Скласти програму для знаходження величин, при різних значеннях D. (D- дискримінант