|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.05.2013, 12:10 | #1 |
Пользователь
Регистрация: 23.05.2013
Сообщений: 16
|
Программа нахождения суммы,среднего арифметического,минимума функции
Так,нам дана функция f=0.56*x*x*x-11*x+4*sin(x+1)+3 интервал [-5;5]; шаг 0.5.
1.найти минимум среди значений функции,имеющих четную целую часть. 2.найти сумму значений функции,имеющие дробную часть <0.5 3.найти среднее арифметическое значение в младшем разряде целой части цифру,которая больше числа 3. Я написала программу,но не уверена,что правильно.Посмотрите,пожалуйста,дор огие форумчане program t; var fn,fmin,x,k:real;n:integer; function myf(x:real):real; begin myf:=0.56*sqr(x)*x-11*x+4*sin(x+1)+3; end; begin x:=-5; while x <=5 do begin myf(X); x:=x+0.5; writeln('f=',myf(x):1:4);end; x:=-5; fmin:=myf(x); while x <=5 do begin x:=x+0.5; fn:=myf(x); n:=trunc(fn); if (((n mod 2)=0) AND (fmin>fn)) then begin fmin:=fn; writeln('min=',fmin:1:4); end; end; end. program t; var sum,x,k,f:real; begin x:=-5; sum:=0; while x <=5 do begin f:=0.56*sqr(x)*x-11*x+4*sin(x+1)+3; x:=x+0.5; k:=frac(f); if k>0.5 then sum:=sum+f; end; writeln('sum=',sum:1:4); end. program t2; var x,sum,f,mr:real;n,k:integer; begin x:=-5; sum:=0; n:=0; while x <=5 do begin f:=0.56*sqr(x)*x-11*x+4*sin(x+1)+3; x:=x+0.5; k:=trunc(f); k:=k mod 10; if k>3 then sum:=sum+f; n:=n+1; end; mr:=sum/n; writeln('среднее арифметическое =',mr:1:4); end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа для вычисления среднего арифметического и геометрического массива чисел | Defalliance | Общие вопросы C/C++ | 1 | 04.12.2012 21:57 |
программа для нахождения минимума функции n переменных Delphi | seka4 | Помощь студентам | 0 | 04.06.2012 20:39 |
Программа нахождения суммы. | maris | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 01.12.2011 19:45 |
Программа нахождения суммы (Pascal) | Forgotten | Помощь студентам | 1 | 24.10.2011 14:14 |
программа нахождения суммы | Pchelka1992 | Помощь студентам | 8 | 05.04.2011 19:18 |