Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 27.03.2015, 21:30   #1
Просто человек
Пользователь
 
Регистрация: 16.02.2015
Сообщений: 13
Восклицание Паскаль не решать прост подскажите

Pascal abc
есть код похожей задачи:
Код:
function f(x:real):real;
begin
f:=4.26*pi*exp(-x)-exp(x)
end;
var x,dx,y,p,sr:real;
k:integer;
begin
x:=-1;
dx:=0.1;
p:=1;
k:=0;
sr:=0;
repeat
y:=f(x);
writeln('x=',x:5:1,' y=',y:7:2);
if y<0 then
begin
k:=k+1;
sr:=sr+y;
end
Else p:=p*y;
x:=x+dx
until y<-10;
sr:=sr/k;
writeln('Среднее арифметическое отрицательных=',sr:7:3);
write('Произведение положительных=',p);
end.
Что надо в этом коде изменить(фотография)
Изображения
Тип файла: jpg P_20150323_134843.jpg (82.3 Кб, 142 просмотров)

Последний раз редактировалось Stilet; 27.03.2015 в 21:46.
Просто человек вне форума Ответить с цитированием
Старый 28.03.2015, 13:08   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,802
По умолчанию

Код:
function step(chislo,stepen:real):real;
begin
   Result:=exp(stepen*ln(chislo));
end;

function f(x:real):real;
begin
   Result:=14.25*step(Abs(8*x*x)+pi/2,1/3)/(ArcTan(x*x)-Exp(Sin(x*x)));
end;

const delta=0.25;
var x,y,s:real;
    i:integer;
begin
   x:=-1;
   i:=0;
   s:=0;
   Repeat
      y:=f(x);
      Writeln(x:2:5,'  ',y:5:5);
      x:=x+delta;
      i:=i+1;
      If y<0 then
         s:=s+y;
   Until y>100;
   s:=s/i;
   Writeln(i,'  ',s:5:5);
   Readln;
end.
Сойдет?
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.narod.ru
[Паскаль] [Delphi]

Последний раз редактировалось newerow1989; 28.03.2015 в 13:10.
newerow1989 вне форума Ответить с цитированием
Старый 29.03.2015, 19:25   #3
Просто человек
Пользователь
 
Регистрация: 16.02.2015
Сообщений: 13
По умолчанию

Спасибо за помощь
Просто человек вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
график не строится...посмотрите баги ...я не спамлю..прост очень горит radiokarazinec Общие вопросы Delphi 5 28.02.2011 09:25
Так ли прост SmallTalk? docbrain Свободное общение 10 21.02.2010 04:34
не компилится исходник решения СЛАУ м.прост.итераций.тупит mem.h. Who is nber 1? avi2109 Общие вопросы C/C++ 7 08.11.2008 17:14
Вопрос я полагаю прост!!!!!! bagzzz Microsoft Office Excel 2 08.09.2008 11:09


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS