Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите кто может составить программу
помогите кто может составить программу
Дана матрица А(m,n), которая задается по формуле А(i,j)=(i+0.5)/(j+sinj)
1 | Автор: inn6533 | 2011-04-17, 13:49   |  Репутация: [ + 0 ]
1 | Автор: inn6533 | 2011-04-17, 13:49   |  Репутация: [ + 0 ]
а задание в чём состоит?))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-04-17, 13:59   |  Репутация: [ + 211 ]
Code
for i:=1 to m do
for j:=1 to n do
a[i,j]:=(i+0.5)/(j+sin(j));

судя по всему задание в этом состоит =)))


If you can't make it GOOD make it LOOK GOOD. B.Gates
3 | Автор: DoVe | 2011-04-17, 14:08   |  Репутация: [ + 48 ]
врядли...хотя всё может быть..

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2011-04-18, 02:17   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2011-04-18, 02:17   |  Репутация: [ + 211 ]
задание состоит в том, что нужно заполнить матрицу через генератор случайного числа
5 | Автор: inn6533 | 2011-04-21, 17:07 | Изменено: inn6533 - Чт, 2011-04-21, 17:15   |  Репутация: [ + 0 ]
это как? зачем формула тогда?
рандомно просто:
Code
randomize;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(100);


If you can't make it GOOD make it LOOK GOOD. B.Gates
6 | Автор: DoVe | 2011-04-21, 20:55   |  Репутация: [ + 48 ]


If you can't make it GOOD make it LOOK GOOD. B.Gates
6 | Автор: DoVe | 2011-04-21, 20:55   |  Репутация: [ + 48 ]
Как я понял - нужно самому сделать гинератор

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
7 | Автор: Berestovskiy | 2011-04-22, 00:55   |  Репутация: [ + 211 ]
нужно чтобы число выбранное генератором встало в формулу, а результат и будет то, чем должна заполниться матрица
8 | Автор: inn6533 | 2011-04-23, 16:10   |  Репутация: [ + 0 ]
значит совместить надо первый и второй вариант
randomize;
Code
for i:=1 to m do
for j:=1 to n do
begin
r:=random(100);
q:=random(100);  
a[i,j]:=(r+0.5)/(q+sin(q));  
end;

но если так то изначальная формулы заполнения не катит


If you can't make it GOOD make it LOOK GOOD. B.Gates
9 | Автор: DoVe | 2011-04-23, 16:26   |  Репутация: [ + 48 ]
я вот тут попробовала сделать, только не знаю куда вместить ограничения
Program matriza;
const
m=5;
n=5;
Var
a: array[1..5,1..5] of real;
i,j: integer;
begin
Randomize;
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=i+0.5/j+sin(j);
Write(a[i,j]:5);
end;
writeln;
end;
readln;
end.
10 | Автор: inn6533 | 2011-04-24, 18:41 | Изменено: inn6533 - Пн, 2011-04-25, 14:53   |  Репутация: [ + 0 ]
какие ограничения? да и вообще тут написан первый вариант заполнения в зависимости от значения индекса, функция randomize тут абсолютно бесполезно, еще и с ошибками написано заполнение по сравнению с формулой:
Code
a[i,j]:=i+0.5/j+sin(j);

приоритет операций никто не отменял


If you can't make it GOOD make it LOOK GOOD. B.Gates
11 | Автор: DoVe | 2011-04-24, 21:05   |  Репутация: [ + 48 ]
ну у меня переменная a[i,j] real, там нужно ей ограничения поставить
12 | Автор: inn6533 | 2011-04-25, 14:55   |  Репутация: [ + 0 ]
Write(a[i,j]:5:5);
или какие ограничения??
Для рандома?


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
13 | Автор: Berestovskiy | 2011-04-26, 02:16   |  Репутация: [ + 211 ]
ну ограничения можно поставить для чисел которые будет возвращать генератор, но вообще генератор возвращает целые числа. самый простой способ получать действительные это например генерировать числа в каком то большом диапазоне например от 100 до 1000 и полученный результат делить на 100 - тогда будем получать действительные числа от 1 до 10... но правда тогда надо будет сгененрировать много чисел чтобы получилась картина нормального распределения.

If you can't make it GOOD make it LOOK GOOD. B.Gates
14 | Автор: DoVe | 2011-04-26, 09:11   |  Репутация: [ + 48 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » помогите кто может составить программу
Страница 1 из 11
Поиск: