Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.12.2014, 19:26   #1
галина01
Пользователь
 
Регистрация: 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.
галина01 вне форума Ответить с цитированием
Старый 03.12.2014, 20:57   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,220
По умолчанию

Готово::::
Изображения
Тип файла: png 1.PNG (9.1 Кб, 49 просмотров)
Arigato вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите составить блок-схему KatrinSher Помощь студентам 17 25.07.2010 18:17
Помогите составить блок схему Света2125 Помощь студентам 7 29.10.2009 17:07
Помогите пожалуйста решить две задачи по паскалю и составить и составить блок схему! ...Оленька... Паскаль, Turbo Pascal, PascalABC.NET 2 20.01.2009 09:37