Цитата:
Оригинал написал(а) 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. {Тадам! Все!}
Вродебы так должно работать. Компилятора нет - проверить не могу.