Umiestnenie súboru www.TrSek.com/cover/ghostix/tabulka_s_hvezdickama.pas

{ 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.

Copyrigth by Zdeno Sekerak 2007, http://www.trsek.com