|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.12.2014, 19:26 | #1 |
Пользователь
Регистрация: 05.10.2014
Сообщений: 19
|
Помогите составить блок схему
var c,n:integer; d,x:real;
begin write('vvedite znachenie X>0 '); read(x); c:=2; n:=4; d:=0; while n>=0 do begin d:=d+c*exp(n*ln(x)); if c<0 then c:=(c-1) else c:=(c+1); c:=c*-1; n:=n-1; end; writeln('d=',d:3:2); end. сам пример 2x4 - 3x3 + 4x2 - 5x + 6. |
03.12.2014, 20:57 | #2 |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 16,220
|
Готово::::
E-Mail: arigato.freelance@gmail.com
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите составить блок-схему | KatrinSher | Помощь студентам | 17 | 25.07.2010 18:17 |
Помогите составить блок схему | Света2125 | Помощь студентам | 7 | 29.10.2009 17:07 |
Помогите пожалуйста решить две задачи по паскалю и составить и составить блок схему! | ...Оленька... | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 20.01.2009 09:37 |