Ezt ,hogy kell megcsinálni ?

"nincs ötletem és csak most kezdtem"

Egészen pontosan hogyan kezdted? Mi az, amin már túl vagy? Esetleg nem a feladatokkal érdemes kezdeni, hanem a tananyaggal.

A feladat valószínűleg az elöltesztelős ciklusokkal akar megismertetni.

Keress rá erre: programozás elöltesztelő ciklusok programozás ciklusmag programozás hátultesztelő ciklus (hogy lásd az eltérést).

program csillag_kiiro;

const

meddig = 7; {eddig megy majd a ciklusváltozó}

var

i : byte; {ez lesz a ciklusváltozó.}

j : byte; {hány csillagot írjon egyszerre a cikluson belül.}

begin {program kezdete}

for i:=1 to meddig do {for ciklus kell ide mert előre tudjuk hányszor hajtódjon végre}

begin

for j := meddig - meddig +i downto 1 do {hány csillagot írjon ki.}

begin {második ciklus kezdete}

write('*'); {kiírunk egy csillagot.}

end; {második ciklus vége}

writeln; {második ciklus vége, sortörés.}

end; {első ciklus vége.}

readln; {Enter billentyű lenyomásáig látható marad.}

end.

Karakterláncos megoldással a másik ciklust mellőzni is lehet:

program csillag_kiiro_karakterlancos;

const

meddig = 7; {eddig megy majd a ciklusváltozó}

var

i : byte; {ez lesz a ciklusváltozó.}

s : string; {karakterlanccal oldjuk meg}

begin {program kezdete}

s := '*';

for i:=1 to meddig do {for ciklus kell ide mert előre tudjuk hányszor hajtódjon végre}

begin

writeln(s);

s:=s+'*';

end;

readln;

end.