wuss

Įmesk ir graph biblioteka :)

Aš būčiau daręs kitaip, susirašai visus simbolius į vieną kintamąjį ir žiūri ar jame yra rastas simbolis: pvz: simb :=',/.\';][-'; if pos(c,simb) > 0 then k := k +1; Be to, vietoj k := k +1; gali naudoti k+=1; kiečiau atrodo :) O pas tave klaida tame, kad reikia visada lyginti if c=(',')orc=('.')orc=(':')orc=('?')orc=(';')orc= ('"')orc=('!') then k:=k+1;

O tai nerašo kurioje eilutėje klaida? Jeigu net nesukompiliuoja

program matrica; VAR a : array[ 1 .. 1000, 1..1000] of integer; m, n, i, j, i2: integer; begin //write ('Kiek bus eiluciu ? '); readln(m); nereikalingas write ('Kiek bus stulpeliu? '); readln(n); m:=0; for i:=1 to n do begin for j :=1 to m do begin a[i,j] := 0; write(a[i,j],' '); end; for i2 := 1 to n-m do begin a[i,i2+m] := i2; write(a[i,i2+m],' '); end; writeln(); m += 1; end; end.

Pridėtos 2 naujos temos, įdėtos pamokos bei 3 projektai. Atsirado šioks toks turinys 160 pranešimų. Beje gal yra norinčių keistis back linkais (panašaus turinio svetainės: programavimas, pc, it ...)

Geriau ieškok 2007 delphi, DAUG patogesnis :D Tik 2009 neapsimoka :D

Na svetainės idėja gera, dažnai pats warez naudojuosi, bet bandžiau kokias 3dienas iš viso ~8-10 kartų, ir visada neveikė, išnaudotas premium ;)

program Noname58; var n,m,ats1,ats2:integer; begin readln(n,m); ats1 := trunc(n / m); ats2 :=n - ats1*m; writeln(ats1); writeln(ats2); Readln; end. ir viskas ;)

Uses graph; Var g, m, x, y, x1, y1, s, i: integer; Begin g := detect; Initgraph(g, m, ''); Randomize; X:=random(1000); Y:=random(700); for i:= 1 to 10 do begin X1:=random(1000); Y1:=random(100); s:= random(15) + 1; setcolor(s); Line (x, y, x1, y1); x:=x1; y:=y1; End; Readln; End Netestavau, bet turi veikt :huh: PS: Jei gali atsiųsk graph biblioteka į pm ;)

Būtų daug lengviau jeigu prisegtum tuos failus. O skaityt du masyvus taip turėtų eiti :lol: i:=1 while not Eol(failas) do begin read(failas, masyvas1[i]); i := i + 1; end; readln(failas); i:=1; while not Eol(failas) do begin read(failas, masyvas21[i]); i := i + 1; end;

Perku backlinkus : technologijų, kompiuterių, programavimo tipų svetainėse. Rašykite pasiūlymus į PM :lol:

Pažiūrėk prie kompiuterio dokumentų ar taip instrukcijų, gal yra kas nors parašyta ką tos lemputės reiškia.

Delay veikia, tiesiog priskirk crt biblioteka. Uses crt; ir viskas :) galėsi naudot delay.

program robotas; const salys : array[1..4] of string = ('siaure', 'rytai', 'pietus', 'vakarai'); var d, {kryptis} k: longint; c:string; {salis} begin read (c, d); if c[1] = '0' then k := 1; if c[2] = '0' then k := 2; if c[3] = '0' then k := 3; if c[4] = '0' then k := 4; if d = -1 then if k -1 < 1 then k:=4 else k-=1; if d = 1 then if k + 1 >4 then k:=1 else k+=1; writeln(salys[k]); end. Mano variantas :)

Rekursijos prisiminimui :D pasprendziau :D program Noname46; type Tpirm= array of integer; var ind:integer; //Kiek radom pirminiu skaiciu {-----------PIRMINIAI-----------------} function pirminai_sk(sk:integer):Tpirm; var i, i2 : integer; pirm : boolean; begin setlength(pirminai_sk,sk); ind := 1; for i := 2 to sk do begin pirm := true; for i2 := 2 to i-1 do if i mod i2 = 0 then pirm := false; if pirm then begin pirminai_sk[ind] := i; ind := ind + 1; end; end; ind := ind - 1; end; {-----------PIRMINIAI-----------------} {-----------KINTAMIEJI----------------} type TSand = array

Man panašiai buvo kai buvau modeme interneto kabeli su televizijos sukeitęs vietomis ^_^

1. for i:=2 to skaicius-1 do if skaicius mod i = 0 then suma:=suma+i; if suma = skaicius then tobulas else netobulas O 3 manau be rekursijos neišeis išspręsti.

Kažkaip įdomiai atrodo, uždavinyje rašo max(a,b), o jūs skaičiuojat sumą :) neturėtų būti: program namu_darbai; uses math; var a, b, c : integer; Begin writeln('Įveskite tris skaičius'); readln(a, b, c); If max(a,b) < c then writeln ('y=',c) else writeln ('y=',-c); {cia ir bus tas atvejas kai a + b >= c} readln; {sitas tik ant windows, bet ir tai nebutinas, langa atidaryt galima perziurai, jei uzsidare, ant linux nerasoma tokiu} end.

Dėkui už kritiką :), bandysim tobulėt.

Sveiki, įvertinkit forumą, ar tinkamos temos. Gal kokių modulių trūksta. Kaip domenas tokiai svetainei? :) www.flopikas.com

Arba aš aklas, arba mes šnekam apie skirtingas forumo versijas. Nes nieko nerandu. :) Edit: Dėkuj Impaler ;)

Gal kas žinot kurį failą redaguoti kad eitų skaitliuką įdėti į forumo apačia(į footer) ? Kiek googlinau radau kad reikia eiti į Look & feel pasirinkti temą ir Manage Templates & CSS. O kur toliau. Žinau tik kaip viršuje prie banerio pridėtį. Gal kas galit padėt.

Pinigus kuriuos atiduoda valstybei nereikia kisti i cikla for, nes atiduoda tik 1 karta. Jei nori kad sustotu, tai reikejo ne for o while naudot ir while salygoj ziuret ar turi pinigu ir kelinti metai.

http://www.ipc.lt/21z/mokymas/mokymopr/el/ek/Paskal8.htm 8.1 2 pavyzdys. :)

Rodo tik ~3s po to sustoja, ir po kiek laiko išsijungia. Gal numanote dėl ko? pas mane gala optimalus, greičio turėtų užtekti