|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.04.2009, 16:17 | #1 |
Пользователь
Регистрация: 06.04.2009
Сообщений: 12
|
программирование численных алгоритмов решения простейших инженерно-экономических задач
1)Цикл с известным числом повторений.
у=sin2x/1!+sin2x/2!+sin3x/3!+...+sin5x/5! 2)Дан одномерный массив Р(10).Вычислить В=Y+x/10+z,где x-сумма положительных элементов массива Р; Y-произведение положительных элементов массива Р; Z-количество отрицательных элементов массива Р; Вывести на печать X,Y,Z,В. 3)Графическим методом найти интервализоляции корней уравнения f(x)=0 и составить программу вычисления одного из корней с точностью е=0.001 методом половинного деления. ........2......х [(x-2) -1]2 -1 4)Составьте программу вычисления минимума функции f(x) на промежутке [a,b] с точностью е=0.001 методом квадратной аппроксимации. ....2 xln x а=0.4 в=1.2 ................................... ..................................b 5)составьте программу вычисления интеграла S=$f(x)dx ................................... ..................................а ($-обозначение интеграла) с заданной точностью е=0.001 метедом трапеций. .....2 lg(x +1)/2x-1 a=1.2 b=2.8 Последний раз редактировалось Оксана_В; 09.04.2009 в 16:47. |
09.04.2009, 16:19 | #2 |
Oldschool geek
Форумчанин
Регистрация: 09.03.2009
Сообщений: 611
|
это не так
|
09.04.2009, 16:25 | #3 |
Пользователь
Регистрация: 06.04.2009
Сообщений: 12
|
решите кому не сложно, пожалуйста
Последний раз редактировалось Оксана_В; 09.04.2009 в 16:46. |
09.04.2009, 17:28 | #4 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
1)
uses crt;
const n=5; var sum,x:real; i:integer; function fact(m:integer):longint; begin if m=1 then fact:=1 else fact:=m*fact(m-1); end; begin clrscr; write(' Input x -> '); readln(x); sum:=0; for i:=1 to n do sum:=sum+sin(i*x)/fact(i); writeln(sum:5:5); readln; end.
@(o_0)@
|
09.04.2009, 17:36 | #5 |
Форумчанин
Регистрация: 22.12.2008
Сообщений: 104
|
2)
uses crt;
const nmax=10; var p:array[1..nmax] of integer; i,x,y,z:integer; b:real; begin clrscr; for i:=1 to nmax do begin write('P[',i,']='); readln(p[i]); end; x:=0; y:=1; z:=0; for i:=1 to nmax do if p[i]>0 then begin x:=x+p[i]; y:=y*p[i]; end else if p[i]<0 then inc(z); writeln; writeln(' X=',x); writeln(' Y=',y); writeln(' Z=',z); b:=y+x/10+z; writeln(' B=',b:4:4); readln; end.
@(o_0)@
|
09.04.2009, 19:10 | #6 |
Пользователь
Регистрация: 06.04.2009
Сообщений: 12
|
спасибо большое, прибольшое
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программирование циклических алгоритмов в Delphi7 | Rom1k | Помощь студентам | 4 | 18.12.2009 02:24 |
Программирование алгоритмов циклической структуры для задач табулирования функций одной переменной с пост | bbk_serg | Помощь студентам | 1 | 10.01.2009 18:16 |
Программирование линейных алгоритмов в Delphi7 | Rom1k | Помощь студентам | 3 | 01.12.2008 19:41 |
Программирование разветвляющихся алгоритмов в Delphi7 | Rom1k | Помощь студентам | 5 | 27.11.2008 14:36 |
Программирование ветвящихся алгоритмов | Дима82 | Помощь студентам | 4 | 11.05.2008 11:35 |