audrius159

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.

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

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ų. ;)

Tikriausiai bandote prisijungti, o ne registruotis.

Tai pradėkite nuo savęs. ;)

19 prie maždaug 90 kg.

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

Aišku. Dėkoju už atsakymus.

Sveiki, noriu paklausti kokius reikėtų laikyti egzaminus, kurių pamokų užtektų metinio pažymio, norint studijuoti programavimą ar kažką panašaus? Taip pat kokius dalykus reikėtų pasirinkti vienuoliktoje klasėje? Aiškų lietuvių kalbą, matematika, informatika... Kas toliau? ;)

LT 7, matematika 10.

Dėkoju labai, nereikėjo taip vargintis. :) Anas būdas daug paprastesnis ir trumpesnis. ;)

Pavyko tokiu būdu. ;)

Reikia išbandyti. O gal dar kas pasiūlys trumpesnį variantą. Bet kuriuo atveju dėkoju už pagalbą.

O gal galite pasiūlyti kokį būdą ,kaip tai padaryti? Būtų įvedamas žodis ir atrinktų jo skaičių.

Dabar rašoma: Ordinal ezpression expected Constant and CASE types do not match

kompiliatorius aptinka tokias klaidas: ordinal expression expected identifier not found sausis. ir taip su visais kitais.

Sveiki! Ir vėl reikia pagalbos. Štai programa. program Bevardė85; var E : string; begin Write ('Įveskite mėnesį: '); ReadLn (E); Case E of Sausis : WriteLn (1); Vasaris : WriteLn (2); Kovas : WriteLn (3); Balandis : WriteLn (4); Geguze : WriteLn (5); Birzelis : WriteLn (6); Liepa : WriteLn (7); Rugpjutis : WriteLn (8); Rugsejis : WriteLn (9); Spalis : WriteLn (10); Lapkritis : WriteLn (11); Gruodis : WriteLn (12) orherwise WriteLn ('Įvestas netaisyklingai parašytas mėnuo'); end; Readln; end. Reikia ,kad įvedus mėnesio pavad