prosím pomožte mi niekto zostavit štruktogram

onderlee

prosím vás pomožte mi niekto zostaviť štruktogram programu mincovky tu je zdrojový kód, budem vám moc vďačny

program mincovka;
uses crt;
var P,PL:array[1..20] of longint;
i:byte;
zv,s:longint;
Begin
clrscr;
writeln('Daj sumu');
readln(s);
zv:=s;
PL[1]:=5000;
PL[2]:=1000;
PL[3]:=500;
PL[4]:=200;
PL[5]:=100;
PL[6]:=50;
PL[7]:=20;
PL[8]:=10;
PL[9]:=5;
PL[10]:=2;
PL[11]:=1;
for i:=1 to 11 do
begin
P:=zv div PL;
zv:=zv-P*PL;
end;
writeln('Pre sumu ',s,' potrebujeme:');
for i:=1 to 11 do
writeln(PL:7,P:7);
readln;
end.

juho

a akou formou sa to robi ? pomocou tabuliek v excele alebo pomocou utilit v powerpointe? Len ci nato exituje len jeden sposob alebo viac.
napr.: Obrázok

?

spanoo

http://www.hojko.com/potrbujem-zostavit ... 71493.html
naco zakladas novu temu..stacilo pokracovat v tejto
PS..vidim, ze moj program ti pomohol

juho

spanoo napísal:http://www.hojko.com/potrbujem-zostavit ... 71493.html
naco zakladas novu temu..stacilo pokracovat v tejto
PS..vidim, ze moj program ti pomohol

Sak to je presne ten co si mu napisal.
::Vie niekto ktory z tych dvoch strukturogramov je spravne?(?aspon jeden?)

spanoo

no obidva su spravne..zavisi od toho ako to vyzaduje ten kto to zadal...a ja by som ten strukturogram urobil uplne inak..nas to ucili inak

onderlee

vsetkým vam velmi pekne dakujem a zostavam s pozdravom