Autorius Tema: Duomenų skaitymas ir įrašymas  (Skaityta 5555 kartus)

Neprisijungęs Simpsonz

  • Naujokas
  • *
  • Įrašai: 5
  • Karma: +0/-0
    • Žiūrėti profilį
Duomenų skaitymas ir įrašymas
« Įrašytas: 2011-01-10 18:58:21 pm »
Sveiki, turiu tokį uždavinį. Tekstiniame faile surašyti sveikieji skaičiai. Reikia parašyti programą kuri sugrupuotų juos į du masyvus: atskirai teigiamus ir atskirai neigiamus. Padėsit kasnors? Galim ir Pm pašnekėt.

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Re: Duomenų skaitymas ir įrašymas
« Atsakymas #1 Įrašytas: 2011-01-10 20:50:31 pm »
bandei paieskoti uzduoties tarp manualai.lt puslapyje esanciu?

http://kodai.manualai.lt/pascal/video-pamokos.html

duodu kokius 85% kad ten yra jei ne identiska pamoka kokios tau reikia, tai labai artima :)
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

Gerda Photography
Serveriai.lt 50% nuolaida!
Free Hosting
Free Templates

Neprisijungęs Simpsonz

  • Naujokas
  • *
  • Įrašai: 5
  • Karma: +0/-0
    • Žiūrėti profilį
Re: Duomenų skaitymas ir įrašymas
« Atsakymas #2 Įrašytas: 2011-01-10 21:46:24 pm »
O gal galėtum parašyt trumpą programą Tu?  :)

Neprisijungęs krekas

  • Naujokas
  • *
  • Įrašai: 358
  • Karma: +11/-3
    • Žiūrėti profilį
    • Puslapis.Net
Re: Duomenų skaitymas ir įrašymas
« Atsakymas #3 Įrašytas: 2011-01-10 22:13:27 pm »
Pabandyk pirma pats, kas neišeis rašyk.
www.puslapis.net - tavo žaidimų video!
www.baldupramone.lt - viskas ko reikia susirasti geram baldui
www.baldumanija.lt - elektroninė baldų parduotuvė

Manualai.lt Forumas

Re: Duomenų skaitymas ir įrašymas
« Atsakymas #3 Įrašytas: 2011-01-10 22:13:27 pm »

Neprisijungęs Simpsonz

  • Naujokas
  • *
  • Įrašai: 5
  • Karma: +0/-0
    • Žiūrėti profilį
Re: Duomenų skaitymas ir įrašymas
« Atsakymas #4 Įrašytas: 2011-01-10 22:36:28 pm »
Nu va dabar aš tokį esu pasirašęs:
program p16;
uses Crt;
const L= 100;
Duomenys = 'skaiciai.dat';
type mas = array[1..L] of string;
procedure Skaito(var A : mas; var n : integer);
var F : text; i : integer;
begin
assign(F, Duomenys); Reset(F);
Readln(F, n);
for i:= 1 to n do Readln(F, A);
Close(F);
end;
var Sk : mas; i, n : integer; duom: text;
begin
Skaito(Sk, n );
for i:= 1 to n do
  writeln (sk);
readLn;
end.
Į sk masyvą susirašiau visus skaičius. Tai kaip suprantu dabar reikia juos surušiuoti į teigiamus ir neigiamus masyvus (t.y man reikia, kad teigiami išsisaugotų viename tekstiniame faile, o neigiami kitame)
« Paskutinį kartą keitė: 2011-01-10 22:39:25 pm sukūrė Simpsonz »

Neprisijungęs Lukas

  • Administratorius
  • Herojus
  • ******
  • Įrašai: 7431
  • Karma: +232/-15
    • Žiūrėti profilį
Re: Duomenų skaitymas ir įrašymas
« Atsakymas #5 Įrašytas: 2011-01-10 22:46:52 pm »
O gal galėtum parašyt trumpą programą Tu?  :)

as paskalio nemoku :) paskutini karta naudojau ji mokykloj, kas buvo pries 4 metus ir man jis tuo metu labai nepatiko. as per IT egza parasiau programa pagal pavyzdzius is testo, as kiek paskalio moku realiai ismokau per egza it.
Jūsų draugas, kolega ir puslapio administratorius,

Lukas.

Gerda Photography
Serveriai.lt 50% nuolaida!
Free Hosting
Free Templates

Neprisijungęs Simpsonz

  • Naujokas
  • *
  • Įrašai: 5
  • Karma: +0/-0
    • Žiūrėti profilį
Re: Duomenų skaitymas ir įrašymas
« Atsakymas #6 Įrašytas: 2011-02-03 19:31:19 pm »
.dat faile surašyti mokiniai reikia papildyti programa, kad programa išrinktu ir surasytu tik nurodyto vardo mokinius. Tapati reikejo su vidurkiu padaryt (ivedi vidurki ir kieno lygus arba didesnis tuos surasytu, va o su vardais nesigauna)
begin
     writeln ( ' Iveskite vidurki ');
     readln(vid);

for i :=1 to n do
       if vid <= A.vid then

su vidurkiu taip dariau



Manualai.lt Forumas

Re: Duomenų skaitymas ir įrašymas
« Atsakymas #6 Įrašytas: 2011-02-03 19:31:19 pm »