Caute, potreboval by som poradit, potrebujem spravit program co najednoduksie. Ze bude velkost pola 4x4 a ja budem zadavat cisla od 1 do 16 a po vypisani sa 4 riadok da na 1 a 3 na 2 a tak ale zaroven sa musi aj otocit naopak tak ze prv znak bude posledy v riadku ja to mam uz skoro hotove len neviem ten figel na to otocenie riadku. Prosim poradte my....
Kód:
Program Operacie_s_Maticami;
var pole:array[1..100, 1..100] of integer;
pole1:array[1..100, 1..100] of integer;
i,j,rozmer,c,x:integer;
begin
write('Zadaj rozmer: ');
readln(rozmer);
FOR i:=1 TO rozmer DO Begin
FOR j:=1 TO rozmer DO Begin
c:=c+1;
write('Zadajte ',c,' cislo: ');
readln(pole[i,j]);
End;
writeln;
End;
pole1:=pole;
FOR i:=1 TO rozmer DO Begin
FOR j:=1 TO rozmer DO Begin
write(pole1[i,j],' ');
End;
writeln;
End;
writeln;
writeln;
writeln;
FOR i:=1 TO rozmer DO Begin
FOR j:=1 to rozmer DO Begin
pole1[rozmer-i+1,j]:=pole[i,j];
pole1[i,rozmer+j-1]:=pole[i,j];
End;
End;
FOR i:=1 TO rozmer DO Begin
FOR j:=1 TO rozmer DO Begin
write(pole1[i,j],' ');
End;
writeln;
End;
readln;
end.
Choď na stránku: 