VPF::[PACKAL] !!!Срочно....Помогите разобраться!!!&

СМЕХ

Дата 17.12.2006, 15:11 (ссылка)

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

Загрузка ...

Новичок

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

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

Дана матрица А [10,3 ] оценки по трем дисциплинам.
1)    Ввести и распечатать матрицу.
2)    Определить и ввести числа 2 и 5 и средний балл по каждому предмету (столбцу).
3)    Определить и вывести строки с max и min суммарным баллом.
4)    Определить столбец с max средним баллом.

Код


Uses crt;
var a:array[1..10,1..3] of integer;
       sum, i,imax,jmax,outmi,outma,j,n:integer;
BEGIN
clrscr;
randomize;
n:=10;
for i:=1 to 3 do
 for j:=1 to 10 do
  begin
   readln(a[j,i]);
  end;
outma:=-100000;
outmi:=10000;
for i:=1 to 3 do
begin
 sum:=0;
 for j:=1 to 10 do
 begin
      sum:=sum+a[j,i];
 end;
 if(sum>outma)then
 begin
    outma:=sum;
    imax:=j;
 end;
 if(sum<outmi)then
 begin
    outmi:=sum;
    jmax:=j;
 end;
end;
writeln('Строка ',imax,' с макс суммой');
writeln('Строка ',jmax,' с мини суммой');

outma:=-100000;
outmi:=10000;
for i:=1 to 3 do
begin
 sum:=0;
 for j:=1 to 10 do
 begin
      sum:=sum+a[j,i];
 end;
 if(sum/10>outma)then
 begin
    outma:=sum;
    imax:=j;
 end;
end;
writeln('Строка ',imax,' с макс средним баллом ');

readln;
END.

СКАЖИТЕ, пожалуйста, что не правильно в решении и как определить и ввести числа 2 и 5 и средний балл по каждому предмету (столбцу). smile

Zero

Дата 17.12.2006, 18:55 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

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

Вопрос: а ты эту прогу сам писал или нет? smile

Rodman

Дата 17.12.2006, 18:57 (ссылка)

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

Загрузка ...

CIO

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

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

Код


Uses crt;
var a:array[1..10,1..3] of integer;
       sum, i,imax,jmax,outmi,outma,j,n:integer;
BEGIN
clrscr;
for i:=1 to 3 do
 for j:=1 to 10 do
  begin
   gotoxy(i*4,j*2);
   readln(a[j,i]);{вот тут и вводи свои пятерки и двойки}
  end;
outma:=-100000;{задаем для последующего сравнения максимальное}
outmi:=10000;{и минимальное число}
for i:=1 to 3 do
begin
 sum:=0;{обнуляем сумму для того что бы посчитать для следующего столбца}
 for j:=1 to 10 do
 begin
      sum:=sum+a[j,i]; {считаем сумму}
 end;
 if(sum>outma)then{проверяем сумму на поиск максимальной}
 begin
    outma:=sum;
    imax:=j;{запоминаем номер столбца с нужной суммой}
 end;
 if(sum<outmi)then{проверяем на наличие мимнимальной}
 begin
    outmi:=sum;
    jmax:=j;{запоминаем номер стобца}
 end;
end;
writeln('Строка ',imax,' с макс суммой');
writeln('Строка ',jmax,' с мини суммой');
outma:=-100000;
outmi:=10000;
for i:=1 to 3 do
begin
 sum:=0;
 for j:=1 to 10 do
 begin
      sum:=sum+a[j,i];
 end;
 if(sum/10>outma)then{проверка для поиска максимального среднего бала}
 begin
    outma:=sum;
    imax:=j;
 end;
end;
writeln('Строка ',imax,' с макс средним баллом ');
readln;
END.

Это сообщение отредактировал(а) Rodman - 17.12.2006, 19:04

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

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

Лотереи мира

СМЕХ

Дата 17.12.2006, 19:26 (ссылка)

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

Загрузка ...

Новичок

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

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

1. Че то я не понимаю мне надо просто с клавиатуры ввести 2 и 5 или что компьютер выдал ГДЕ ОНИ НАХОДЯТСЯ
2. прога не читает средний балл по каждому предмету (столбцу).
3. прога определяет и выводит строки с max и min суммарным баллом и столбец с max средним баллом НО НЕ ПРАВИЛЬНО

Alexeis

Дата 18.12.2006, 03:06 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

!
alexeis1

Модератор: всякому терпению приходит конец. :angry:

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

За время пребывания на форуме вы нарушили столько правил, что мало кому удавалось такое сделать.

Очередное нарушение! Дубликат темы в ЦП http://forum.vingrad.ru/index.php?showtopic=127627

Я после первого предупреждения я предупреждал, что будет бан. Теперь не обижайтесь.

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

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