Pereiti prie turinio

Rekomenduojami pranešimai

Sveiki ,baigiasi mokslo metai ,tai mokytoja uždavė sukurt programa ,savo kūrybos kokia norim ,taigi galvoju kokia ir nesugalvoju kokia (galvojau sukurt kvadratine lygti kad spręstu bet sake tokia per paprasta ir už tokios sukūrimą 4)

parašytu ,gal kas galit duot minčių?Dėkui

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Spėju paskalis

Gali kurt tekstinį žaidimą, kuriam eiga bus su teksto komandomis, berods buvo žaidimas tamsa ar pan., kažkur sukurtas, tai kažką panašaus galėtum sukurt.

Dabr nepamenu paskalio, bet suprasi:

begin;

var e=eiti,s=spausti,x:text;

writeln('naudok komandas: eiti, spausti');

writeln('tu matai mygtuką');

readln(x)

if x:=e then

writeln ('tu priėjai prie mygtuko')

else

if x:=s then

writeln('vėl tekstas')

else

if x:<>e and x:<>s then

writeln('vėl kažką');

Užuominą turėtum suprast

P.S. mažai ką beatmenu apie pascal, jeigu tai paskalis

Redagavo EdvinasN
Nuoroda į pranešimą
Dalintis kituose puslapiuose

1. Parašyk kuo optimalesnę ir efektyvesnę sort() f-ją.

2. Parašyk programą, kuri paima didelį teksto gabalą ir padaro taip:

 

failas.txt -> failas.mazesnis

failas.mazesnis -> failas.txt

 

T.y. failas.txt tekstą suglaudina (sumažini failo dydį kaip įmanoma labiau) ir poto įrašyt tą tekstą normaliai, nepakeitus nei vieno bito atgal. Kitaip tariant turi failas.txt ir jame kažkokį tai tekstą, jo dydį sumažini kaip įmanoma labiau ir įrašai į kitą failą, pvz failas_mazesnis.txt. Tada failas.txt ištrini ir kai reikia, iš failas_mazesnis.txt įrašai tekstą nepakeitęs nei vieno bito atgal į failas.txt (vėl bus normalaus dydžio) :). Tikrai gausi dešimt už šitą.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Kurk nesudetinga zaidimuka consolej kaip pvz. Nesenai sukuriau toki: paprastas laukelis 30x30, kiekvienam langely taskas kad aiskiai matytusi laukas ir jo ribos, zaidejas valdo raide X, ir sukuriamas priesas pvz. & ir jis persekioja zaideja, kai priesas ir zaidejas atsiranda tam paciame langelyje zaidimas buna baigtas, jei nezinai tai norint valdyti zaidejo zenkla X, tai galima padaryti su windows.h biblioteka ir su GetaSyncKeyState('mygtukas'), pvz:

Int valdymas[4] = {'W', 'S', 'A','D'};

If(GetaSyncKeyState(vald[0])){

//kazkoks veiksmas pvz.

Y++;

}

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Kurk nesudetinga zaidimuka consolej kaip pvz. Nesenai sukuriau toki: paprastas laukelis 30x30, kiekvienam langely taskas kad aiskiai matytusi laukas ir jo ribos, zaidejas valdo raide X, ir sukuriamas priesas pvz. & ir jis persekioja zaideja, kai priesas ir zaidejas atsiranda tam paciame langelyje zaidimas buna baigtas, jei nezinai tai norint valdyti zaidejo zenkla X, tai galima padaryti su windows.h biblioteka ir su GetaSyncKeyState('mygtukas'), pvz:

Int valdymas[4] = {'W', 'S', 'A','D'};

If(GetaSyncKeyState(vald[0])){

//kazkoks veiksmas pvz.

Y++;

}

 

Ne visi langines naudoja :-)

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Ne visi langines naudoja :-)

Nėra tokių dalykų cross platform, jei neimi papildomų libų, kurie tiesiog iš OS specifinių api padaro vieną. O kadangi mokyklose ir mokymo programoje - Windows, manau, pakankamai normalus pasiūlymas naudoti būtent win api.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Aš amžinas bioritmų kurėjas

Ant qbasic gavau pvz

perkeliau i

vizual basic,perl,php, šiandien per dvi dienas pramokau ir perkeliau į "komeskio logo"

 

http://www.ausrine.info/static/bioritmai.zip apsaugota betkuria Google autorizacija)

Redagavo saknis
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.

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