Program vykreslí tabuµku s hviezdičkami

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Category: KMP (Club of young programmers)
tabulka.pngAuthor: ghostix
Program: Tabulka_s_hvezdickama.pas
File exe: Tabulka_s_hvezdickama.exe
need: Egavga.bgi

Program vykreslí tabuµku s hviezdičkami.
{ 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.