pora pascal uždavinėliu

Sveiki,

Gal galėtumėt duot pora uždavinių susijusiu su failų nuskaitimu iš .txt failų ir irašymą į juos ir pnš. Esu pradedantysis tai sunkiu neduokit. :)

P.S nesakykit naudokis google ir panašiai, nes nieko neradau. Dabar pasimokines teorijos apie darba su failais noriu pamėgint pats atlikt praktiškai.

Labas,

bet negi tokia prasta vaizduotė? Juk pats gali prisigalvoti. Panaudok viską ką esi išmokęs. Pradėk nuo paprastesnių, kaip atvaizduoti txt failo turinį, ir tęst pridėdamas daugiau visokių funkcijų (rūšiuok rezultatus ir t.t.).

Gal tu to ieškai ? http://www.programavimopamokos.net/ikeltukai/FPS/9_PamokaFailai/failai/failai.html

MrARt jei darysiu pagal vaizduote tai nieko naujo neišmoksiu, nes darysiu tik tai ka moku.

Gal tu to ieškai ? http://www.programavimopamokos.net/ikeltukai/FPS/9_PamokaFailai/failai/failai.html

Iš čia jau esu prisižiurėjes pamokų ir noriu savo išmoktas žinias pamėgint praktiškai pritaikyt. :) Radau vieno uždarbiečio duotus pora uždavinių, bet reiktų daugiau. :)

1.Duomenu failo pirmoje eiluteje nurodyta (0 < n < 30) kiek is viso mokiniu mokosi klaseje.

Sekanciose eilutese isvardinti mokiniu ugiai.

Parasykite programa, kuri atvaizduotu mokiniu ugius ekrane.

2.Duomenu faile stulpeliu yra surasyti 9 skaiciai.

Parasyti programa, kuri atrastu:

1) Visu skaiciu suma.

2) Visu skaiciu vidurki.

3) Didziausia skaiciu.

4) Maziausia Skaiciu.

5) Isrinktu ir atspausdintu tik lyginius skaicius.

3.Tekstiniame faile Duomenys.in pirmojoje eilutėje yra nurodyta kiek bus skaičių n.

Toliau kitose eilutėse yra išvardinti visi skaičiai atskirose eilutėse.

Parašykite programą kuri apskaičiuotų ir tekstiniame faile rezultatai.out spausdintų:

Skaičių sumą;

Skaičių vidurkį;

Didžiausią skaičių;

Mažiausią skaičių;

Teigiamų skaičių kiekį;

Neigiamų skaičių kiekį;

Duomenys.in

11

-25

458

-655

-2

9

78

-9

78

997

-1

33

Rezultatai.out

Skaičių suma: 961

Skaičių vidurkis: 87.364

Didžiausias skaičius: 997

Mažiausias skaičius: -655

Iš viso teigiamų skaičių: 6

Iš viso neigiamų skaičių: 5

pora uzdavinuku nesudetingu, jei reiks dar ar reiks pagalbos sprendziant parasyk, mano jie visi padaryti :)

agnek21 to ir rėikėjo.

Iškart dar nes prendžiant ir pažiurėjus vien i trečia uždavinį, iškyla klausimas. Kaip suprast Duomenys.in rezultatai.out failu formatus. Nes aš tai tik tedariau su .txt.

agnek21 to ir rėikėjo.

Iškart dar nes prendžiant ir pažiurėjus vien i trečia uždavinį, iškyla klausimas. Kaip suprast Duomenys.in rezultatai.out failu formatus. Nes aš tai tik tedariau su .txt.

Jokio skirtumo kokį failo formatą uždėsi :)

1)

Čia .txt failo turinys:

( 0 < 5 < 30 )
175 186 154 192 164

Čia programos kodas kurį parašiau:

program ugiai;

procedure ugiu_nuskaitymas_ir_atspaudinimas_ekrane;
var F  : text;
   cm : integer;
begin
  Assign(F,'mokiniai.txt');
  Reset(F);
  ReadLn(F);
  while not Eof (F) do
     begin
       Read(F,cm);
       Write(cm,' ');
     end;
  Close(F);
end;

begin
 ugiu_nuskaitymas_ir_atspaudinimas_ekrane;
 Readln;
end.

Programa veikia, bet jei turit kokių pastebėjimų pasakykit. :) Ir dabar pradedu daryt antra programą. :)

MrARt jei darysiu pagal vaizduote tai nieko naujo neišmoksiu, nes darysiu tik tai ka moku.

Nesamonė. Aš nemoku programuoti, bet be problemų per 10 sekundžių sugalvojau kelias programas, ką jos daryti.

O jei jau vaizduotės visai nėra - tai bent jau pasikartotum ką moki. Juolab, mačiau, kad rašei "šito aš nemoku", tai kaip išmoksi, jei nedarysi ko nemoki?

Nesamonė. Aš nemoku programuoti, bet be problemų per 10 sekundžių sugalvojau kelias programas, ką jos daryti.

O jei jau vaizduotės visai nėra - tai bent jau pasikartotum ką moki. Juolab, mačiau, kad rašei "šito aš nemoku", tai kaip išmoksi, jei nedarysi ko nemoki?

Ten kur, kad nemoku tai ten olimpiados uždaviniai.. tikrai man persunki.

Na niekaip nesutiksiu su tavim, jei jau nori daryti tik tai, ko nemoki. Tai va imk, ir gvildenk. Pasiklausinėk, pasiskaitinėk.

na mes tokius per pamokas sprendziam, cia vieni is lengvesniu, nors dar 11-okai mes tai sunkiu ir neduoda :) teisingai pasake kad failo pavadinimas esmes nekeicia ar jis txt ar in ar out, cia kaip mokytojas uzduoti suformuluoja taip ir darom, su ugiais be proceduros darem, nes tiesiog jos dar nesimokeme tuo laiku, bet tavo kodas geras :)

Kaip reik pavyzdžiui iš failo kai nuskaitai informacija ir irašyt į masyva? Ir dar niekaip nesugalvojau kaip su cuklu patikrint kuris iš duotu skaičiu mažiausias.

program uzduotis2;

Type Masyvas = array [0..10] of integer;

var A : Masyvas;

i, min, max, suma :integer;

fd : text;

vid : real;

begin

Assign (fd,'Duom.txt');reset(fd);

vid := 0;

suma := 0;

max := 0;

min := 100;

write('lyginiai : ');

for i := 1 to 9 do

begin

Readln(fd, A);

suma := suma + A;

if max < A

then max := A;

if min > A

then min := A;

if A mod 2 = 0

then Write(A,' ');

end;

vid := suma / i;

writeln;

writeln('skaiciu suma : ',suma);

WriteLn('skaiciu vidurkis :',vid:2:2);

Writeln('didziausias skaicius :',max);

Writeln('maziausias skaicius :',min);

readln;

end.

Cia antra uzduotis, is failo nuskaitant duomenis naudojamas ciklas, dazniausiai for(paryskinta) kur sukeliu iskart i masyva A visus tuos 9 skaicius, maziausos reiksmes ieskant tas pats kaip ir didziausios, naudojamas salygos sakinys ir ciklas visiems skaiciams pertikrinti, nepadaryk klaidos priskirdama(s) min, max reiksmes, max = 0, o min turi buti daugiau negu bus ivesti duomenys, pas mane 100, cia daug kas klaidas daro tai gal del to tau nepriskiria teisingai, :rolleyes: