Паскаль - задача на Массивы

Даниил
Сообщения: 18
Зарегистрирован: 18 июн 2008, 20:20

Ребят, Всем Добрый Вечер!
Мне срочно нужно решить вот эту штуку:
Тема Массивы
В квадратном массиве В (3,3) найти сумму наибольших значений элементов его строк.
И пояснить хоть как то чтобы я преподу мог хоть что то прокумекать как и что я решал и откуда брал )
Братцы выручайте пожалуйста!!!
C_O_D_E
Сообщения: 296
Зарегистрирован: 13 фев 2008, 20:10
Откуда: Беларусь. Орша
Контактная информация:

Ищешь в каждой строке максимальный элемент
Потом суммируешь их
[syntax=Delphi]
for i:=1 to 3 do begin
max=a[i,1];
for j:=2 to 3 do begin
if a[i,j]>max then max:=a[i,j];
end;
k=k+max;
end;
[/syntax]
Если назначен специальный человек для контроля за чистотой исходной информации, то найдется изобратательный идиот, который придумает способ, чтобы неправильная информация прошла этот контроль.
Даниил
Сообщения: 18
Зарегистрирован: 18 июн 2008, 20:20

[syntax='Delphi']
program agggg;
var maX:real;
M:array[1..3,1..3]of real;
i,j:integer;
sum:real;
begin
sum:=0;
writeln('enter 3x3 line:');
for i:=1 to 3 do begin
for j:=1 to 3 do
read(m[i,j]);
readln;
end;

for i:=1 to 3 do begin
maX:=m[i,1];
for j:=2 to 3 do begin
if max < m[i,j] then maX:=m[i,j];
end;
sum:=sum+max;
end;

writeln('sum = ', sum);

end.
[/syntax]
Вот это вот правильно?
C_O_D_E
Сообщения: 296
Зарегистрирован: 13 фев 2008, 20:10
Откуда: Беларусь. Орша
Контактная информация:

Правильно.
Если назначен специальный человек для контроля за чистотой исходной информации, то найдется изобратательный идиот, который придумает способ, чтобы неправильная информация прошла этот контроль.
Даниил
Сообщения: 18
Зарегистрирован: 18 июн 2008, 20:20

А чё мне сказать, если курица эта спросит Студент Данила а как ты решил то это всё, ну ка объясни ? :) )
C_O_D_E
Сообщения: 296
Зарегистрирован: 13 фев 2008, 20:10
Откуда: Беларусь. Орша
Контактная информация:

Читай второй пост.
в первом блоке циклов ты заполняешь массив
во втором
Ищешь в каждой строке максимальный элемент
Потом суммируешь их
потом выводишь на экран сумму
Это описано в любом учебнике. Учитесь книжки читать.
Если назначен специальный человек для контроля за чистотой исходной информации, то найдется изобратательный идиот, который придумает способ, чтобы неправильная информация прошла этот контроль.
Даниил
Сообщения: 18
Зарегистрирован: 18 июн 2008, 20:20

Хаха :) спасибо тебе большое :) нет книжек, так вышло что в школе у меня информатики не было, в шараге тоже, а ща в инсте требуют скоты =)
MOTOCoder
Сообщения: 548
Зарегистрирован: 14 янв 2008, 20:27
Откуда: Россия, Псков

Берете гугл или яндекс и ищете что-то типа "поиск максимального элемента паскаль", думаю, будет достаточно.
А вообще, купите книгу, пригодится :) .
Ни что так не ограничивает фантазию программиста, как компилятор...
Даниил
Сообщения: 18
Зарегистрирован: 18 июн 2008, 20:20

Да боюсь не пригодиться, информатика 1 год только, спасибо большое Вам :)
Даниил
Сообщения: 18
Зарегистрирован: 18 июн 2008, 20:20

Ребят, а это не лучше? или лучше всё оставить как есть? :)
[syntax='Delphi']
program pr;
var a: array [1..3,1..3] of real;{Исходный массив}
max: array [1..3] of real; {Массив максимальных элементов}
i,j: integer;
begin
{Вводим элементы массива и заодно определяем максимальный}
for i:=1 to 3 do
for j:=1 to 3 do
begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
if j=1 then max:=a[i,1]
else
if a[i,j]>max then max:=a[i,j];
end;
writeln('sum=',max[1]+max[2]+max[3]);
readln;
end.
[/syntax]
Ответить