Pereiti prie turinio

Turbo pascal :)


Rekomenduojami pranešimai

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?

Nuoroda į pranešimą
Dalintis kituose puslapiuose
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..

Nuoroda į pranešimą
Dalintis kituose puslapiuose
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

Nuoroda į pranešimą
Dalintis kituose puslapiuose
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 . .

Nuoroda į pranešimą
Dalintis kituose puslapiuose

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

Nuoroda į pranešimą
Dalintis kituose puslapiuose
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

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

×
×
  • Pasirinkite naujai kuriamo turinio tipą...