{ TABULKA S HVEZDICKAMI.PAS Copyright (c) ghostix } { Program vykresli tabulku s hviezdickami. } { } { Author: Ghostix } { Date : 06.12.2007 http://www.trsek.com } program tabulkahvezdicky; uses graph; var i,r,s,j,gd,gm:integer; procedure grafika; begin gd:=detect; initgraph(gd,gm,''); end; procedure nacitanie; begin writeln('Zadajte pocet riadku'); readln(r); writeln('Zadajte pocet stlpcov'); readln(s); end; procedure vypis; begin rectangle(0,0,getmaxx,getmaxy); for i:=1 to r do begin line(0,getmaxy div r*i,getmaxx,getmaxy div r*i); for j:=1 to s do begin line(getmaxx div s*j,0,getmaxx div s*j,getmaxy); moveto(getmaxx div s*j,getmaxy div r*i); outtext('*'); end; end; end; begin grafika; nacitanie; cleardevice; vypis; readln; closegraph; end.