VPF::[Pascal] Неправильный ввод и вывод элемента

MOPEDE

Дата 10.1.2007, 19:06 (ссылка)

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

Загрузка ...

Новичок

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

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

Вот моя программа.

Код


program matrix;
uses CRT;
const n=3;
m=2;
var
i,j,max:integer;
A:array[1..n,1..m] of integer;
begin
Clrscr;
write('Vvedite [',i,',',j,']=');
for i:=1 to n do
for j:=1 to m do
readln(A[i,j]);
begin
max:=A[1,1];
for i:=1 to n do
for j:=1 to m do
if A[i,j]>max then max:=A[i,j];
end;
writeln ('Max=');
for j:=1 to m do
writeln(max);
readln;
end.

Запускаю программу.
Пишет.

Vvedite element [0,0]=(я ввожу елемент)1
2
3
4
5
67
Max=
67
67
Почему не пишет
Vvedite element [0,1]
[0,2] и т.д.
В ответе должен писать одно число, не повторять его.

M
Alexeis

Модератор: код можно выделять встроенными средствами http://forum.vingrad.ru/index.php?showtopic=126445

Это сообщение отредактировал(а) Alexeis - 11.1.2007, 14:05

skyboy

Дата 10.1.2007, 19:15 (ссылка)

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

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

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

а чего? все правильно. один раз выводим слово "Введите", а потом в цикле только вводим данные:

Код


write('Vvedite [',i,',',j,']=');
for i:=1 to n do
for j:=1 to m do
readln(A[i,j]);

С какой радости компилятор будет выводить надпись несколько раз? ты же указал, что это должно быть сделано разово!

Код


writeln ('Max=');
for j:=1 to m do
writeln(max);

А тут - наоборот. Выводишь в цикле m раз значение переменной max.
значит так:
1. когда помещаешь код, обрамляй его тегами при помощи кнопки "Код" справа вверху.
2. Кусок

Код


write('Vvedite [',i,',',j,']=');
for i:=1 to n do
for j:=1 to m do
readln(A[i,j]);

замени на

Код


for i:=1 to n do
for j:=1 to m do
begin
write('Vvedite [',i,',',j,']=');
readln(A[i,j]); 
end;

3. блок

Код


writeln ('Max=');
for j:=1 to m do
writeln(max);

меняешь на

Код


writeln ('Max=');
writeln(max);

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