Нужен допуск на экзамен. Помогите задачу решить.

niktmb · 18 Дек 2010

Нужен допуск на экзамен. Помогите задачу решить.

A(N,M) Вычислить и запомнить суммы и числа элементов каждой строки матрицы. Результаты отпечатать в виде двух столбцов. N<20 M<15

вот сам текст задачи.

Задание 2. Выполнить программу при n=4, m=4, приняв следующие значения исходной матрицы
A: 1.5 2.0 -1.0 2
3.3 4.4 5.5 6.6
-2 3 4 5
0.0 -2 7 -4
В результате выполнения программы выводится матрица в виде
1.5 2.0
3.3 4.4 5.5 6.6
<пустая строка>
0.0

Правильность выполнения программы легко установить сравнением исходной матрицы A с результатом печати матрицы B. В тестовом наборе данных рассмотрены следующие случаи:
1) в строке есть отрицательный элемент;
2) в строке таковых не наблюдается;
3) первый элемент строки – отрицательный;

Вот это еще дано,но хз нужно или нет это.

niktmb · 18 Дек 2010

PROGRAM qwerty;
USES Crt;
CONST
n=15; m=20;
VAR
a:array[1..n,1..m] of integer;
rows:array[1..m]of integer;
cols:array[1..n]of integer;
i,j:integer;
BEGIN
clrscr;
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
clrscr;
end;
for i:=1 to n do
for j:=1 to m do
begin
rows:=rows+a[i,j];
cols[j]:=cols[j]+a[i,j];
end;
{rows - суммы по строчкам; cols - по столбцам}
repeat read until keypressed;
END.

вот что в голову пришло,помогите разрулить

Vladimir_S · 18 Дек 2010

Боюсь, что с допуском будет некий напряг. Прочитал Ваше первое сообщение раз 10 и, извините, ни хрена не понял. Как из исходной матрицы получается такая странная запись (с пустой строкой)? Каков принцип? Во всяком случае, никакого отношения к приведенной формулировке задачи это IMHO не имеет. Я - пас.

niktmb · 18 Дек 2010

я же подписал ниже что это может и не иметь ни какова отношения к задаче, главное прогу написать по тексту задания,я прост не очень шарю.

Vladimir_S · 18 Дек 2010

niktmb написал(а):
я же подписал ниже что это может и не иметь ни какова отношения к задаче, главное прогу написать по тексту задания,я прост не очень шарю.

Хорошо, допустим. Но тогда разъясните текст самогО задания - он весьма мутен:

niktmb написал(а):
A(N,M) Вычислить и запомнить суммы и числа элементов каждой строки матрицы. Результаты отпечатать в виде двух столбцов. N<20 M<15

Что значит "суммы и числа элементов"? Число элементов каждой строки? Но оно для всех строк одинаково и равно числу столбцов (М). Зачем его вычислять? И как? Или суммы элементов строк нужно складывать с количеством элементов? Бред какой-то...
В общем так. Помочь можно будет только после появления внятной и прозрачной формулировки задачи. Отговорки типа "А мне так дали" и "Я в этом не шарю" НЕ ПРИНИМАЮТСЯ.

niktmb · 18 Дек 2010

можно я текст задания полностью сюда вам скину а вы мне поможете? я прост серьёзно не магу там разобраться там вообще.

Vladimir_S · 18 Дек 2010

niktmb написал(а):
можно я текст задания полностью сюда вам скину а вы мне поможете? я прост серьёзно не магу там разобраться там вообще.

Можно.

niktmb · 18 Дек 2010

Удалено
сюда не умещается залил вот сюда,там вордовский файлик

Vladimir_S · 18 Дек 2010

niktmb написал(а):
удалено сюда не умещается залил вот сюда,там вордовский файлик

Впредь не надо так делать. Вам следовало свернуть файл в ZIP-архив и дальше выложить в виде вложения.
Ну ладно.
Какое из заданий нужно? Второе? Или все?
Между прочим, во втором явно пропущено слово, скорее всего "положительных". Иначе - бессмыслица.

niktmb · 18 Дек 2010

хорошо.
да,только второе,первое я уже сам сдал. Из таблице как вы уже поняли (я думаю) только 2 вариант. вполне возможно что пропущено.

Vladimir_S · 18 Дек 2010

niktmb написал(а):
хорошо.
да,только второе,первое я уже сам сдал. Из таблице как вы уже поняли (я думаю) только 2 вариант. вполне возможно что пропущено.

Без проблем. Сейчас нарисую.

niktmb · 18 Дек 2010

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

Vladimir_S · 18 Дек 2010

Пожалуйста:

Код:

VAR
 A:Array[1..20,1..15] of Real;
 Sum:Real;
 N,M,NMpos:Byte;
 i,j:Integer;
BEGIN
 Write('Number of rows (<20)= ');
 ReadLn(N);
 Write('Number of columns (<15)= ');
 ReadLn(M);
 For i:=1 to N do
  For j:=1 to M do
   begin
    Write('A[',i:2,',',j:2,']= ');
    ReadLn(A[i,j]);
   end;
 WriteLn('Initial matrix:');
 For i:=1 to N do
  begin
   For j:=1 to M do
    Write(A[i,j]:6:1);
   WriteLn;
  end;
 WriteLn;
 WriteLn('Result of calculation:');
 For i:=1 to N do
  begin
   Sum:=0;
   NMpos:=0;
   For j:=1 to M do
    begin
     Sum:=Sum+A[i,j];
     If A[i,j]>0 then Inc(NMpos);
    end;
   WriteLn(Sum:7:1,NMpos:4);
  end;
 WriteLn;
 ReadLn;
END.

niktmb · 18 Дек 2010

огромное спасибо,все работает идеально.:tehnari_ru_288:

niktmb · 18 Дек 2010

только еще один вопрос возник,можно ли сделать так что бы элементы матрицы в столбцах и строках прога заполняла рандомом? если можно то что надо изменить?

Vladimir_S · 18 Дек 2010

niktmb написал(а):
только еще один вопрос возник,можно ли сделать так что бы элементы матрицы в столбцах и строках прога заполняла рандомом?

Легко. Только встречный вопрос - нельзя ли ограничиться целочисленным форматом (Integer) элементов матрицы, т.е. обязательно ли Real? Если можно, то было бы существенно проще и удобнее.

niktmb · 18 Дек 2010

Я думаю что можно только целые(интежер) вряд ли на это будут смотреть.

Vladimir_S · 18 Дек 2010

Получите:

Код:

VAR
 A:Array[1..20,1..15] of Integer;
 Sum,i,j:Integer;
 N,M,NMpos:Byte;
BEGIN
 Write('Number of rows (<20)= ');
 ReadLn(N);
 Write('Number of columns (<15)= ');
 ReadLn(M);
 Randomize;
 For i:=1 to N do
  For j:=1 to M do
    A[i,j]:=Random(100)-50;
 WriteLn('Initial matrix:');
 For i:=1 to N do
  begin
   For j:=1 to M do
    Write(A[i,j]:5);
   WriteLn;
  end;
 WriteLn('Press "Enter" to continue');
 ReadLn;
 WriteLn('Result of calculation:');
 For i:=1 to N do
  begin
   Sum:=0;
   NMpos:=0;
   For j:=1 to M do
    begin
     Sum:=Sum+A[i,j];
     If A[i,j]>0 then Inc(NMpos);
    end;
   WriteLn(Sum:7,NMpos:4);
  end;
 WriteLn;
 ReadLn;
END.

niktmb · 18 Дек 2010

После ввода числа столбцов и строк выдаёт ошибку Error 215: Arithmetic overflow.

niktmb · 18 Дек 2010

Но я так понял что если изменить random(100)-50 на (100)+50 или (100)+0 то все работает

Нужен допуск на экзамен. Помогите задачу решить.

Новые

Новые

Ученик

Новые

Ученик

Новые

Ученик

Новые

Ученик

Новые

Ученик

Новые

Ученик

Новые

Новые

Ученик

Новые

Ученик

Новые

Новые

Похожие темы