задачка на pascal. массив, помогите решить... Опции

[MrOverseer]

В массиве 3х4 расставить в обратном порядке элементы каждой строки.

В задаче нужно чтобы было видно первоначальная матрица и конечный результат, и желательно программу написать по-проще.
ПОЖАЛУЙСТА помогите!!!!!!

[Client]

uses crt;
var
   a,b:array [1..4,1..4] of integer;
   i,j:byte;
begin
     clrscr;
     writeln(' Vvedite: ');
     for i:=1 to 4 do
         for j:=1 to 4 do
             read(a[i,j]);
     for i:=1 to 4 do
         for j:=4 downto 1 do
             b[i,j]:=a[i,5-j];
     for i:=1 to 4 do begin
         for j:= 1 to 4 do
             write(a[i,j]:5);
         writeln
     end;
     writeln;
     for i:=1 to 4 do begin
         for j:= 1 to 4 do
             write(b[i,j]:5);
         writeln
     end;
     readkey
end.

Так пойдет?

[klem4]

Client, зачем 2 матрицы ? В задании об этом ничего не сказано

[Client]

Но там и не сказано что его нельзя использовать (второй массив)
Ну да ладно, вот решил, хотя можно было лишь в факе посмотреть...

uses crt;
const
     n=4;
var
   a:array[1..n,1..n] of integer;
   i,j:byte;
   с:integer;
begin
     clrscr;
     for i:=1 to n do
         for j:=1 to n do
             read(a[i,j]);
     for i:=1 to n do
         for j:=1 to n div 2 do begin
             с:=a[i,j];
             a[i,j]:=a[i,n-j+1];
             a[i,n-j+1]:=с
         end;
     for i:=1 to n do begin
         for j:=1 to n do
             write(a[i,j]:5);
         writeln;
     end;
     readkey
end.

Сообщение отредактировано: Client - 6.01.2008 17:21

[MrOverseer]

Так пойдет?

что такое readkey и как он работает?
и еще что такое const, что такое byte и что такое div?

в 4-ом сообщении прога - не пашет
а в 3-м сообщении получилось как-то налеплено. как сделать промежуток между столбцами массива?

Сообщение отредактировано: MrOverseer - 6.01.2008 20:45

[Client]

в 4-ом сообщении прога - не пашет

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

[MrOverseer]

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

Переписал в точности до запятой. пустой экран, ввожу числа и усе!

что такое readkey и как он работает?
и еще что такое const, что такое byte и что такое div?



Сообщение отредактировано: MrOverseer - 6.01.2008 21:24

[Client]

Вот что у меня

[MrOverseer]

чё за readkey??? и зачем он нужен???

Добавлено через 8 мин.

Вот что у меня

а у меня ответ после ввода не выдает. сразу выходит! и если убрать клрскр то ответ в предыдущем случае виден.
В чем моя ошибка(кроме как в ДНК)?

[ammaximus]

readkey-функция нажатой клавиши. Возвращает код нажатой клавиши.
Здесь используется для задержки выведенной информации на экране до тех пор пока не нажата какая-нибудь клавиша.
div-целочисленное деление, деление с отбрасыванием остатка
byte - целочисленный тип, переменная этого типа способна принимать значения в диапазоне 0..256, т.е. 1 байт
const - раздел описания констант, переменных, к-рые запрещено изменять во время исполнения программы.

Попробуй взять любой учебник, там описано подробнее, вся эта информация, скорее, на первых 10 страницах.

[MrOverseer]

у меня не работает этот readkey паскаль на него жалуется.

[ammaximus]

возможно ты забыл прописать uses crt; в начале

[MrOverseer]

возможно ты забыл прописать uses crt; в начале

нет не забыл

у меня версия паскаля 6.0. может из-за этого?

Сообщение отредактировано: MrOverseer - 6.01.2008 21:57

[ammaximus]

Сотри readkey; и напиши readln;
В чем особенности шестой версии сказать не могу, никогда не пользовался.

[MrOverseer]

Сотри readkey; и напиши readln;

по-моему readkey исп-ся в С++ а в паскале он не всегда робатает, так?

a[i,j]:=a[i,n-j+1];

почему записано именно так, что означает? и вообще не могу разобраться в проге

и в задании вообще массив 3х4

Сообщение отредактировано: MrOverseer - 7.01.2008 20:14

[volvo]

по-моему readkey исп-ся в С++ а в паскале он не всегда робатает, так?

Чего? При чем тут C++? Библиотечная функция языка, не работает - значит неправильно используешь...

А не работает - по очень простой причине: 1000 раз повторял, Client, наконец начинай обращать внимание на свои же прошлые ошибки!!! Не первый же день на форуме. Чего ты постоянно пихаешь везде Read вместо ReadLn? Ну, ввел число, а Enter где остался? В буфере клавиатуры? Поэтому даже один ReadLn в конце программы не помогает - надо ставить 2: первый прочтет тот самый забытый Enter из буфера, второй будет ждать еще одного нажатия на Enter...