Pascal,trojuholnik

• Citovať príspevok

Príspevok od používateľa spanoo » 03 máj 2007, 21:24

• Citovať príspevok

Príspevok od používateľa vivaSlovakia » 05 máj 2007, 9:45

• Citovať príspevok

Príspevok od používateľa juho » 11 máj 2007, 22:01

uses graph,crt;
var obsah,vyska,zakladna:real;
     a,b:byte;
begin  a:=9;b=2;{9 by mala byt VGA 2 HI}
initgraph(a,b,'?cesta');
write('zadaj obsah a vysku: ');read(obsah,vyska);
zakladna=2*obsah/vyska;{stred osi xy 200::200}
line(200-zakladna/2,200,200+zakladna/2,200);{az to nezobere treba pouzit round(zakladna);var zakladna:integer;}
{rovnoramenny Trojuholnik ma vysku v strede zakladne koniec je priesecnik ramien}
moveto(200,200-vyska);lineto(200-zakladna/2,200);
moveto(200,200-vyska);lineto(200+zakladna/2,200);
readkey;closegraph;end.{najlepsie je zadat velke cisla kedze jednotky su v pixeloch}

• Citovať príspevok

Príspevok od používateľa spanoo » 11 máj 2007, 22:23

Dakujem...ale zabudol som dodat..pouzit mozem len maximalne crt, cykly,podmienky,gotoxy

• Citovať príspevok

Príspevok od používateľa juho » 11 máj 2007, 23:55

• Citovať príspevok

Príspevok od používateľa spanoo » 12 máj 2007, 8:56

nooo....vstupne udaje su vyska a znak, ktorym bude vykreslovat a pouzit je mozne len to co som napisal...

• Citovať príspevok

Príspevok od používateľa merlin1x1 » 12 máj 2007, 9:44

Kód: Vybrať všetko

program rovnoramenny;
uses crt;
var a,i,j,m:integer;
begin
clrscr;
textcolor(yellow);
  writeln('zadajte vysku rovnoramenneho trojuholnika');
  readln(a);
  for i:=1 to a do
    begin
    for j:=1 to a-i do write(' ');
    for m:=1 to 2*i-1 do write('*');
    writeln;
    end;
  readln;
end.

toto by ti malo stacit a to ze akym znakom sa to ma vypyisat vies spravit aj sam...a ak chces tak aj gotoxy si vies spravit sam...easy

• Citovať príspevok

Príspevok od používateľa spanoo » 12 máj 2007, 10:56