VPF::Произведение компонентов - Форум программистов

g1pn0z

Дата 16.5.2007, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 29.4.2007

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

решил задачу но не могу понять что неверно,
коротко поясню условие: Даны два массива, найти в каждом произведение компонентов расположенных под главной диагональю, и найти какое произведение больше... вооот...

Код


program za1;
uses crt;
const n=3;
m=3;
var
a:array[1..n,1..n] of integer;
b:array[1..m,1..m] of integer;
i,j,p,r,max:integer;
begin
clrscr;
randomize;
writeln('Массив #1');
p:=1;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(99);
write(a[i,j]:2,' ');
p:=p*a[i,j];
end;
writeln(p);
end;
writeln('Массив #2');
r:=1;
for i:=1 to m do
begin
for j:=1 to m do
begin
b[i,j]:=random(78);
write(b[i,j]:2,' ');
r:=r*b[i,j];
end;
writeln(r);
end;
if p>r then p:=max
else r:=max;
writeln('Мах произведение  ',max);
readln;
end.

RodmanTMP

Дата 16.5.2007, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 26.3.2007

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

Код


program za1;
uses crt;
const n=3;
m=3;
var
a:array[1..n,1..n] of integer;
b:array[1..m,1..m] of integer;
i,j,p,r,max:integer;
begin
clrscr;
randomize;
writeln('Массив #1');
p:=1;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(99);
write(a[i,j]:2,' ');
if(i+j<n+1)then
   p:=p*a[i,j];
end;
writeln(p);
end;
writeln('Массив #2');
r:=1;
for i:=1 to m do
begin
for j:=1 to m do
begin
b[i,j]:=random(78);
write(b[i,j]:2,' ');
if(i+j<m+1)then
   r:=r*b[i,j];
end;
writeln(r);
end;
if p>r then p:=max
else r:=max;
writeln('Мах произведение  ',max);
readln;
end.

оно

g1pn0z

Дата 16.5.2007, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 29.4.2007

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

почти, тока вот ответ не выходит(((
P.S. всмысле мах произведение

Rodman

Дата 16.5.2007, 14:51 (ссылка)

(нет голосов)

Загрузка ...

CIO

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

Репутация: нет
Всего: 122

ясное дело... внимательнее писать надо!

Код


if p>r then 
    max:=p
else 
   max:=r;

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

CRM с функцией АвтоОбзвона

Лотереи мира

g1pn0z

Дата 16.5.2007, 15:06 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 29.4.2007

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

я тока это понял и ты уже ответил)))) smile

залезь ко мне в асю...

Rodman

Дата 16.5.2007, 15:10 (ссылка)

(нет голосов)

Загрузка ...

CIO

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

Репутация: нет
Всего: 122

Цитата(g1pn0z @ 16.5.2007, 14:06

)

залезь ко мне в асю...

стисняйся молодой человек...

если что то спросить хочешь, то создавай топик... разберемся!!!

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

CRM с функцией АвтоОбзвона

Лотереи мира

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »