Помогите написать маленькую программу в PASCAL - есть ответ

awerqo, 355 просмотров

Вобщем нужна такая прога, которая будет считать площадь 1/4 единичного круга используя метод левых прямоугольников.
И надо сделать так, чтобы можно было задавать, на сколько прямоугольников разбивать.

Если будут какие-то вопросы, то спрашивайте.

Примечание:
Задание такое.

Ответы:

Master Sergius

вопрос - зачем метод левых прямоугольников, если эта площадь=пи*радиус^2/4

Удачник

То есть тебе нужно посчитать интеграл от функции y = sqrt(1 - x^2) при 0 <= x <= 1. Формула метода такая
Int(a,b) y(x) dx = h*Сумма(i=0, n-1) y(x(i)). Здесь h = (b-a)/n - шаг разбиения, a = 0, b = 1 - границы функции.
Программа на Паскале выглядит примерно так:
Program Metod_Left_Pryam
var y, x, S, h : real
var n, i : integer
const a = 0, b = 1
BEGIN
write ('Vvedite n'); readln (n);
h := (b-a)/n; S := 0; i := 0; x := a;
while i <= n-1 do
begin
S := S + sqrt(1 - x*x);
x := x + h; i := i + 1;
end;
y := h*S;
writeln ('Ploshad ravna : ', y);
END.

Vindicar

Ну и в чем именно сложность? Непонятен метод или что?

Артёмка

var i,n:integer;s:double;begin readln(n);for i:=n downto 1 do s:=s+sqrt(1-sqr(i/n))/n;writeln(s:0:3);end.

13 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.