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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

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.
Что надо в этом коде изменить(фотография)
Миниатюры
Нажмите на изображение для увеличения
Название: P_20150323_134843.jpg
Просмотров: 68
Размер:	82.3 Кб
ID:	73911  

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

skype: newerow1989
По умолчанию

Код:
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
Репутация: 10
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
график не строится...посмотрите баги ...я не спамлю..прост очень горит 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


17:07.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.