Jump to content

brollyssj82000

Members
  • Posts

    28
  • Joined

  • Last visited

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

brollyssj82000's Achievements

Newbie

Newbie (1/14)

10

Reputation

  1. Am incercat cu tamper data dar nu afiseaza nici un scor, nici un timp. Afiseaza in dreapta la post data urmatoarele 2 linii: ''amf_server_debug'\ncoldfusion\namfheadersamf httpheaders'' ''recordsererrortracem_debug'' Incearca si tu te rog vezi daca merge.
  2. As dori si eu un tutorial despre cum se poate face hack la un joc flash de pe un anumit site. Ma intereseaza cum pot modifica timpul cu care am terminat jocul. Sa il fac mai mic de cat cel cu care am terminat eu jocul. Exemplu: Am terminat o cursa de masini in 4 minute si vreau sa modific topul rezultatelor astfel incat sa apar cu 2 minute sau mai putin, ca sa ajung mai sus in clasament.
  3. Nu mai trebuie. Am rezolvat problema
  4. oXyGeN nu ai si un ID de mess? vreau sa te mai intreb cateva chestii legate de program daca nu te superi. ID-ul meu este brollyssj82000
  5. Multumesc pentru program. Daca voi intimpina probleme te voi anunta. Multumesc mult.
  6. In fiecare zi sunt pe forum.
  7. Buna. Doresc sa fac un program in pascal (un catalog). Acesta este codul: rogram catalog_atestat; uses crt; type note=record nota:array[1..10]of string[8]; abs:array[1..10] of string[5]; end; var catalog:array[1..30,1..20] of note; elevi:array[1..30]of string[25]; materii:array[1..20] of string[15]; e,f,g,h,z:text; procedure aranjare; {aranjeaza elevii in ordine alfabetica} var aux:string[25]; i,j:byte; begin for i:=1 to n-1 do for j:=2 to n do if elevi>elevi[j] then begin aux:=elevi; elevi:=elevi[j]; elevi[j]:=aux; end; end; procedure citireelevi; {creeaza fisierul text cu numele elevilor} begin writeln('Dati nr. de elevi:'); readln(n); assign(f,'c:\bp\bin\atestat\elevi.txt'); rewrite(f); for i:=1 to n do begin writeln('Dati numele elevului ',i); readln(elevi); end; aranjareelevi; for i:=1 to n do writeln(f,elevi); clrscr; end; procedure citirematerii; {creeaza fisierul text cu materii} begin writeln('Dati nr. de materii:'); readln(m); assign(g,'c:\bp\bin\atestat\materii.txt'); rewrite(g); for i:=1 to m do begin writeln('Dati materia:'); readln(materii); writeln(g,materii); end; clrscr; end; procedure initcatalog; var i,j,k:byte; begin for i:=1 to n do for j:=1 to m do for k:=1 to 10 do begin catalog[i,j].nota[k]:=' '; catalog[i,j].abs[k]:=' '; end; end; procedure crearecatalog; begin citireelevi; citirematerii; initcatalog; end; procedure salvare; begin assign(h,'c:\bp\bin\atestat\note.txt'); assign(e,'c:\bp\bin\atestat\absente.txt'); rewrite(e); rewrite(h); for i:=1 to n do for j:=1 to m do begin for k:=1 to 10 begin write(h,catalog[i,j].nota[k],' '); write(e,catalog[i,j].abs[k],' '); end; writeln(h); writeln(e); end; end; Il rulez, creez catalogul cu elevi, materii si note/absente dar nu-mi functioneaza procedura de citire , care ar trebui sa citeasca datele dintr-un catalog creat anterior, ca sa pot adauga date in plus. Ma poate ajuta cineva cu ceva indicatii?
×
×
  • Create New...