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.
-
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);
-
Dėkoju, Driule.
-
audrius159 sureagavo į pranešimą temoje: Duomenų nuskaitymas
-
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
-
audrius159 sureagavo į pranešimą temoje: Duomenų nuskaitymas
-
Dėkoju, iškarto viskas gerai. ;)
-
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
-
Goglėje įsiveskite Jaunųjų programuotojų mokykla ir galėsite paskaityti. ;)
-
Sveiki. Noriu paklausti gal kas yra baigę JPM? Ar verta ten stoti? Prašau išsamių atsakymų. ;)
-
audrius159 sureagavo į pranešimą temoje: Su kokia programavimo kalba būtų lengviausia perprasti algoritmus ir kt svarbiausius dalykus programavime?
-
audrius159 sureagavo į pranešimą temoje: Kada per vėlu pradėti mokytis?
-
audrius159 sureagavo į pranešimą temoje: Ekonomikos studijos: kokios perspektyvos?
-
audrius159 sureagavo į pranešimą temoje: Ekonomikos studijos: kokios perspektyvos?
-
Dhoviuz sureagavo į pranešimą temoje: Klausimas dėl Facebook registracijos
-
b0ras sureagavo į pranešimą temoje: Klausimas dėl Facebook registracijos
-
Tikriausiai bandote prisijungti, o ne registruotis.
-
audrius159 sureagavo į pranešimą temoje: Geriausia knyga, kurią esu skaitęs
-
Tai pradėkite nuo savęs. ;)
-
19 prie maždaug 90 kg.
-
audrius159 sureagavo į pranešimą temoje: Kvailas klausymas
-
audrius159 sureagavo į pranešimą temoje: Jūsų programavimo įkainiai
-
audrius159 sureagavo į pranešimą temoje: Atsargiai perkant straipsnius!
-
Prie eilutes Count64 := .... meta vėl ta pačia klaidą. Incompatible types: got "S80REAL" expected "INT64"
-
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ą.
-
Yra div Operacija.
-
Meta klaidas dėl tipo. Incompatibles types: got "S80REAL" expected "INT64" Tas pats ir su longint.
-
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