roy
Administrator
Dołączył: 02 Gru 2007
Posty: 70
Przeczytał: 0 tematów
Skąd: Głuchołazy
|
 Wysłany: Pon 20:09, 03 Gru 2007 Temat postu: Lista 6 - zad 4 mgr H |
|
|
| Kod: | program Project3;
{$APPTYPE CONSOLE}
uses
SysUtils;
const
n=5;
var
tab:array[1..n,1..n] of integer;
i,j : integer;
k:char;
begin
repeat
for i:=1 to n do begin
for j:=1 to n do begin
if (i=j) or (i+j=n+1) then begin
tab[i,j]:=1;
end
else
tab[i,j]:=0;
end;
end;
///pisz tablice
for i:=1 to n do begin
for j:=1 to n do
write(tab[i,j]:3);
writeln;
end;
writeln;
writeln('Zakonczyc N/t');
readln(k);
until (k=upcase('t')) or (k='t');
{ TODO -oUser -cConsole Main : Insert code here }
end.
|
|
|
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj
