Regjistruar: 22/05/2005
Vendbanimi: Philadelphia
Mesazhe: 33

Ju lutem,
kush mund te me ndihmoje,

me duhet te bej nje program qe ben nje trekendesh me yje keshtu

*******
*****
***
*
***
*****
*******

nuk e marr vesh fare

__________________
Faleminderit

Denonco kėtė mesazh tek moderatorėt | IP: e regjistruar

Regjistruar: 11/12/2005
Vendbanimi: orders of magnitude
Mesazhe: 2692

klasa te jap nje sygjerim; - nqs e ke me zgjedhje, leje fare kete kursin e paskalit

Denonco kėtė mesazh tek moderatorėt | IP: e regjistruar

Regjistruar: 22/05/2005
Vendbanimi: Philadelphia
Mesazhe: 33

epo tani nuk dal dot edhe sikur te dua, keshtu qe me ndihmo pak

__________________
Faleminderit

Denonco kėtė mesazh tek moderatorėt | IP: e regjistruar

Regjistruar: 14/07/2005
Vendbanimi: atje
Mesazhe: 196

kjo ketu ... tamam kjo ?

ok po te jep idene ....
pjesen e fillimit te programit shkruaje vete
{program ...etj }

dhe thirr kete procedure !

procedure yll;

begin
{ menyra me e thjeshte pa i hyre ciklit for }
{ perdor me pare nje clrscr me unitin perkates}
{duke perdorur uses crt ; ne mos gaboj ! }
{ per te pastruar ekranin }

writeln;
writeln;
writeln;

{tre te tilla qe te zbresesh tre rrjeshta}

writeln('*******');
writeln('*****');
writeln('***');
writeln('*');
writeln('***');
writeln('*****');
writeln('*******');

readln;
{qe te presi te shtypesh nje tast nga tastiera}
end;

skam pascal me vete ta kompiloj...po pati ndonje gabim te vogel rregulloje vete!

__________________
i hate copy+paste

Denonco kėtė mesazh tek moderatorėt | IP: e regjistruar

Regjistruar: 22/05/2005
Vendbanimi: Philadelphia
Mesazhe: 33

Te falenderoj shuuume per programin, por natyrisht une e bej keshtu duke shtypur writeln(************), por profesori e kerkon me ciklin for,

nese mund te me shkruash 4-5 rreshta program do te ishte mrekulli per mua.



Nderkohe sikur ti hedhesh nje sy ketij programit qe kam shkruar me poshte se se ku me ngec dhe se kap dot.



Program Mes_notave;
Var
i, nrn, s: integer;
mes: real;
tab: array [1..20] of integer;
Begin
S:=0;
for i:=1 to 20 do
Begin
writeln(‘jepni noten e e studentit të ‘, i);
readln(tab[i]);
s:= s + tab[1];
end; {Në s është shuma e notave }
mes: = s/nrn;
writeln(‘mesatarja = ‘, mes);
nrn: = 0;
for i: =1 to 25 do
if tab[i] > mes then nrn: = nrn + 1;
writeln(‘sasia mbi mesatare = ‘, nrn);
end.

__________________
Faleminderit

Denonco kėtė mesazh tek moderatorėt | IP: e regjistruar

   Lord_Of_The_Strings

Regjistruar: 27/08/2004
Vendbanimi: Asgard
Mesazhe: 1568

Kur une isha ne shkolle mbaj mend qe dhe ne na kerkoi profesori nje dicka te tille por ai donte nje peme te vitit te ri, nje bredh te bere me yje. Si perfundim ne e bem me menyren e Team-it mgjs dhe me for behet por kush hyn e rikujton Pascal ))
Une thash shyqyr qe mbari shkolla e s'na hyn me ne pune.

Ishalla po te ndihmon ndonje qe e ka me te fresket.

__________________
I'm a Creationist, I believe man created God.

Denonco kėtė mesazh tek moderatorėt | IP: e regjistruar

Regjistruar: 14/07/2005
Vendbanimi: atje
Mesazhe: 196

hemmmm... me cikel FOR ?

atehere kam :
7 yje
5 yje
3 yje
1 yll
3 yje
5 yje
7 yje

vargu 7,5,3,1

dhe 1,3,5,7

tek i pari ke

for i:=3 to 0 do { funksionon kjo ?}


do kesh 2*i+1

2*3+1=7
2*2+1=5
2*1+1=3
2*0+1=1


po nuk funksionoi perdor

kete 7- 2*i

do kesh for i:=0 to 2 do
7-2*i

per 3,5,7 ke vargun

2*i+1

for i :=1 to 3 do {kjo sigurisht funksionon}

2*1+1=3
2*2+1=5
2*3+1=7


atehere ?

po marr

procedure yll;
var
i,k,l:integer;

clrscr;

for i := 0 to 2 do
begin
k:=7-2*1
for l:=1 to k do
begin
write('*');
end;
writeln();
end;

{*******}
{*****)
{***)

for i:=0 to 3 do
begin
k:=2*i+1
for l:=0 to 3 do
begin
write('*')
end;
writeln();
end;



{*}
{***}
{*****}
*******}
{ ha ha ha ha ... u be }

dhe meso ore ...! se s'do ti zgjidh une te gjitha

ushtrimi tjeter .....
if tab[i] > mes then nrn: = nrn + 1; ?????
ce ke kete gt ? e padeklaruar ??? dhe ; mbrapa
pastaj mes ??????

une se di se cdo te nxjerresh nga ky ushtrim !
por nje keshillle !

formo ne koke rrugen !skicoje me vja e shigjeta
(algoritmi) dhe pastaj shkruaje !

por kujdes ne algoritem .... po se poqe veten mire me te .... aha ...ske gje ne vije !

nejse ... une ketu jam !

por referoju !***sdo ti zgjidh une te tera !***
me shprese se skam bere ndonje gabim !

:-)

__________________
i hate copy+paste

Modifikuar nga Lord_Of_The_Strings datė 31/10/2006 ora 08:10

Denonco kėtė mesazh tek moderatorėt | IP: e regjistruar

Regjistruar: 22/05/2005
Vendbanimi: Philadelphia
Mesazhe: 33

Te falenderoj shume, shume, por me te vertete jane te veshtira keto ushtrimet e pascalit,
une jam duke punuar hard, por ndonjehere kam nevoje per ndihme.

thank you

__________________
Faleminderit

Denonco kėtė mesazh tek moderatorėt | IP: e regjistruar