Turbo pascal :)

Na ka... semestro galas, o pas mane truksta pazymio, tai dave parasyti programele. Siaip gal ir parasyciau, bet esu tinginys :o ir labai tingiu ieskoti kur padariau klaida. Siaip salyga tokia - parduotuve parduoda prekiu uz X litu. Po kiek dienu parduotuves dienos apyvarta bus Y litu, jei kasdien parduotuvs apyvarta isauga 3%?

Siaip viskas turetu atrodyti sitaip:

begin

writeln('iveskite esama dienos apyvarta ir norima pasiekti dienos apyvarta');

readln(a,B);

c:=a*1.03;

d:=c*1.03;

e:=d*1.03;

f:=e*1.03;

g:=f*1.03;

h:=g*1.03;

i:=h*1.03;

if a=>b then writeln('norima apyvarta jau pasiekta')

else if c=>b then writeln('norima apyvarta bus pasiekta po 1 dienos')

else if d=>b then wr...

nu ir taip toliau... ir taip septynioms dienoms, o jei po 7 dienu nebus pasiekta, tai rasyti ('norima apyvarta bus pasiekta po daugiau nei 7 dienu') ir viskas.

Tai tam kas padarytu programa ir atsiustu .txt fail'a man, sumokeciau 0.5$. Cia siaip juoku darbas, bet juk reikia leisti zmonems uzsidirbti :)

Tai atsiras norinciu padaryti?

padariau :o

nepyk, bet... geriau jau tokie "programeriai" netampa programeriais (sprendziu is to, kaip parases ta programa..)

nepyk' date=' bet... geriau jau tokie "programeriai" netampa programeriais (sprendziu is to, kaip parases ta programa..)[/quote']

 

ir is ko tu sprendi? mateij je? idomus tu nieko nezinai apie mane ir daro isvadas :o

ish vis labai gremezdishka programa, labai nepatogiai gali but ir 1000 dienu bet rashys tik kad daugiau nei 7. ish vis tas pascalis nieko gero

ish vis labai gremezdishka programa' date=' labai nepatogiai gali but ir 1000 dienu bet rashys tik kad daugiau nei 7. ish vis tas pascalis nieko gero[/quote']

 

kur as ta programa padariau tai raso ir 1000 dienu.

ish vis labai gremezdishka programa' date=' labai nepatogiai gali but ir 1000 dienu bet rashys tik kad daugiau nei 7. ish vis tas pascalis nieko gero[/quote']

 

kur as ta programa padariau tai raso ir 1000 dienu.

nu tai labai puiku :D parodyk visiems.

ish vis labai gremezdishka programa' date=' labai nepatogiai gali but ir 1000 dienu bet rashys tik kad daugiau nei 7. ish vis tas pascalis nieko gero[/quote']

 

kur as ta programa padariau tai raso ir 1000 dienu.

nu tai labai puiku :D parodyk visiems.

 

kad niera cia ko roditi, kas zinos supras kad su ciklu padarytas yra..

ish vis labai gremezdishka programa' date=' labai nepatogiai gali but ir 1000 dienu bet rashys tik kad daugiau nei 7. ish vis tas pascalis nieko gero[/quote']

 

kur as ta programa padariau tai raso ir 1000 dienu.

nu tai labai puiku :D parodyk visiems.

 

kad niera cia ko roditi' date=' kas zinos supras kad su ciklu padarytas yra..[/quote']

:D na ant php mokeciau padaryt, nors ir cia taspats daugmaz

ish vis labai gremezdishka programa' date=' labai nepatogiai gali but ir 1000 dienu bet rashys tik kad daugiau nei 7. ish vis tas pascalis nieko gero[/quote']

 

kur as ta programa padariau tai raso ir 1000 dienu.

nu tai labai puiku :D parodyk visiems.

 

kad niera cia ko roditi' date=' kas zinos supras kad su ciklu padarytas yra..[/quote']

:D na ant php mokeciau padaryt, nors ir cia taspats daugmaz

 

del php nezinau, nemoku as jos . .

Tai vat man ir reikejo ne su ciklu, bet su if, then ir tik 7 dienoms. As nieko nesiruosiu skaiciuoti, man tereikia atsiskaityti ir fsio. :D perdaryk programa, nau1l

Tai vat man ir reikejo ne su ciklu' date=' bet su if, then ir tik 7 dienoms. As nieko nesiruosiu skaiciuoti, man tereikia atsiskaityti ir fsio. :D perdaryk programa, nau1l[/quote']

 

jei reikia tik 7 dienom bus :wink:

Tai vat man ir reikejo ne su ciklu' date=' bet su if, then ir tik 7 dienoms. As nieko nesiruosiu skaiciuoti, man tereikia atsiskaityti ir fsio. :D perdaryk programa, nau1l[/quote']

idomiai tau daro tas geresne o tam reik blogos gremezdishkos ir taip toliau

nunestum geresne nei su 7 dienom, net du 10 parasytu mokytojas :D

kaip as galiu nesti programa, kur parasyta tai, ko mes dar nesimokem ir as nemoku :D

as tiesiog parasiau ko manes prase mokytojas :P

as nesiruosiu skaiciuoti parduotuves procentu, man tiesiog reikia atsiskaityti uz uzduoti ir viskas :D dekuj, nau1l. Ryt susirasysim ir atsiskaitysiu :D

Na ka... semestro galas, o pas mane truksta pazymio, tai dave parasyti programele. Siaip gal ir parasyciau, bet esu tinginys :D ir labai tingiu ieskoti kur padariau klaida. Siaip salyga tokia -  parduotuve parduoda prekiu uz X litu. Po kiek dienu parduotuves dienos apyvarta bus Y litu, jei kasdien parduotuvs apyvarta isauga 3%?

Siaip viskas turetu atrodyti sitaip:

 

begin

writeln('iveskite esama dienos apyvarta ir norima pasiekti dienos apyvarta');

readln(a,B);

c:=a*1.03;

d:=c*1.03;

e:=d*1.03;

f:=e*1.03;

g:=f*1.03;

h:=g*1.03;

i:=h*1.03;

if a=>b then writeln('norima apyvarta jau pasiekta')

else if c=>b then writeln('norima apyvarta bus pasiekta po 1 dienos')

else if d=>b then wr...

 

nu ir taip toliau... ir taip septynioms dienoms, o jei po 7 dienu nebus pasiekta, tai rasyti ('norima apyvarta bus pasiekta po daugiau nei 7 dienu') ir viskas.

Tai tam kas padarytu programa ir atsiustu .txt fail'a man, sumokeciau 0.5$. Cia siaip juoku darbas, bet juk reikia leisti zmonems uzsidirbti :P

Tai atsiras norinciu padaryti?

Nesuprantu, jeigu tau tereikia su ifais, tai galima sakyti, tavo programa jau padaryta (na tik vietoj => reiktu rasyti >= ) ir man, kaip "senam suvalkieciui" neaisku, uz ka cia dar moketi.

Nors kitavertus, duoti uzsidirbti kitiems visada sveikintinas poelgis :D

butent :D

programa gavau jau ir tuoj atsiskaitysiu :D