Napíšte a odlaďte program \T jazyku Pascal, ktorý vykoná:
1. Vypíše na obrazovku základné údaj’ o programe a riešitel’ovi (škola, trieda, názov úlohy, dátum, meno riešiteľa}
2. Program zistí grafiku, počet bodov’ osi x, y a vypíše ich na obra,ovku.
3. Nastaví pozadie obrazovky na moda .
4. Vykreslí na obrazovku obrázok dolček a auto.
5. Po ukončení programu vykreslí na ebrazovku vaš znak a zahrá melódiu.
Kód: Vybrať všetko
program text;
uses crt;
begin
ClrScr;
gotoxy(26,5);
textcolor(14);
write ('Stredne Odborne Uciliste Nizna');
gotoxy(35,10);
textcolor(9);
write('Trieda:2.C');
gotoxy(28,15);
textcolor(13);
write('Kreslenie Obrazkovl');
gotoxy(33,19);
textcolor(4);
write('Riesil:Matus Antol');
gotoxy(34,22);
textcolor(15);
write('Datum:15.6.2007');
gotoxy(50,25);
textcolor(2);
write('(Pokracujte Stlacenim Klavesy)');
readkey;
end.
