Паскаль
 

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

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

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

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


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

Re: Паскаль
 

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

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. {Тадам! Все!}

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

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

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