Re: Wandystan: Re: Hej!

From: Ojek <bartosz.mackiewicz_usunto_at_hot.pl>
Date: Fri, 29 Aug 2008 20:04:55 +0200


"Ojek" <bartosz.mackiewicz_usunto_at_hot.pl> napisał(a):

> 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;

writeln(' ');
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ć.

--
Ojek
Received 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