audrius^

Teorinės dalis tai tikrai labai paprasta buvo :). Praktikos irgi nebuvo kur sunku būtų :) Apibendrinant egzaminas buvo tikrai labai lengvas ;)

Na galima, bet čia daug daugiau darbo būtų negu tiesiog ją perrašyti :/. O dėl to, kad nuskaitytų viską iš failo (Jeigu žinai elementų skaičių), naudok FOR ciklą :). Būtų kažkas panašaus į tai: readln(df, kiek); for i:=1 to kiek do begin readln(df, elem1, elem2, elem3); end; Jeigu parašyta, kad galima naudoti tik sveikųjų skaičių masyvus, tai reiškia, kad TYPE gali būti tik: masyvas = array[1..n] of integer; įrašų naudoti negalima ;), beabejo su tokia sąlyga ir matricų naudoti negalima ;)

Todėl, kad tu į masyvą įsirašai tik pirmo užsakymo reikšmes, ir duomenų failas pas tave kitoks spėju :), ta prasme string[15], reiškia, kad nusiskaitomas pirmos 15 simbolių (įskaitant tarpus).

Sorry už double postą :/ Naršyklė sustreikavo :(

Va parašiau šiek tiek labiau struktūrizuotą :) Program programa; const duom = 'DuomenuFailoPavadinimas.txt'; rez = 'RezultatuFailoPavadinimas.txt'; type irasas = record pav:string[15]; x, y, z:longint; end; mas = array[1..100] of irasas; var Uzsakymai:mas; Kiekis:integer; Procedure Nusiskaitymas(); var D:text; i:integer; begin assign(D, duom); reset(D); Readln(D, Kiekis); for i:=1 to Kiekis do begin Readln(D, Uzsakymai[i].pav, Uzsakymai[i].x, Uzsakymai[i].y, Uzsakymai[i].z); end; close(D); end; procedure NumerisDidziausiosSumos(var m, n:in

:o Kodėl tu viskam naudoji globalius kintamuosius? :o Juk už Globalius ciklo kintamuosius egzamine atima taškų... :/ Ir be to duomenų failo neįdėjai :D sunkoka patrikrint kodėl neveikia be duomenų failo :) Ir šiaip tu į masyvą įrašai tik pirmus elementus :D

Ryt po informatikos egzamino, tiesiog prasispręsiu visus sunkesnius uždavinius iš ankstesnių metų :) Taip ir ruošiuosi ;)

KTU - Taikomoji matematika, gal bus čia iš uždarbiečių bendrakursių? :)

Gal todėl, kad sprendinių neturi? :D Nes diskriminantas neigiamas....

Aš galiu paradaryti, parašyk į skype :) Susitarsim ;)

Tikrai nesupratau ko tau ištikrųjų reikia, nes tavo kodas neturi jokios logikos... Bet mano spėjimu tau reikia kažko panašaus į čia? program programa; var a, b:integer; s:boolean; begin s := true; readln(b); a := b; while b <> 0 do begin readln(b); if (b <> a) and (b <> 0) then s := false; end; if s = true then writeln('Taip') else writeln('Ne'); readln; end. Čia vedi skaičius tol kol neįvedi 0, įvedus 0 parašoma ar visi įvesti skaičiai yra vienodi, ar ne.

Atlikta :)

var sk:longint; liekana:integer; begin readln(sk); liekana := sk div 100000 mod 10; if (liekana <> 4) and (liekana <> 7) then write(liekana); liekana := sk div 10000 mod 10; if (liekana <> 4) and (liekana <> 7) then write(liekana); liekana := sk div 1000 mod 10; if (liekana <> 4) and (liekana <> 7) then write(liekana); liekana := sk div 100 mod 10; if (liekana <> 4) and (liekana <> 7) then write(liekana); liekana := sk div 10 mod 10; if (liekana <> 4) and (liekana <> 7) then write(liekana); liekana := sk mod 10; if (liekana <>

Jei teisingai supratau tai programa turėtų atrodyti štai taip: program programa; var sk:longint; i, ilgis:integer; a:array[1..6] of byte; begin readln(sk); ilgis := 0; while sk > 0 do begin ilgis := ilgis + 1; a[ilgis] := sk mod 10; sk := sk div 10; end; for i:=ilgis downto 1 do begin if (a[i] <> 4) and (a[i] <> 7) then sk := sk + a[i] * (10**(i-1)); end; writeln(sk); readln; end.

1) x = 3 2) x = 1.35 3) x = 2 4) x = 2 5) x = 1/100 6) x = sqrt(1000) Jei reikia sprendimų susisiek per Skype arba Až :)

Kadangi pagrindas yra lygiakraštis trikampis, jo plotas skaičiuojamas: S=a^2*sqrt(3)/4 S = 12*sqrt(3) (12 šaknų iš 3) Kūgio pagrindas yra apkritimas, o apkritimo spindulys yra 1/3 lygiakraščio trikampio aukštinės: r = 1/3*(4*sqrt(3) * sin(60)) = 1/3 * 6 = 2 S = 2^2 * pi = 4*pi Kadangi sienos plokštuma su pagrindo plokštuma sudaro 60 laipsnių kampą, tai galima įžvelgti statujį trikampį, kurio vienas iš statinių yra pagrindo apskritimo spindulys, o kitas mums reikalinga aukštinė: H = 2 * tg(60) = 2*sqrt(3) k = piramidės tūris / kūgio turis; piramidės = S(pagrindas) * H => piramidės =

Per egzaminą kai testuota programas, duoda kelis šimtus skirtingų pradinių duomenų, ir programa automatiškai testuoja rezultatus, tai man reikia VBE buvusių metų praktinių užduočių testavimo programų, su kuriomis galėčiau pažiūrėt ar visos mano programos su skirtingais pradiniais duomenimis duoda teisingus rezultatus.

Sveiki, taigi rašau, rašau tas informatikos VBE programas , ir labai įdomu pasidarė kur būtų galima gauti rezultatų testavimo programas? :) Su kuriomis būtų galima pažiūrėt ar mano programa pateikia teisingus rezultatus.

Reikėtų 20lt LABAS perlaidos, dabar :) Nupirkta 20lt :)

program KinuMetuZenklai; var metai:integer; Nr:integer; begin write('Iveskite gimimo metus: '); readln(metai); Nr := (metai + 4) mod 12 + 1; write('Pagal kinu zodiako kalendoriu, jus esate: '); case Nr of 1:writeln('Drakonas'); 2:writeln('Gyvate'); 3:writeln('Arklys'); 4:writeln('Ozka'); 5:writeln('Bezdzione'); 6:writeln('Gaidys'); 7:writeln('Suo'); 8:writeln('Kiaule'); 9:writeln('Ziurke'); 10:writeln('Jautis'); 11:writeln('Tigras'); 12:writeln('Kiskis'); end; readln; end.

Su FPS šiek tiek gražiau parašyta, program programa; var sk:longint; kiek:integer; begin write('Iveskite skaiciu: '); readln(sk); while sk > 0 do begin if (sk mod 2 = 0) and (sk mod 10 <> 0) then kiek := kiek + 1; sk := sk div 10; end; writeln('Sudaro: ', kiek, ' lyginiais skaiciai.'); readln; end.

Čia turbūt reikia piešti stačiuosius trikampius su įžambinių ilgiais (šaknis iš 2, šaknis iš 3 ir t.t.). Pirmojo trikampio statiniai turėtų būti 1 ir 1, pagal Pitagoro teoremą įžambinė tada būtų šaknis iš dviejų, po to iš įžambinės krašto brėžti dar viena statinį ilgio 1, ir gauni dar vieną įžambinę ilgio šaknis iš 3. Ir taip darai kol atsibosta :) Va pavyzdys: http://www.maths2art.co.uk/pythag2.jpg

Kam tau reikalingas dar vienas vardas? Geriau būtų tiesiai į masyvą nusiskaityt Readln(duomenys, masyvas[i].vardas, d) O klaida tau meta todėl, kad turi būti prie masyvas, o ne prie vardas... masyvas.vardas:=vardas masyvas.vardas:=vardas;

Būtų neblogai, jei susirašytum per skype ;)

Nu taip, gėlės neprivalomos, bet mokytojai geriau jaučias jsa gavę :)