|
Вопрос # 5 428/ вопрос открыт / |
|
Здравствуйте!
Нуждаюсь в вашей помощи.
Из двумерного массива A[N,M] сформировать одномерный массив В. Каждый элемент массива В равен сумме элементов строки массива А.
 |
Вопрос задал: Силиванов (статус: Посетитель)
Вопрос отправлен: 20 июня 2011, 13:58
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Gooddy
Здравствуйте, Силиванов!
Ввод и вывод нормальный, а функцию я убрал.
Приложение: Переключить в обычный режим-
- function sum(p:longint):longint;
- var c,sum1:longint;
- begin
-
- sum1:=0;
-
- for c:=1 to m do
- sum1:=sum1+a[p,c];
-
- sum:=sum1;
-
- end;
-
-
-
-
- for i:=1 to n do d[i]:=sum(i);
-
-
-
- for i:=1 to n do
- begin
- d[i]:=0;
- for j:=1 to m do
- d[i] := d[i] + a[i,j];
- end;
-
-
-
-
-
- var a:array[1..1000,1..1000] of longint;
- d:array[1..1000] of longint;
- n,m,i,j:longint;
-
- begin
-
- readln(n,m);
-
- for i:=1 to n do
- for j:=1 to m do read(a[i,j]);
-
- for i:=1 to n do
- begin
- d[i]:=0;
- for j:=1 to m do
- d[i] := d[i] + a[i,j];
- end;
-
- for i:=1 to n do write(d[i],' ');
-
- end.
 |
Ответ отправил: Gooddy (статус: 3-ий класс)
Время отправки: 20 июня 2011, 14:45
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 7; последнее сообщение — 20 июня 2011, 15:30; участников в обсуждении: 2.
|
min@y™ (статус: Доктор наук), 20 июня 2011, 14:10 [#1]:
А что не получается?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Силиванов (статус: Посетитель), 20 июня 2011, 14:12 [#2]:
есть программа через функцию, но нужнопеределать без функции
var a:array[1..1000,1..1000] of longint;
d:array[1..1000] of longint;
n,m,i,j:longint;
function sum(p:longint):longint;
var c,sum1:longint;
begin
sum1:=0;
for c:=1 to m do
sum1:=sum1+a[p,c];
sum:=sum1;
end;
begin
readln(n,m);
for i:=1 to n do
for j:=1 to m do read(a[i,j]);
for i:=1 to n do d[i]:=sum(i);
for i:=1 to n do write(d[i],' ');
end.
а ещё какой то ввод кривой и вывод
|
|
|
min@y™ (статус: Доктор наук), 20 июня 2011, 14:21 [#3]:
А не получается-то что?!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Силиванов (статус: Посетитель), 20 июня 2011, 14:23 [#4]:
вот нужно переделать
|
|
|
min@y™ (статус: Доктор наук), 20 июня 2011, 14:50 [#5]:
Цитата (Силиванов):
вот нужно переделать
Ну а не получается-то что?! Почему переделать не можешь?
Это всё надо не на delphi, а на турбопаскакале сделать?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Силиванов (статус: Посетитель), 20 июня 2011, 15:04 [#6]:
кажется программа не правильно работает, мне нужно на турбопаскакале сделать
|
|
|
Силиванов (статус: Посетитель), 20 июня 2011, 15:30 [#7]:
извините, всё правильно, разобрался
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
