Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Срочно! задача по паскалю файлы / 6 сообщений из 6, страница 1 из 1
16.05.2007, 16:38
    #34529935
SiE
SiE
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Срочно! задача по паскалю файлы
Помогите пожалуйста, срочно с задчей по Паскалю! Нужно написать файлы , вот условие задачи:

сформировать массив A[n], из массива B[n][m], где элементы Ai - это сумма элементов в строке массива B

вот сама прога:

program zad_3;
var
a:array[1..10] of integer;
b:array[1..10, 1..10] of integer;
i, j, n, m, sum_str: integer;

begin
writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® бва®Є: ');
readln(n);
writeln('‚ўҐ¤ЁвҐ Є®«ЁзҐбвў® бв®«Ўж®ў: ');
readln(m);

for i:=1 to n do
begin
for j:=1 to m do
begin
writeln('‚ўҐ¤ЁвҐ §­ зҐ­ЁҐ н«Ґ¬Ґ­в  B[', i,'][',j, ']: ');
readln(b [j]);
end;
end;

sum_str:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
sum_str:=sum_str+b[j];
end;
a:=sum_str;
sum_str:=0;
end;

for i:=1 to n do
begin
writeln('‡­ зҐ­Ёп н«Ґ¬Ґ­в  A[', i, '] :', a);
end;
end.

Заранее спасибо!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2007, 21:05
    #34530718
madvet
madvet
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Срочно! задача по паскалю файлы
Так прога же есть, чего еще писать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2007, 14:23
    #34532614
OldestProgrammer
OldestProgrammer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Срочно! задача по паскалю файлы
SiE
sum_str:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
sum_str:=sum_str+b [j];
end;
a:=sum_str;
sum_str:=0;
end;

for i:=1 to n do begin
a :=0;
for j:=1 to m do a:=a+b[j];
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
03.11.2008, 01:49
    #35631896
Dimidoff
Dimidoff
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Срочно! задача по паскалю файлы
НАРОД ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ ПРОШУ!!!!!!!!!!!!!!!!!!!!!!!!!
Даны 2 действит. матрицы порядк n .Получить матрицу прибавлением к элементам каждого столбцапервой матрицы произведения элементов соответствующих строк второй матрицы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.11.2008, 02:32
    #35632977
Ренат
Ренат
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Срочно! задача по паскалю файлы
DimidoffНАРОД ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ ПРОШУ!!!!!!!!!!!!!!!!!!!!!!!!!
Даны 2 действит. матрицы порядк n .Получить матрицу прибавлением к элементам каждого столбцапервой матрицы произведения элементов соответствующих строк второй матрицы.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
program zad_3;
const N= 10 ;
type Tarr=array[ 1 ..N, 1 ..N] of integer;
var 
a:TArr;
b:TArr;
i,j,temp:integer;
begin
for i:= 1  to N do
begin
for j:= 1  to N do
begin
writeln('Чето типа введите элемент a['+i+','+j+']: ');
readln(a[i,j]);
writeln('Чето типа введите элемент b['+i+','+j+']: ');
readln(b[i,j]);
end;
end;



for i:= 1  to N do
begin
temp= 0 ;
for j:= 1  to N do temp:=b[i,j]+temp;
for j:= 1  to N do a[i,j]:=a[i,j]+temp;
end;

for i:= 1  to N do
for j:= 1  to N do
begin
writeln('Элемент новой матрицы a['+i+','+j+'] :', a[i,j]);
end;
end.
Здесь подразумеваеться что первы индекс строка а второй столбец... если "принято" наоборот, думаю труда не будет переделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.11.2008, 02:42
    #35632981
Ренат
Ренат
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Срочно! задача по паскалю файлы
Опечатался, там не сумма а произведение:
Код: plaintext
1.
2.
for j:= 1  to N do temp:=b[i,j]+temp;
=>
for j:= 1  to N do temp:=b[i,j]*temp;
зы. В таких школьных задачках самое сложно... понять что от тебя проситься...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Срочно! задача по паскалю файлы / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 380ms
Закрыть
start [/forum/topic.php?fid=16&mobile=1&tid=1344889]:
 0ms
get settings:
 8ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 62ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 206ms
total:  380ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]