Паскаль

[juggy]

Привет всем, вот сессия началась, а я к своему ужасу понял , что не знаю паскаля.

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

Вообще это реализуемо?

У меня последняя надежда , форумов по паскалю, я что-то дельных не нашел, а тут , знаю программеры есть толковые.


ну собственно если кто поможет естественно или пивка, или 10 wmz или баннер на alesh.ru или просто большое спасибо=)

[Flavius_Dexter]

Оригинал написал(а) juggy
Привет всем, вот сессия началась, а я к своему ужасу понял , что не знаю паскаля.

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

Вообще это реализуемо?

Дык, элементарно! Правда а паскаль садился года два назад, но попытаюсь...

uses crt;
var
massiv : array [1..10,1..10] of byte;
a,b : byte;
begin
clrscr;
for a:=1 to 10 do begin
for b:=1 to 10 do begin
massiv [a,b]:=random(9); {тут типа заполняется рандомами}
write(massiv[a,b],' '); {тут выводиться горизонтальная строка}
end;
writeln(' ');{тут переводиться на новую строку}
end;
repeat
a:=0;b:=0; {ну хоть чем-то забить цикл :)))}
until keypressed; {ну или если глючит глянь хелп на keypressed, вроде не должно}
writeln(' ');
for a:=1 to 10 do begin
for b:=1 to 10 do begin
write(massiv[b,a],' '); {тут выводиться горизонтальная строка}
end;
writeln(' ');{тут переводиться на новую строку}
end;
end. {Тадам! Все!}

Вродебы так должно работать. Компилятора нет - проверить не могу.

[Flavius_Dexter]

Oops! Вот посмотрел я на исходник и подумал - а в Паскале допустимы одинарные кавычки (') или все же нужны двойные (") ???

[juggy]

Млин ! Не перевелись еще хорошие люди !
Спасибо!