09.05.2010, 23:44 | #11 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
|
09.05.2010, 23:44 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Обратите внимание, что на форуме уже встречались темы с похожим содержанием Нужна помощь по МК Нужна помощь |
10.05.2010, 00:01 | #12 (permalink) |
Member
Регистрация: 09.05.2010
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Program bukvaa;
uses crt; const m=9; n=10; var i,j:integer; s:real; a:array[1..m,1..n] of real; begin clrscr; writeln('vvedite kolichestvo stolbzov'); writeln; for i:=1 to n do begin s:=0; for j:=1 to m do s:=s+a[m,n]; s:=s/m; writeln('srednee arifmeticheskoe elementov ',i,' stolbza',s); readln end; end. вроде написал но не пойму почему не работает как надо(( |
10.05.2010, 00:10 | #13 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Нули выводит? Логично, у вас в программе отсутствует ввод массива, поймите вы наконец. Если массив не введен, то в памяти по умолчанию выставляются нули.
Далее, вы пишете: 'введи количество столбцов'. Если вы хотите, что бы программа прочитала что-то с клавиатуры, должны поставить оператор readln. Но количество столбцов n у вас уже задано константой. Вы можете: сделать n переменной, размер массива задать как число ~20-30, больше врядли будете вводить, и организовать ввод n; либо отказаться от ввода количества строк с клавиатуры. И обязательно сделать ввод массива |
10.05.2010, 00:20 | #15 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Ну как обычно вводится массив? В цикле. А двумерный массив вводится во вложенном цикле. Вот ваш фрагмент:
writeln('Type the array by a string and press Enter key'); //введи массив по строкам и нажми клавишу Энтер for i:=1 to n do begin for j:=1 to m do read(a[i,j]); readln; end; |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
10.05.2010, 00:41 | #18 (permalink) |
Member
Регистрация: 09.05.2010
Сообщений: 21
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Program bukvaa;
uses crt; const m=9; n=10; var i,j:integer; s:real; a:array[1..m,1..n] of real; begin clrscr; writeln; writeln; randomize; writeln('vvedite massiv po strokam'); for i:=1 to n do begin for j:=1 to m do read(a[i,j]); readln; for i:=1 to n do begin s:=0; for j:=1 to m do s:=s+a[m,n]; s:=s/m; writeln('srednee arifmeticheskoe elementov ',i,' stolbza',s); readln end; end; end. |
10.05.2010, 00:47 | #20 (permalink) |
一步一步地会到目的
Регистрация: 09.05.2009
Адрес: Черноземье
Сообщений: 10,939
Записей в дневнике: 10
Сказал(а) спасибо: 140
Поблагодарили 80 раз(а) в 33 сообщениях
Репутация: 28362
|
Program bukvaa;
uses crt; const m=9; n=10; var i,j:integer; s:real; a:array[1..m,1..n] of real; begin clrscr; writeln; writeln; randomize; writeln('vvedite massiv po strokam'); for i:=1 to m do begin for j:=1 to n do read(a[i,j]); readln; end; for i:=1 to n do begin s:=0; for j:=1 to m do s:=s+a[m,n]; s:=s/m; writeln('srednee arifmeticheskoe elementov ',i,' stolbza',s); readln end; end. Исправил вам свою ошибку в процедуре ввода, и переставил один энд в положенное место. Проверяйте Я сам сейчас не могу написать, время позднее. Ваш вариант довольно легок. Да и вы все-таки должны разобраться |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|