Pereiti prie turinio

Hanteris

Patvirtinti nariai
  • Pranešimai

    13
  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    0%
  1. O jeigu as 11 ir 12 klasei neturejau fizikos, imanoma prasimust?
  2. mano variantas: program U2; const CDuom = 'U2.txt'; CRez = 'U2rez.txt'; CMax = 50; type Eil = string[10]; dievas = record vardas : Eil; taskai : integer; //tasku isviso klyg : integer; //kiek lyginiu skaicius end; TMas = array[1..CMax] of dievas; var A,B,C : TMas; n, k : integer; nr : integer; procedure Skaityti; var i,j,sk : integer; F : text; begin Assign(F,CDuom); Reset(F); ReadLn(F,n,k); for i := 1 to n do begin A[i].taskai := 0; A[i].klyg := 0; Read(F,A[i].vardas);
  3. Sveiki, susiduriau su problema. Gal isivaizduojate kas cia per nesamone? Padaryti nieko negalima. alt+ctrl+del nereguoja. Viska isbandziau.
  4. koks butu sio uzdavinio algoritmas? Gal galite padeti? programuoju pascaliu
  5. Pats naudoju Driver Genius Professional 11.0.0.1112. Labai gera programa
  6. Dėkui, tos vietos kaip sudaryti tą trečią masyvą nesupratau. Daugiau viskas suprantama.
  7. Sveiki, galite padėti su pascalio užduotimi? Nuskaitęs duomenų failą nelabai suprantu ką toliau daryti. Gal galite trumpai paaiškinti?
×
×
  • Sukurti naują...