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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.11.2008, 21:54   #31
bygoga
Пользователь
 
Регистрация: 26.10.2008
Сообщений: 45
По умолчанию

Ну а насчет Массива A и Z? Их же возможно составить?

Последний раз редактировалось bygoga; 07.11.2008 в 22:20.
bygoga вне форума Ответить с цитированием
Старый 07.11.2008, 22:24   #32
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Я вникать в суть формулы не собираюсь, а вот тебе не мешало бы, чтобы у меня не спрашивать, что , да почему. Прежде чем тыкать пальцами в клавиатуру, нужно разобраться в задаче, а если она математическая, то посчитать ее в других программах, или на калькуляторе. Я с этого и начал. Сразу исключил интервал ,<=1.5, т.к на нем не определен логарифм. Я тебе об этом написал, но ты все равно спрашиваешь снова.
Затем прогнал по формуле с шагом 1,0 весь интервал от 1,51 до 43,9, получил значения от 9,3 до 11,72. А вот почему это так, да потому что формула такая. Почему квадраты чисел положительные, да потому же.
Ты наверно месяц дурью маешся, а элементарной вещи не сделал. Я тебе приложу Экселевский файл, там формула уже забита, тренируйся вместе со своим прнподом в арифметике.
Привожу программу полностью, но по этим двум пунктам она будет выдавать ноли.
Код:
uses crt;
const n=22;
var x,y,z:array[1..n]of real;
    a:array[1..10,1..10]of real;
    i,j,m,k:integer;
    max,min,sr,otr,pr:real;
function Pow(a,b:real):real; {функция для нахождения корня 5 степени}
var t:real;
begin
  t:=abs(a);
  if a<0 then Pow:=(-1)*exp(b*ln(t)){если tg<0}
  else Pow:=exp(b*ln(t));           {если tg>0}
end;
begin
clrscr;
randomize;
writeln('Massiv X:'); {исходный массив}
for i:=1 to n do
   begin
     x[i]:=random(66)+random-22; {-21.1..+43.9}
     write(x[i]:6:1);
   end;
writeln;
j:=0;max:=-100;min:=100;sr:=0;otr:=0;pr:=1; {начальные значения}
for i:=1 to n do
if (x[i]*x[i]*x[i]-0.8*x[i]-0.75<>0)and(2*x[i]-3>0) then{область определения}
  begin
    inc(j);  {если попадает в область определения, увеличиваем счетчик}
    y[j]:=(7.3*x[i]*x[i]*x[i]+Pow((sin(x[i])/cos(x[i])),1/5))/
    (x[i]*x[i]*x[i]-0.8*x[i]-0.75)+ln(2*x[i]-3);  {считаем y[j]}
    if y[j]>max then max:=y[j]    {находим максимум}
    else if y[j]<min then min:=y[j];{находим минимум}
    sr:=sr+y[j]; {находим сумму}
    if y[j]<0 then otr:=otr+y[j];{находим сумму отрицательных}
    if (y[j]>1.5)and(y[j]<1.5)then pr:=pr*y[j];{произведение из интервала}
    if pr=1.0 then pr:=0;  {если нет, то 0}
  end;
writeln('Massiv Y:'); {выводим массив, посчитанный по формуле}
for i:=1 to j do
write(y[i]:6:1);
writeln;      {выводим макс, мин, среднее, сумму отрцательных, произведение}
writeln('y[j]max=',max:0:1,'   y[j]min=',min:0:1,'   sred=',sr/j:0:1);
writeln('Summ otr=',otr:0:1,'   Proizv=',pr:0:1);
readln;
write('Kol stb m=');readln(m); {вводим количество столбцов}
writeln('Matrica:');
for i:=1 to j div m do {количество строк=длина массива div кол столбцов }
   begin
     for k:=1 to m do
       begin
        a[i,k]:=y[k+m*(i-1)];{формула ввода элементов массива в матрицу}
        write(a[i,k]:6:1);
       end;
     writeln;
   end;
writeln('Massiv Z:');  {делаем массив сумм по столбцам}
for k:=1 to m do
   begin
    z[k]:=0;
    for i:=1 to j div m do
    z[k]:=z[k]+a[i,k];    {сумма в столбце}
    write(z[k]:6:1);
   end;

readln
end.
Вложения
Тип файла: rar Книга5.rar (6.7 Кб, 10 просмотров)
puporev вне форума Ответить с цитированием
Старый 07.11.2008, 22:31   #33
bygoga
Пользователь
 
Регистрация: 26.10.2008
Сообщений: 45
По умолчанию

Сори, я просто сразу не вник в ваш пост, поэтому и задал глупый вопрос. Просто из-за того, что вы высчитали получается, что из задания выпадают некоторые части..думаю я с этим сам уже смогу разобратся....Спасибо вам огромное!! И извените, что столько на мозги капал....
bygoga вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Random Febreze Общие вопросы Delphi 2 28.04.2008 14:17
random Forrest Gamp Общие вопросы C/C++ 4 11.02.2008 09:46
random Sanek_ntsk Общие вопросы Delphi 8 17.12.2007 21:54
С++ Создать класс содержащий 3х-мерный массив int'ов, заполнять с помощью генератора случайных чисел vipER Помощь студентам 1 22.09.2007 22:08
Помогите пожалуйста!!! С использованием функции Random сформировать одномерный массив Vanya_www_333 Помощь студентам 1 17.08.2007 13:38