|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.04.2011, 09:38 | #1 |
Регистрация: 30.04.2011
Сообщений: 3
|
график интеграла
Помогите чем можете
Нужно добавть в программу чтоб она строила интеграл и область штриховала |
30.04.2011, 09:38 | #2 |
Регистрация: 30.04.2011
Сообщений: 3
|
program qq;
var S,L,a,b:real; n,z:byte; function integ(a,b:real;n:byte):real; var S,h,f:real; J:integer; begin h:=abs(b-a)/n; S:=0; for J:=0 to n-1 do S:=S+abs(1/(sqrt(1+(2*(a+h*j)*(a+h*j)*(a+h*j)) ))); {Summa ploshad primaug.} integ:=h*S; {Znachenie integrala.} end; begin repeat writeln('Vedi nachalnyu i konechnyu granicy'); readln(a,b); if a<b then begin writeln('Vedi kolichestvo shagov'); readln (n); L:=integ(a,b,n); writeln ('ploshad=',L:3:2); end else writeln ('Vi oshiblis granicami'); writeln ('Hoshesh Prodolzit?! 1-да 0-неt'); readln(z); until Z<>1; end. |
30.04.2011, 09:44 | #3 |
Регистрация: 30.04.2011
Сообщений: 3
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вычисление интеграла | Anubys | Помощь студентам | 2 | 14.03.2011 09:49 |
Нахождение интеграла | Baburek | Общие вопросы Delphi | 1 | 28.12.2010 12:15 |
Расчет интеграла | Seferus | Общие вопросы C/C++ | 2 | 08.12.2010 17:43 |
Функции интеграла | max38934 | Общие вопросы Delphi | 5 | 26.05.2009 14:55 |
Взятие интеграла | max38934 | Общие вопросы Delphi | 2 | 11.05.2009 16:03 |