Nu ką, Jaunieji Programuotojai?

Kaip sekasi programuot? Kalbu apie JPM. Surinkau pirmam 85%. Jei vienam būčiau parašęs ne 1, o 2 (ką ir turėjau mintyse) būčiau gavęs 95% :D

 

Kaip kitiem? Kartais nepatrukdytų susirašyt ir pasitikslint kai kuriuos atsakymus :)

Kuriam kurse esi? Man rodos daug cia nebus programuotoju esamu. Gal vienas-du pirmakursiai. Konkreciau atrodo Tom1234 (skaiciu nepamenu) ir ezg mokosi dabar tame JPM, dar yra keli absolventai: as, Mexiukas ir gal dar kas nors. :)

Gavau iš pirmo skyriaus 72%,nes dvejose loginiuose uždaviniuose panaudojai ciklą while ir salyginį sakinį if ir gavau po 0 balų,nors atsakymai teisingi buvo(nes negalima naudoti buvo) :)

Redagavo Lapkričio 7, 2007 Tom

JPM? Kas tai?

JPM? Kas tai?

Nejaugi sunku į google suvest šias raides? :)

http://ims.mii.lt/jpm/content

Gavau 87%, man visia nieko, ti kgaila kad vienoi užduotį nukalė balus minusan už švepla teksta :)

Gavau 87%, man visia nieko, ti kgaila kad vienoi užduotį nukalė balus minusan už švepla teksta :)

Vat man irgi tas pats paciam pirmam uzduociu komplekte (ar antram?). Tada dar FPS kompiliatorius lt raidziu nepalaike. :D

Vat man irgi tas pats paciam pirmam uzduociu komplekte (ar antram?). Tada dar FPS kompiliatorius lt raidziu nepalaike. :D

 

 

Jap, pirmas užduočių komplektas... Dar klaidas ištaisė ryškiai žalia spalva tai kais išdegino mano senas crt monitorius kol perskaičiau :)

Jap, pirmas užduočių komplektas... Dar klaidas ištaisė ryškiai žalia spalva tai kais išdegino mano senas crt monitorius kol perskaičiau :)

Jo, visada taiso arba salotine, arba rozine spalva. Nezinau kodel. Gal rozine labai patinka tos mokyklos vadovui, kaip ten jis - ...zniakov? :D

Pirmakursis aš.

 

Bet tai nesamonė. Ne tą parašiau, parašė "Ne" ir viskas. Tai tiek ir FPS kompileris gali padaryt xD

Gan neblogai, is pirmo surinkau 89% :) Is antrojo tikiuosi bent truputeli daugiau, nors turbut bus atvirksciai, nes dariau viska paskutine diena :D

Prieš du metus ir aš šitą mokyklėlę baigiau :)

Generax: o kur stojai? :) Pagelbejo patirtis sioje mokykloje? :D

Generax: o kur stojai? :) Pagelbejo patirtis sioje mokykloje? :D

Na jei jis buvo "standartinis" moksleivis, tai dabar jis yra 11-tokas ir dar niekur nestojo. :D

Na, tiesiog as dabar 11-okas ir tik siais metais pradejau, todel ir klausiu :)

Na, tiesiog as dabar 11-okas ir tik siais metais pradejau, todel ir klausiu :D

Ne per senas? Aš tik aštuntokas :)

80% gavau iš 2-os dalies :)

85% vėl tiek pat ;D

ar kam nor yra padėje ?

aš žadėjau stoti, bet pačiame gale atsisakiau, nes pakeičiau savo mokymosi sritis. nusprendžiau programavimu užsiimti.

bet kam nors yra padėje ?

ar kam nor yra padėje ?

aš žadėjau stoti, bet pačiame gale atsisakiau, nes pakeičiau savo mokymosi sritis. nusprendžiau programavimu užsiimti.

bet kam nors yra padėje ?

Nestojai i programuotoju mokykla, nes nusprendei uzsiimti programavimu? :)

 

Kaip suprasti ta "yra padeje"? Man padejo prisiversti ismokti visas Pascal subtilybes. :)

P.S. Buvo kita tema apie JPM cia, ten diskutavome apie nauda. Paieskok. :)

82.1% iš trečio skyriaus gavau.

Aš 88, bet baną gavau:

 

Kadangi Jūsų mokymosi eiga arba rezultatai neatitinka JPM mokymosi tvarkos apraše nurodytų sąlygų, Jums užblokuota prieiga prie JPM virtualios mokymosi aplinkos. Jei norite pasitikslinkiti, skubiai kreipkitės į dėstytoją.

 

Už ką?

Pas mane lygiai taip pat, tikriausiai klaida kokia...

86% už 4.

86% irgi, bet:

 

program dal_kar;

var dbd, mbk, sk, sk2 : integer;

procedure dbdmbk (sk1, sk2 : integer; var dbd, mbk : integer);

var ska, ska2, i, m, min, max : integer;

begin

if sk1 <= sk2 then

begin

min := sk1;

max := sk2;

end

else

begin

min := sk2;

max := sk1;

end;

 

{Didžiausias bendrasis daliklis}

 

dbd:=1;

for i := 1 to min do

if (sk1 mod i = 0) and (sk2 mod i = 0) then dbd := i ;

 

{Mažiausias bentras kartotinis}

 

m := sk1 * sk2;

mbk := m ;

for i := max to m do

if (i mod sk1 = 0) and (i mod sk2 = 0) then

begin

mbk := i;

i:=m+1 Draudžiama keisti for ciklo kintamojo reikšmę.

end ;

 

end ;

 

begin

write (' Įrašykite skaičių ');

read (sk);

write (' Įrašykite kitą skaičių ');

read (sk2);

dbdmbk (sk, sk2, dbd, mbk);

writeln (' Didžiausias bendras daliklis - ', dbd);

writeln ('Mažiausias bendras kartotinis - ', mbk);

end.

8 b.

 

Debiliukas, gi jei radai reikšmę, tai užbaigi ciklą gi :rolleyes:

 

Tėtis programuotojas, jau apie penkiolika metų, sakė dažnai taip daro :)