Pereiti prie turinio

audrius159

Nariai
  • Pranešimai

    27
  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    0%

Apie audrius159

  • Rangas
    Naujas veidas forume
  • Gimimo data 1994-11-23

Profilio informacija

  • Vardas
    Audrius
  • Lytis
    Vyras
  • Miestas
    Radviliškio raj.
  1. Sveiki, reikia Jūsų pagalbos. type masyvas = array [1..50] of string; matrica = array [1..50, 1..100] of string; // procedūra įrašanti eilutes į masyvą //------------------------------------------------------------------------------ procedure DuomSkaitymas(var n : integer; var eil : masyvas); var F : text; // duomenų failas i : integer; // ciklo kintamasis Begin Assign(F,'duom.txt'); Reset(F); ReadLn(f, n); for i := 1 to n do begin Read(F,eil); writeln(eil);
  2. Sveiki, vėl iškilo problema. Nenoriu kurti naujos temos, todėl rašau čia. Užduotis buvo tokia: duotame skaičių masyve sukeiskite vietomis didžiausią ir mažiausią elementą. Mano paties kodas: ------------------------------------------------------------------------------------------------------------ program Bevarde11; type mas = array [1..20] of integer; //-------------------------------------------------------- //Nuskaitomi duomenys iš failo procedure DuomSkaitymas (var n : integer; var a : mas); var f : text; begin n := 0; Assign(f, 'duom.txt'); Reset(f); while not eoln(f) do
  3. Sveiki, prireikė Jūsų pagalbos. Kažkodėl neįvykdoma šį procedūrą, jei kas galite pažiūrėkite kas blogai. //------------------------------------------------------------------------------------------------------------- //Procedura nuskaitanti duomenys is tekstinio failo procedure duomenys (var vard : mas2; // masyvas i kuri irasomas vardas (string) var men, dien : mas1; // masyvai i kuriuos irasoma menesiai ir dienos var n : integer); // suskaiciuoja kiek yra zmoniu var f : text; begin n := 0; assign(f, 'duom.txt'); Reset(f); while not
  4. Goglėje įsiveskite Jaunųjų programuotojų mokykla ir galėsite paskaityti. ;)
  5. Sveiki. Noriu paklausti gal kas yra baigę JPM? Ar verta ten stoti? Prašau išsamių atsakymų. ;)
  6. Prie eilutes Count64 := .... meta vėl ta pačia klaidą. Incompatible types: got "S80REAL" expected "INT64"
  7. Prie unit meta klaida: Illegal unit name: ADT_LONGINT Jeigu kas galite, padekite ja pasinaudoti, nes man dar tokie dalykai suvokti per sunkus. Ar kaip kitaip išspręsti šią problemą.
  8. Meta klaidas dėl tipo. Incompatibles types: got "S80REAL" expected "INT64" Tas pats ir su longint.
  9. Sveiki. reikia Jūsų pagalbos. Štai užduotis: The prime factors of 13195 are 5, 7, 13 and 29. What is the largest prime factor of the number 600851475143 ? Mano paties kodas: program Bevardė99; var sk, dal : longint; begin sk := 600851475143; dal := 2; while sk > 1 do // Kol sk didesnis už 1 vyksta ciklas begin if sk < dal then // tikrinama ar sk nėra mažesnis už daliklį begin dal := sk * (dal-1); // jei sąlyga tenkinama, daliklis sumažinamas vienetu ir su
×
×
  • Sukurti naują...