Модераторы: volvo877, Snowy, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Формирование матрицы 
:(
    Опции темы
PrinceMike
Дата 9.1.2007, 16:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1
Код

program lab6;
uses crt;
const
n=3;m=6;
var
a:array[1..m,1..n] of real;
i,j,k:integer;
s,b:real;
f:text;
begin
clrscr;
assign(f,'otv.pas');rewrite(f);
write('BBeDuTe b= ');
readln(b);
for i:=1 to m do
begin
for j:=1 to n do
if (i+j>4) then
a[i,j]:=b*i+ sqr(sqrt(exp(j*ln(b)))+ b/j) else
a[i,j]:=sqr(b)+i*j;
end;
write(f,'MaccuB: ');
writeln(f);
for i:=1 to m do
begin
for j:=1 to n do
write(f,a[i,j]:6:3, ' ');
writeln(f);
end;
s:=0;
begin
for i:=1 to m do
s := s + a[i,1];
s := s/m;
end;
writeln(f,'Crednee znachenie stolbcha # 1 = ',s:4:2);
s:=0;
begin
for i:=1 to m do
s := s + a[i,2];
s := s/m;
end;
writeln(f,'Crednee znachenie stolbcha # 2 = ',s:4:2);
s:=0;
begin
for i:=1 to m do
s := s + a[i,3];
s := s/m;
end;
writeln(f,'Crednee znachenie stolbcha # 3 = ',s:4:2);
close(f);
end.



Здрасте  smile  Вот програмка есть... там при вводе отрицательного значения или 0 возникает противоречие, так ln(0) и ln(-b) не существует...
Подскажите как обойти  smile  плиз

Это сообщение отредактировал(а) PrinceMike - 9.1.2007, 16:08
--------------------
PM MAIL WWW ICQ   Вверх
Rodman
Дата 9.1.2007, 16:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122
Цитата(PrinceMike @  9.1.2007,  15:08 Найти цитируемый пост)
Подскажите как обойти

а если просто проверить введенное b на значение больше нуля?!?!?


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
PrinceMike
Дата 9.1.2007, 16:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1
ну я так понимаю препод хочет чтоб любые числа жрало
--------------------
PM MAIL WWW ICQ   Вверх
Rodman
Дата 9.1.2007, 16:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: нет
Всего: 122
а так??? что значит все жрало, чем то должно заменяться...
Код

if(b=0)then
  a[i,j]:=0
else if(b<0)then
   b:=abs(b)



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
PrinceMike
Дата 9.1.2007, 17:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1
там вроде формула какая-то была.. блин не помню smile

Добавлено @ 17:13 
Код

ln(-x) = abs(x)/x*ln(abs(x))

вот нашел ... то эт или нет?! плиз решите, а то  начерталку делаю - первая сессия ..мозги раком ...

Это сообщение отредактировал(а) PrinceMike - 9.1.2007, 17:14
--------------------
PM MAIL WWW ICQ   Вверх
Zero
Дата 9.1.2007, 17:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Как насчёт, написать свою рекурсивную функцию возведения в степень:
Код

program lab6;
uses crt;
const
n=3;m=6;
var
a:array[1..m,1..n] of real;
i,j,k:integer;
s,b:real;
f:text;

function SQRX(a,b:real; x:integer):real;
begin
  if x>1 then a:=sqrx(a*b,b,x-1);
  SQRX := a;
end;

begin
clrscr;
assign(f,'otv.pas');rewrite(f);
write('BBeDuTe b= ');
readln(b);
for i:=1 to m do
begin
for j:=1 to n do
if (i+j>4) then
a[i,j]:=b*i+ sqr(sqrt(sqrx(b,b,j))+ b/j) else
a[i,j]:=sqr(b)+i*j;
end;
write(f,'MaccuB: ');
writeln(f);
for i:=1 to m do
begin
for j:=1 to n do
write(f,a[i,j]:6:3, ' ');
writeln(f);
end;
s:=0;
begin
for i:=1 to m do
s := s + a[i,1];
s := s/m;
end;
writeln(f,'Crednee znachenie stolbcha # 1 = ',s:4:2);
s:=0;
begin
for i:=1 to m do
s := s + a[i,2];
s := s/m;
end;
writeln(f,'Crednee znachenie stolbcha # 2 = ',s:4:2);
s:=0;
begin
for i:=1 to m do
s := s + a[i,3];
s := s/m;
end;
writeln(f,'Crednee znachenie stolbcha # 3 = ',s:4:2);
close(f);
end.

Единственная проблема тут останется в том, что в строке:
Код

a[i,j]:=b*i+ sqr(sqrt(sqrx(b,b,j))+ b/j) else
 есть взятие корня, а в там как некрути, по обычным правилам математики из некомплексных чисел, отрицательный корень неберётся.
Как вариант, может заменить:
Код

sqr(sqrt(
 на вот так:
Код

sqrt(sqr(
 Хотя вроде ответ немного другой получаеться... smile Короче тут в зависимости от задания надо смотреть. Просто ты его ненаписал.
PM MAIL ICQ   Вверх
PrinceMike
Дата 9.1.2007, 17:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1
вот оно 
user posted image
--------------------
PM MAIL WWW ICQ   Вверх
Zero
Дата 9.1.2007, 17:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
PrinceMike, я пологаю ты туда ресунок, прилепил.... Он у меня не отображается не в IE7.0 ни в мазиле.
PM MAIL ICQ   Вверх
PrinceMike
Дата 9.1.2007, 18:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1
Числовое значение переменной b ввести по вводу. Определить среднее значение элементов столбцов матрицы A. Напечатать их с указанием номера соответствующего столбца.
Условие формирование тока картинкой - поэтому см. прогу...
а числа b могут любые быть...  
--------------------
PM MAIL WWW ICQ   Вверх
Zero
Дата 9.1.2007, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(PrinceMike @  9.1.2007,  18:01 Найти цитируемый пост)
Условие формирование тока картинкой - поэтому см. прогу...

PrinceMike, если в условиях формирования стоит вычисление корня из числа, то одназначно средствами стандартных функций паскаля, ничего не выдет из отрицательных числел.

PS: картинку, ты можешь прикрепить к своему посту в виде файла на форум...
PM MAIL ICQ   Вверх
PrinceMike
Дата 9.1.2007, 18:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1
хз у меня там все показывает... на прикрепленный

Присоединённый файл ( Кол-во скачиваний: 6 )
Присоединённый файл  343.JPG 24,25 Kb
--------------------
PM MAIL WWW ICQ   Вверх
Zero
Дата 9.1.2007, 18:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Задание написано не совсем корректно, и когда будешь сдавать преподу, вводи только положительные значения b, ну естественно с объяснением почему так.
PM MAIL ICQ   Вверх
PrinceMike
Дата 9.1.2007, 18:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1
блин эт не моя лаба, а хрена одного из группы... я ему все сделал -  все приняла, а эту не приняла
ввела отриц и 0 - прога ругнулась , а та все иди на...
так что как посоветуете сделать..?
по возможности целиковый код, а то  я экзамену готовлюсь ...
--------------------
PM MAIL WWW ICQ   Вверх
Zero
Дата 9.1.2007, 19:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(PrinceMike @  9.1.2007,  18:39 Найти цитируемый пост)
ввела отриц и 0 - прога ругнулась , а та все иди на...

тут которую я привёл, ноль должна будет взять... А вот отрицательные при подсчёте корня одназначна нет.
Цитата(PrinceMike @  9.1.2007,  18:39 Найти цитируемый пост)
я ему все сделал -  все приняла, а эту не приняла

Неприняла кто? Преподша? Пусть тогда скажет к это должно быть.
Я думаю, тот кто сдавал лабу, смотрел на препода как индюк, вот она и поняла, что он ничего незнает. А лабу написаную как щас я уверен что примет. Главное правильно обяснить.
Цитата(PrinceMike @  9.1.2007,  18:39 Найти цитируемый пост)
а то  я экзамену готовлюсь ... 

Ты думаешь, один у кого сессия? smile 
PM MAIL ICQ   Вверх
PrinceMike
Дата 9.1.2007, 19:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 184
Регистрация: 23.11.2006
Где: Москва

Репутация: нет
Всего: 1
Наверно как индюк  smile  суть не в этом .. препод нам формулу давала.. насколько я помнб как раз для примерных подсчетов отриц логарифма ... 
Код

    
ln(-x) = abs(x)/x*ln(abs(x))

 может такое быть?
один там или не один) а сессия первая =) стремновато  smile 

Это сообщение отредактировал(а) PrinceMike - 9.1.2007, 19:21
--------------------
PM MAIL WWW ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

1. Обсуждать и делится взломанными компонентами или программным обеспечением

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.4299 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.