|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
20.09.2012, 11:44 | #1 (permalink) | ||
Новичок
Регистрация: 20.09.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Написать таблицу после программы
программа такая: Program First; function f(x:real):real; begin f:=x*x*x*x+8*x*x-3; end; var a,b,e,x,c:real; begin writeln ('Найти корень уравнения x^4+8*x^2-3 на интервале [0;2] с точностью 0,001'); a:=0; b:=2; e:=0.001; repeat c:=(a+b)/2; if f(a)*f(c)<=0 then b:=c else a:=c until b-a<e; x:=(a+b)/2; writeln ('x',x:0:3); readln end.
|
||
20.09.2012, 11:44 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Дам вам ссылки на темы, которые имеют что то общее с вашей темой Помогите написать программы на языке Pascal Помогите написать 2 программы по программированию на языке С++ |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|