Pascal uzdavinys

sveiki. taigi iškilo problema su pascaliu. štai pati programa.

program pirminis;

type mas= array [1..100] of integer;

var i,n,h:integer;

d:text;

c:mas;

procedure skaitymas;

begin

n:=0;

i:=1;

while not eoln(d) do

begin

read(d, n);

c:=n;

i:=i+1;

end;

h:=i;

for i:=1 to h do

begin

Writeln(c);

end;

end;

begin

assign(d, 'Duomenys.txt');

reset(d);

skaitymas;

end.

Duomenys.txt

1 25 33 11 23 101 25 63

Meta kad blogas skaičiaus formatas. Niekaip nesuprantu kame bėdos.

Programa ir duomenų failas išsaugotas kur nors?

taip. iš failo lyg ir nuskaito, buvau įterpęs eilutę Writeln('gg'); tai kiek reikėjo kartų tiek ir parašė, bet poto kažkas blogai. nežinau aš jau net.

aš panėginau tavo programą ir man viskas veikia

bandžiau ir ant kito kompiuterio neveikė man. kame tada bėdos?

Nepatariu naudoti eoln ir eof funkcijų, nes jos dažnai nesuveikia, arba suveikia ne taip kaip reikia. Kad tai apeiti gali pradžioje failo parašyti skaičių m, kuris nurodys, kiek elementų (tavo atveju skaičių) reiks nuskaityti iš failo. Taip pat gali kintamuosius, naudojamus tik procedūroje apsirašyti pačioje procedūroje, o ne kaip globalius (nors nemanau kad tai padės šiai programai).

Nepatariu naudoti eoln ir eof funkcijų, nes jos dažnai nesuveikia, arba suveikia ne taip kaip reikia. Kad tai apeiti gali pradžioje failo parašyti skaičių m, kuris nurodys, kiek elementų (tavo atveju skaičių) reiks nuskaityti iš failo. Taip pat gali kintamuosius, naudojamus tik procedūroje apsirašyti pačioje procedūroje, o ne kaip globalius (nors nemanau kad tai padės šiai programai).

Klausimas kyla ar tu tikrai gerai supranti kaip jos veikia? :-) Mano manymu, tu nezinai, kaip jos veikia, todel ant to ir pasimauni.

Tikrai suprantu jų veikimą, tiesiog kartais naudojant senesnius kompiliatorius šios komandos veikia netiksliai / meta klaidą. :)

Tikrai suprantu jų veikimą, tiesiog kartais naudojant senesnius kompiliatorius šios komandos veikia netiksliai / meta klaidą. :)

Pasirodo nesupranti ju veikimo. Nu nezinau, nebent apie pati pati pirma compaileri kalbi, tada GAL ir jo. Anyway, jei neveiktu, tai koks pointas butu palikta toki dideli buga compaileryje?

Pasirodo nesupranti ju veikimo. Nu nezinau, nebent apie pati pati pirma compaileri kalbi, tada GAL ir jo. Anyway, jei neveiktu, tai koks pointas butu palikta toki dideli buga compaileryje?

Suprantu aš tas funkcijas, jei reikia jas naudoju, tiesiog sakau kaip man yra kadaise nutikę per programavimo olimpiadą. :) Tai vienetiniai atvejai, nėra ko ginčytis.

O dabar į temą. Kurioje tiksliai eilutėje būna pažymėta klaida, kad netinkamas skaičiaus formatas?