Narysx

EDIT: Tu nenusiskaityk tų skaičių kaip string, o pirma iš duomenų failo nuskaityk pavadinimą su string[15], o tada skaityk skaičius po 1 į integer masyvą.

Nelabai supratau, gal galėtum paprastą pavyzduką užrašyt? Būčiau labai dėkingas.

Nesvarbu kiek tarpų, jei nebus kitokios rūšies ženklų tarp skaičių, tai skaitys vien skaičius.

test := '5 8 1 3 4 7';

for i := 1 to 6 do

Writeln(test);

išspausdino ir tarpus. Ar tu ne tai turėjai omeny?

Tai išvis paprasta čia. :) Reikia tiesiog nusiskaityti iš pradžių pavadinimą su string[15] tipo kintamuoju, o tada prasuk for ciklą nuo 1 iki 6 nuskaitydamas kaip integer tuos skaičius. Tarpai tarp skaičių neturi reikšmės. :)

Juk jei suksiu ciklą nuo 1 iki 6, tai man pirmas bus skaičius, antras tarpas ir t.t., tuomet pasibaigs ciklas, o dar bus likusių skaičių, nes tarpus taip pat suka tame cikle. :?

Ligi eilutės galo skaityčiau. :) Bet aš nežinau, kokia tavo uždavinio sąlyga, gal čia netinka.

 

Nors dabar galvoju, kad gal ir nepavyktų šitaip. Eilutė būtinai turėtų baigtis skaičiumi :lol:

Ten kur davei man pataisytą fragmentą, tai netaip turi būt ;D Tas delete ok yra, nes mano eilutė tokia:

'Pavadnimas 1 5 6 23 5'

Pavadinimas (15 simbolių), tarpas ir 6 skaičiai, tarp kurių yra tarpai (1 arba daugiau). Dėl to aš pirma nutrinu pavadinimą ir palieku tik eilutę su skaičiais (e). Ir tada noriu su ja dirbti, kad ištraukt visus skaičius, bet nelabai gaunasi. :)

Paredagavau tavo kodo fragmentą. Dabar veikia. Tik pakeisk "mas" savo įrašo tipo kintamuoju. Tavo pagrindinė bėda buvo, kad ištrindavai e su Delete, o po to vis vien į ją kreipdavaisi cikle.

 

       pav := Copy(e, 1, 15);
       Delete(e, 1, 17);
       j := 1;
       kiekskc := 0;
       while j <= length(pav) do
       begin
           if pav[j] <> ' ' then
           begin
               kiekskc := kiekskc + 1;
               mas[kiekskc] := mas[kiekskc] + pav[j];
               while (j < length(pav)) AND (pav[j] <> ' ') do
                   begin
                       j := j + 1;
                       if pav[j] <> ' ' then mas[kiekskc] := mas[kiekskc] + pav[j];
                   end;
           end;
           j := j + 1;
       end;

 

 

 

 

Aš nežinau kam čia to reikia, bet, matyt, jo užduotis taip prašo.

 

Beje, skaičius iš eilutės taip paprastai po 1 gali nuskaityti tik kaip integer. Jei nori string tipo skaičių be tarpų ir kitų ženklų, tuomet gali tekti paplušėti, kaip mūsų atveju.

 

Bet bent jau aš tai nusiskaityčiau kaip integer ir tada pritaikyčiau procedūrą Str, kuri pakeičia integer į string:

Str(sk, a);

Čia sk - integer, o a - string tipo kintamieji.

O kaip tuo paprastu būdu nuskaitytum po vieną, jei reikėtų integer? :)

Man visus skaičius rašo be tarpo, tai gal kažką nelabai gerai darai. Kad įsitikintum, po mano kodu parašyk:

 

 for i := 1 to skaiciukiekis do
   writeln(mas[i], '*');
 readln;

:)

Na, man su žvaigždutėm atspausdina. Nežinau, gal ką ne taip darau

    for i := 1 to p do
   begin
       Readln(duom, e);
       pav := Copy(e, 0, 15);
       patiekalai[i].pav := pav;
       Delete(e, 0, 17);

       j := 0;
       kiekskc := 0;
       while j <= length(e) do
       begin
           if e[j] <> ' ' then
           begin
               kiekskc := kiekskc + 1;
               patiekalai[i].atskirai[kiekskc] := e[j];
               while (j < length(e)) AND (e[j] <> ' ') do
                   begin
                       j := j + 1;
                       if e[j] <> ' ' then patiekalai[i].atskirai[kiekskc] := patiekalai[i].atskirai[kiekskc] + e[j];
                   end;
           end;
           j := j + 1;
       end;
   end;
   close(duom);

Nebūtina trinti eilutės, kad gautum skaičius. Pvz., aš į string tipo masyvą "mas" skaičius sukėliau taip:

 

 e := '5 81   6 2  12 9';
 skaiciukiekis := 0;
 i := 1;
 while i <= length(e) do
   begin
     if e[i] <> ' '
       then begin
              skaiciukiekis := skaiciukiekis + 1;
              mas[skaiciukiekis] := e[i];
              while (i < length(e)) and (e[i] <> ' ') do
                begin
                  i := i + 1;
                  if e[i] <> ' '
                    then mas[skaiciukiekis] := mas[skaiciukiekis] + e[i];
                end;
            end;
     i := i + 1;
   end;

Tavo kodas pirmą skaičių visada parašo su tarpu. Tarkim, 1_ (du simboliai išvis). Su kitais skaičiais gerai.

Tarkim, yra eilutė

e := '5 81 6 2 12 9';

tai aš, norėdamas šias reikšmes priskirt masyvui, cikle darau taip:

poz := Pos(' ', e);

skc := e(poz-1);

mas := skc;

Delete(e, 0, poz)

Čia priskiri pirmą skaičių, tada jį nutrini (iki tarpo) ir eilutės pradžia jau būna kitas skaičius ir t.t. O ką daryt, jei eilutė tokia:

e := '5 81 6 2 12 9';

Kai kur yra ne po vieną, o du tarpai?

Mano šachmatai:

program Turnyras;
   var duom, rez : text;
   n, i, j, kiek, skc, check : integer;
   figuros : array[1..6] of integer;

   procedure skaitymas;
   begin
       assign(duom, 'C:\DuomenysTurnyras.txt');
       reset(duom);
       Readln(duom, n);
       check := 0;

       if (n < 1) OR (n > 100) then
       check := 1 else
       begin
           for i := 1 to n do
           begin
               for j := 1 to 6 do
               begin
                   Read(duom, skc);
                   figuros[j] := figuros[j] + skc;
               end;
           end;
           close(duom);
       end;
   end;


   procedure skaiciavimas;
   begin
       i := 0;
       kiek := 0;

       while i<1 do
       begin
           if (figuros[1] div 8 = 0) OR (figuros[2] div 2 = 0) OR (figuros[3] div 2 = 0) OR (figuros[4] div 2 = 0) OR (figuros[5] div 1 = 0) OR (figuros[6] div 1 = 0) then
           i := i + 1 else
           begin
               kiek := kiek + 1;
               figuros[1] := figuros[1] - 8;
               figuros[2] := figuros[2] - 2;
               figuros[3] := figuros[3] - 2;
               figuros[4] := figuros[4] - 2;
               figuros[5] := figuros[5] - 1;
               figuros[6] := figuros[6] - 1;
           end;
       end;
   end;


   procedure irasymas;
   begin
       assign(rez, 'C:\RezultataiTurnyras.txt');
       rewrite(rez);
       if check = 1 then
       Writeln(rez, 'Neteisingi duomenys (1 =< N =< 100)') else
       Writeln(rez, kiek);
       close(rez);
   end;

begin
   skaitymas;
   skaiciavimas;
   irasymas;
   Writeln('Atsakymas iðsaugotas');
 Readln;
end.

Iškilo toks klausymas. Ar galima procedūras rašyti be kintamųjų, tiesiog skaitymas, irasymas ir t.t.? Tiesiog procedūrų viduj laikyti tuos pačius kintamuosius ir nerašyti, pvz, skaitymas(n, i), irasymas(kiek) ir t.t.?

Jei integralo skaičiavime parašiau ne 3pi, o 6pi/2, turėtų įskaityt, taip? :)

---

Gal kas gali paaiškinti šiuos du?

20) Kodėl 2,5?

25.2) Kodėl 135 laispniai?

Na, o dėl 15, tai neaišku. Bus įdomu, ar 19, ar 20. :)

Rašiau apie maištininkus.

1. Kartais maištininkai yra vieninteliai žmonės, galintys pasipriešinti neteisybei. Rėmiausi V. Kudirka, jo kūryba bei tuometine padėtimi.

2. Kita vertus, maištas gali būti kitų žmonių nelaimės, skausmo priežastis, todėl pasauliui besipriešinančių žmonių nereikia. Rėmiausi J. Biliūno "Liūdna pasaka", kad Petro sukilimas bei pasėkmės jo atnešė Juozapotai daug skausmo, ji išprotėjo. Taip pat pridėjau Č. Darvino teoriją, kad išlieka tik tie, kurie geba prisitaikyti. (Rašiau, kad viską reikia pasiekt gražiuoju, ne maištu)

 

Kiek skaičiau, visi nurodė, jog reikia maištininkų, galbūt netikęs mano kontraargumentas?

O tai kokią tuomet įžangą ir išvadą parašei? :)

man idomu 3 punktas apie baly sruoga, koks jis maistininkas jeigu viska daro tyliai neryztingai.

Na taip, jis maištauja tyliai, bet tai irgi maištas. :) Jis pasitelkia ironiją. Taip pat parašiau, kad prieš priklausomybės praradimą jis buvo linksmas, pokštus krėsti mėgstantis publicistas, o po nelaimingų įvykių Lietuvai, tapo vis labiau užsidaręs, liūdnas ir susikrimtęs. Visgi, nepasidavė ir priešinosi - peikė buvusią valdžią, skaitė paskaitas, leido knygas. Čia vienas punktas. O kitas punktas - jo maištas lageryje.

Temos tikrai neblogos. Pasirinkau "Kodėl pasauliui reikia maištininkų?" Bus arba labai gerai, arba visiškai ne į temą. Bandžiau taip sužaist:

1. Įžanga

2. Maištininkai reikalingi tam, kad žmonės nuolat įgautų naujos patirties ir augtų dvasiškai, suprastų jiems naujus dalykus. Čia rėmiausi J. Savickio "Vagis", kur vaikas, vedamas instinktų, priėmė drastišką sprendimą ir išlaisvino vagį, taip tarsi maištaudamas prieš tėvą. Tokiu būdų atsiskleidė jo žmogiškumas, jis padėjo vagiui, kaip tik galėjo, subrendo dvasiškai ir pan.

3. Maištininkų reikia, kad būtų išsaugotos tikrosios pasaulio vertybės, tarp kurių - žmogiškumas. Rašiau apie B. Sruogą, jo potyrius koncentracijos stovykloje. Kai aplinkui tik žiaurumas ir beprasmybė, autorius tyliai maištauja - į viską žvelgia su ironija ir sarkastiška šypsena, o tai jam padeda išlikti žmogumi.

4. Maištautojai - lyderiai, tautos vedliai, tautinės savimonės žadintojai, rodantys pavyzdį ir teisingą kelią. Rašiau apie V. Kudirką, jo pasišventimą žadinti tautą ir jos visuomenę, kalbos ir kultūros puoselėjimą, "Varpo" leidimą ir "Tautišką giesmę". Visus šiuos darbus jis atliko maištaudamas prieš carinės Rusijos valdžią, ją smerkė.

5. Apibendrinimas

Kaip manot, ar nebūsiu nukrypęs nuo temos?

"Dėdės ir dėdienės" Mykoliukas pas brolį gyveno ir dirbo, ar pas dėdę?

Kas tas polemizavimas iš viso? :D :D

Kažkaip labai mondrai jūs čia visi šnekat... Visą laiką rašydavau rašinius, kaip manė mokė mokytoja - įžanga, 3 dėstymo pastraipos ir pabaiga. Dėstymo pastraipa - teiginys, aiškinamasis sakinys, argumentas (pavyzdys, pasiremi kūriniu), apibendrinimas + siejimas su sekančia pastraipa. Negirdėjau apie jokius polemizaavimus, būtinybę remtis ne tik literatūra, bet ir poezija ar ko nors panašaus, o visuomet gaudavau 8-9 (apie 40-45 taškus).

Gal šiek tiek take it easy, chebra :D gerai čia kažkas sakė, jei mokat rašyt lietuviškai, esat bent minimaliai susipažinę su būtiniausiais kūriniais ir jų autoriais, viskas bus tvarkoj. :)

http://www.nec.lt/naujienos/365/

Valstybinio brandos egzamino samprotavimo rašinyje kandidatas pasirinktą temą turės analizuoti susiedamas su pasirinkto vieno iš nurodytų autorių kūryba ir literatūriniais (kultūriniais) kontekstais; be to, galima remtis ir asmenine (kultūrine, visuomenine, emocine) patirtimi.

......

Valstybinio brandos egzamino literatūriniame rašinyje pasirinktą temą reikalaujama atskleisti analizuojant kūrinius ir jų kontekstus. Privalu rašyti apie dviejų autorių kūrybą: vieną autorių pasirinkti iš nurodytų, kitą programinį autorių pasirinkti savo nuožiūra.

Tai nesuprantu, ar 1 reikia remtis, ar 2? :D

Pasidalint nenori :D ?

Hmmm, nelabai turiu kaip perkelt į kompą. Jei pasiimsiu vakare laidą iš draugo, tai ryt įdėsiu. :)

Na va, pasidariau visų privalomų autorių konspektą. Nepaliestus palikau J. Radvaną, M. K. Sarbievijų, A. Mickevičių, Maironį, J. Aistį, H. Radauską, S. Gedą, M. Martinaitį ir A. Marčėną. Pagrinde poetai, nes nelabai įsivaizduoju, kaip samprotavimo rašiny remtis poeziją, niekada to nedariau. Pakartojau apie 15-20 autorių, manau bent vienu sugebėsiu pasiremti. :D

M. Ivaškevičiaus knyga "Madagaskaras" daug skiriasi nuo spektaklio? http://www.lrt.lt/mediateka/irasas/1565

Verta žiūrėti, ar, jei neprskaičiau knygos, tai ir iš spektaklio nebus naudos? :D

Ahm, jei nemaišau kūrinių, tai pirma galima tą pareigą prilygint meilei (juk atsidavimas tai kaip ir meilė), o šiaip buvo ten jo mylimoji lietuvoj, su kuria vaiką turėjo, bet teko juos palikt, nes ištrėmė jį už liuteronybę (lyg ir). Po to gale sūnus kai nuvyko pas tėvą pranešt apie mirtį motinos, tai jo meilė prasimušė lyg ir (norėjo net įsivaikint sūnų).

 

P.S. Galiu labai klyst, nes tuoj man susimaišys visi kūriniai galvoj...

Jop, dabar pats įsigilinau į savo užrašus ir radau, kad ta jo meilė ir pasireiškia per pareigą... Jis myli žmogų, jaučia pareigą jam padėti ir pan.

Just. Marcinkevičiaus "Mažvydė" vyrauja konfliktas tarp meilės ir pareigos. Pareiga atstovauja norą skleisti lietuvišką žodį, tarnauti žmogui, knygai, tėvynei. O kaip būtų galima apibūdinti Mažvydo "meilę", per ką būtent ji pasireiškia?

10lt

O pavyzdinės užduoties šiems metams nėra? :/ http://www.nec.lt/184/ nematau