Матрицы в паскале

[Мария0703]

Дана матрица B(20,15), сформировать матрицу C(20,15),пересчитав элементы строк таким образом, что новый элемент строки получаеться делением на её среднегеометрическое значение, зарание большое спасибо

[Stilet]

Запросто. покажеш свои наработки?

[Мария0703]

я плохо с паскалем дружу...

[fbus]

равносильно фразе
"сделайте меня ген. директором ГазПрома пока я тут на диване полежу"
Плохо дружите с паскалем - Вам в раздел фриланс, или ждать энтузиастов. Я бы не против помочь, но в школе с математикой туго было и что такое среднегеометрическое не помню. Но за деньги готов вспомнить. стучать в аську.

[Stilet]

т.е. халавшик, жаль...

var b,c:array[1..20,1..15] of integer; l:Longint;q,w:byte;
begin l:=1;
 for q:=1 to 20 do begin for w:=1 to 15 do begin
   b[q,w]:=1+random(5);write(b[q,w]:3);
   l:=l*b[q,w];
 end; writeln; end;
 l:=ROUND(exp(l*ln(20*15))); {Тут посмотри формулу корня любой степени, я не уверен}
 for q:=1 to 20 do begin for w:=1 to 15 do begin
   c[q,w]:=b[q,w] div l; write(c[q,w]:3);
 end; writeln; end;
end.

В общем наглаз примерно так.

[Мария0703]

Большое спаСИБО)), но я не халявшица, уже умею вычеслять интегралы, а это не поняла, мож книжку какую посоветуйте(для чайников)? что бы там всё поподробней было написано

[Stilet]

Ну вот в принципе ссылки нормальные http://ru.wikipedia.org/wiki/Паскаль...ограммирования)

[Мария0703]

спасибо, всё буду разбираться дальше

а сколько я должна изучать паскаль, что-бы как ты на глаз всё правильно делать? )) ещё раз спасибо

[Stilet]

Мария0703

Скажем так - я более 10 лет с Виртовскими языками работаю...
И еще, для таких вопросов есть аська или личные сообщения...