IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> модули элементов в двумерном массиве
сообщение
Сообщение #1


Профи
****

Группа: Пользователи
Сообщений: 920
Пол: Женский
Реальное имя: Марина

Репутация: -  2  +


дан двумерный массив, вывести ту строку, сумма модулей элементов в которой максимальна.
использовать процедуры.


я не соображу, как собственно вывести строку

и еще... при компиляции появляется ошибка 36 ( отсутствие begin), не знаю, где его пропустила


uses crt;
const n=2;
m=5;
type vect=array[1..n] of real;
matr=array[1..m] of vect;
procedure input(var a:matr);
var
i,j:byte;
begin
writeln ('vvedite elementi dvymernogo massiva');
for i:=1 to n do
for j:=1 to n do
read (a[i,j]);
end;
procedure stroka(a:matr; var:s,s1);
i,j:byte;
max:real;
begin
for i:=1 to n do
for j:=1 to m do
begin
s:=0;
s:=s+abs(a[1,j];
max:=s;
s1:=s1+abs(a[2,j]);
if max<s1 then
writeln ('nyshai stroka:2');
else writeln ('nysnai stroka :1');
writeln ('s=',s:4:1);
writeln ('s1=',s1:4:1); end;
end;
var
a:matr;
begin
input(a);
storka(a,s,s1);
readkey;
end.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Sum исправил. По поводу const это и имел в виду
Цитата
Const ставится как защита от СЛУЧАЙНОГО изменения данных
неправильно выразился.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
18192123   модули элементов в двумерном массиве   13.11.2006 20:42
volvo   :blink: У тебя не только Begin пропущен... Внимате…   13.11.2006 20:47
18192123   :blink: У тебя не только Begin пропущен... Внимат…   14.11.2006 0:41
klem4   Компиляция чего проходит успешно ? Приведенный тоб…   14.11.2006 0:46
18192123   Компиляция чего проходит успешно ? Приведенный то…   14.11.2006 1:35
Гость   Ты вводишь матрицу n*n =4 а надо m*n =10   14.11.2006 1:53
klem4   Гость, ты о чем ? 18192123, вот смотри, разбирай…   14.11.2006 1:56
18192123   Гость, ты о чем ? 18192123, вот смотри, разбира…   14.11.2006 3:29
18192123   18192123, вот смотри, разбирайся объясни пожалуйст…   14.11.2006 19:52
Гость   RE: модули элементов в двумерном массиве   14.11.2006 2:04
klem4   Гость, онаже Pola А если подумать ?   14.11.2006 2:07
Гость   и саму строку вывести в конце проги можно   14.11.2006 2:17
klem4   Более чем уверен, что имлось в виду вывести номер …   14.11.2006 2:19
18192123   Более чем уверен, что имлось в виду вывести номер…   14.11.2006 3:14
Гость   У тебя какая версия Паскаля? может это на const в …   14.11.2006 13:24
klem4   Const как раз ставится для того, чтобы исключить…   14.11.2006 14:06
volvo   klem4: function Sum(const mx: TMx; row: Integer):…   14.11.2006 15:29
klem4   Sum исправил. По поводу const это и имел в виду н…   14.11.2006 15:38
klem4   function Sum(const mx: TMx; row: Integer): Intege…   14.11.2006 22:34
18192123   function Sum(const mx: TMx; row: Integer): Integ…   15.11.2006 2:34
мисс_граффити   это формальный параметр. вместо него при вызоые по…   15.11.2006 2:41
18192123   это формальный параметр. вместо него при вызоые п…   15.11.2006 2:55
18192123   большое спасибо! а у меня тут еще один вариа…   15.11.2006 22:08
18192123   а у меня тут еще один вариант "родился…   16.11.2006 2:46
18192123   ну почему мне никто не хочет помочь! неужели …   16.11.2006 3:34
мисс_граффити   послушай: 1. никто не обязан круглосуточно следить…   16.11.2006 3:53
18192123   послушай: 1. никто не обязан круглосуточно следит…   16.11.2006 4:15
lapp   Первое замечание: соблюдай отступы! после кажд…   16.11.2006 9:28
18192123   Первое замечание: соблюдай отступы! после каж…   16.11.2006 23:31
18192123   кажется, я в очередной раз запуталась в процедура…   17.11.2006 1:27
lapp   теперь поняла в чем ошибка Уррррааа! :) :) :)…   17.11.2006 11:26


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 13.08.2022 16:28
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name