> Się kompiluje ;)
O, a zamiast pierwszych 7 literek, każda w nowej linijce poprawniej chyba będzie tak:
program aborcjusz;
var x,y:integer;
tajnehaslo:array[1..11] of char;
procedure struszynski(numer:byte);
begin
write(tajnehaslo[numer]);
end;
begin
tajnehaslo[1]:='W'; tajnehaslo[2]:='Y'; tajnehaslo[3]:='P'; tajnehaslo[4]:='I'; tajnehaslo[5]:='E'; tajnehaslo[6]:='R'; tajnehaslo[7]:='D'; tajnehaslo[8]:='A'; tajnehaslo[9]:='L'; tajnehaslo[10]:='A'; tajnehaslo[11]:='J';
for x:=1 to 10 do
begin for y:=1 to 11 do
begin
struszynski(y);
end;
readln;
end.
I przynajmniej nie zniknie odrazu po wykonaniu się. Wyświetla ładnie, kulturalnie jedno słowo w jednej linijce. A teraz wracam do puzzli (dumny z siebie, nie powiem). Jak ktoś chce, mogę .pas podesłać.
-- OjekReceived on Fri 29 Aug 2008 - 11:04:59 CEST
This archive was generated by hypermail 2.4.0 : Wed 08 Jan 2020 - 17:31:24 CET