aiarasb

program uzduotisMokiniai; Const CMax = 100; //Maksimalus masyvo indeksu skaicius CDuom = 'Duom2.txt'; //Duomenu failas CRez = 'Rez2.txt'; //Rezultatu failas //Masyvai ir irasas Type Masyvas = Array[1..CMax] of integer; type Mokiniai = record VardasPavarde : string[20]; Pazymiai : Masyvas; end; MokMas = Array[1..Cmax] of Mokiniai; Vidurkiai = Array[1..Cmax] of real; //--------------------------Skaitymo procedura---------------------------------- Procedure Skaityti(var n : integer; var p : integer; var v : real; var Mok : MokMas); Var i,j : integer;

Jei tinka kinietiškas, gali Gariūnų turgui nusipirkt, ten antram aukšte mačiau buvo :)

Garry's Mod http://cdn.steampowered.com/v/gfx/apps/4000/header.jpg?t=1351702632 Pradinė kaina: 5 lt Min. kėlimas: 1 lt Aukciono pabaiga: 24 h po paskutinio statymo Atsiskaitymas: Swedbank

Kaip tik turiu vieną laisvą Garry's Mod nusipirktą, bet dar negaliu jo mainyt (trade). Galėsiu tik gruodžio 2 d. Jei esi kantrus, gali palaukt, padaryčiau nuolaidą :)

Na taip, perrinkti Fibonačio seką vienas iš lengviausių būdų, bet, mano supratimu, programa turi ieškoti ilgiausios galimos sekos, kuri baigtųsi skaičiumi z. Vakare, jei bus laisvo laiko, pamėginsiu ką nors sugalvoti.

Na nevisai... Seką galima užrašyti taip: Sprendimas, mano manymu, nėra iš lengvųjų, su vienu cikliuku čia neapsieisi...

Fibonačio sekos principas - kiekvienas sekos narys yra lygus prieš jį einančių dviejų skaičių sumai. Paprasčiausias pavyzdys: 1, 1, 2, 3, 5, 8, 13, 21, 34 ir t.t. Tokios sekos pirmi du skaičiai gali būti bet kokie. Daugiau taip greit nieko nesugalvoju, tikiuosi padėjau :)

1. Atsakymas 4. Taktai atskirai kiekvienam cilindrui neskaičiuojami. Keturtakčio variklio ciklas susideda iš 4 taktų, per kuriuos velenas apsisuka 2 kartus, nes per 4 taktus stūmoklis 2 kartus kyla ir 2 kartus leidžiasi. 2. Teisingas atsakymas suspaudimo (2) ir darbo (3). Knygų atsakymai ne visada teisūs.

Turi tuos failus iš flash'o? Kiek žinau ten slaptažodžio prašo kuris kiekvienam flash'ui yra individualus.

Tose knygose sprendimų nėra, kažin kaip nusirašinės...

Programos kodą įkelk.

Apie tokį atvejį jau buvo kalbėta čia. Sėkmės ir kantrybės :)

O particijas bent rodo?

TF2, LOL, visi AC (laukiu trečio ^_^), HL, CS ir daug kitų :D

Klaida antrame cikle. Turi būti for j:= i+1 to n do.

Prieš mėnesį ir man taip nutiko, pasidalinsiu patirtimi. Besinaudojant kompiuteriu iššoko mėlynas "mirties" ekranas. Perkroviau. Besikraunant windows7 OS kompiuteris pats persikrovė. Tada ir vėl, ir vėl... Bandant perinstaliuoti windows problema buvo ta pati kaip ir jums - nematė kietojo disko (lyg jo išvis nebūtų). Po ilgų ieškojimų radau išeitį - suformatuoti visą hdd iš naujo naudojant linux (jie matė hdd, leido išsisaugot failus). Geriausias sprendimas - Parted magic OS. Tai mažai užimanti lunux OS, pritaikyta laikmenų taisymui. Ją įsirašiau į usb raktą pagal jų puslapyje nurodytas instruk

m tai skaičiaus skaitmenų masyvas. Tikrinimas: for i:=1 to n do for o:=i to n do begin for p:=1 to n do if p=i then write(m[o]) else if p=o then write(m[i]) else write(m[p]) writeln; end;

Mano apibūdinta programa išves visus galimus dviejų skaitmenų sukeitimus.

Na, išvedimui pačiam galima dar ir trečią ciklą įdėt. Ciklas nuo p:=1 iki n. Cikle du if'ai vienas kitame. Abu jie tikrina ar neprieitas sukeičiamas skaičius (i arba o, kiekvienam po atskirą ciklą). Jei prieinamas keičiamas skaičius (pvz. i) vietoj jo išvedamas kitas skaičius, su kuriuo keičiama (šiuo atveju o) ir atvirkščiai. Abiejų if'ų else paprasčiausiai išveda m[p]. Išvedinėjama po vieną skaitmenį.

Pirmas nuo i:=1 to n. Jame iškart antras ciklas nuo o:=i to n. Antram cikle išvedimas sukeitus m ir m[o] narius vietomis.

Išsiskaidai skaičių į masyvą ir išvedinėji sukeitęs skaitmenis vietomis. Išvedimui naudoji ciklą cikle.

Pagal tavo pateiktą pavyzdį, programa turi sukeisti ne 2 skaičius, o išvesti visas įmanomas skaičiaus skaitmenų kombinacijas. Patikslink uždavinį.

Na aš ir vienuoliktoj klasėj :) O programa parašyt galima be funkcijų, viska sukelt į S skaičiavimo ciklą.

program uzduotis; var n, x: integer; s: real; function fakt(a: integer): integer; //faktorialo funkcija var i, at: integer; begin at:= 1; for i:=1 to a do at:= at* i; fakt:= at; end; function laip(a: integer): integer; //x kelimo laipsniu funkcija var i, at: integer; begin at:= 1; for i:=1 to a do at:= at* x; laip:= at; end; function vien(a: integer): integer; //-1 kelimo laipsniu funkcija begin if a mod 2 = 1 then vien:= -1 else vien:= 1; end; var i: integer; begin write('x: '); readln(x); write('n: '); readln(n); s:= 1; for i:=1 to n do s:= s+ vien(i) * laip(i) /

Hmm. Programą parašyt galiu, bet tau iš to jokios naudos nebus.Galiu paaiškint, bet kad negaišti be reikalo laiko paklausiu, kiek jau esate pažengę programavime? Mokate funkcijas, ciklą, sąlygos sakinį (if) (šių trijų reikės programai)? P.S. Dėl mokytojų tai dažnas reiškinys kad neaiškina.