Keresés Kategóriák Kedvencek

Programozás Pascalban: Típus nélküli fájlok használata - Alapismeretek

Készítette: FlamingClaw
2011. július 2. 18:49:03 - 2651 megtekintés
  • Röviden és tömören elmagyarázom a típus nélküli fájlokkal kapcsolatos fogalmakat, eljárásokat, függvényeket. Amelyek ismerete elengedhetetlen a fájlkezelés megvalósításában a pascal programozási nyelvben.
  • Amire szükségünk van

    Pascal
  • Típus nélküli fájlok használata - Alapismeretek

    A típus nélküli fájlok alatt a nem szabályos, ismeretlen szerkezetű állományokat értjük.
    A deklarációja: a var foglalt szó után felveszünk egy változót, típusnak a file foglalt szót adjuk meg.
    Az írás-olvasás blokkonként történik, melynek legkisebb egysége az adatblokk. Mérete alapértelmezésben 128 byte, ami a file nyitásakor módosítható.
  • Címkék:

    programozás pascal típus nélküli fájl untyped file program
adam887 - 10 éve, 10 hónapja

Megkérnélek, hogy ne reklámozz. Következőre küldöm moderálásra.

FlamingClaw - 12 éve, 5 hónapja

Turbo Pascalt, Free Pascalt, Lazarust, Delphit. Egyébként, a tippek általában a Borland féle Turbo Pascallal készültek. Mostanság nincs időm videókat készíteni, azért néha be-be nézek az oldalra.

DjForeverAlone - 12 éve, 5 hónapja

Helló.. Te melyik pascal-t használod???

artiny - 13 éve, 3 hónapja

Az eleje a hozzaszolasnak:
Hogyan kell ezt megoldani Turbo Pascalban?
Befejezés hiányzik a programból.
A gyakorlaton ahol vagyok ezt kell csinálnom egész nap:
van a kamion indulási és érkezési km távja a tachométeren. Kettő különbségéből kijön a megtett táv,ezt megszorozva a fogyasztási kulccsal kijön a fogyasztás. A maradék naftából ami a kamion tartályában van ki kell vonni a fogyasztást (és ha volt tankolás akkor előtte hozzáadni)**** és így megkapjuk a maradék naftát a kamionban. Ezt kell vezetni egy lapon a cégnél.
Ennek a megkönnyítésére gondoltam megpróbálom megszerkeszteni a progit.

artiny - 13 éve, 3 hónapja

Szia hátha tudsz segiteni nekem.A kerdesek:
A kérdések:

1 A programot hogyan tudom folytatni ,hogy használja fel ugyan azt a VÉGÉRTÉKET,TAKOMETER VEGERTEKET - hisz ezeket nem kéne ujbol megadni,mert ugyan az mint az elozo vegertekek és ezt beolvasni az ujabb szamolásnál kezdoértéknek.
/itt változok értékei megmaradnak a memoriaban szoval eleg behelyetesiteni? csak nem tudom hogyan irjam le ezt programban .... eljutottam addig,hogy kiszamolom amit akarok egyszer de hogy folytatodjon a program az elozo ertekkel már nem tudom./

Nem kell hogy tarolja valahova az adatokat a program(mivel egy kamiont nem naponta vezetik,hanem amikor kezhez kapja a papirokat,ezért van hogy 15napot egyszerre csinálok meg)...csak egyszer kiszamolom az elsot (ugy hogy en adom meg a kezdo erteket,vegerteket - azutan mar a program fogja beolvasni a vegerteket a kezdobe a következő számításba)

2 hogyan lehet megoldani a tankolást,hogy elegánsabb legyen. Mivel csak kb 2hetente szoknak tankolni ezért ugy elohivni ha csak tankolt.
Eddig jutottam:

program staska;
uses crt;
var kezdo,tankolas,spotreba,vegertek,kulcs,tav,takezdo,takveg:real;
begin
clrscr;
write('adja meg a takometer kezdoerteket: ');
readln(takezdo);
write('adja meg a takometer vegerteket : ');
readln(takveg);
tav:=takveg-takezdo;
writeln('takvegso - takezdo : ',tav:0:0);

write('adja meg a fogyasztas kiszamitasahoz a kulcsot: ');
readln(kulcs);
spotreba:=tav*kulcs;
write('adja meg a tartaly maradek tartalmat : ');
readln(kezdo);
write('adja meg a tankolas mennyiseget : ');
readln(tankolas);

writeln('tartaly maradek erteke: ',kezdo:0:0);
writeln('tankolas mennyisege : ',tankolas:0:0);
writeln('fogyasztas : ',spotreba:0:2);
vegertek:=(kezdo+tankolas)-spotreba;
writeln('maradek nafta : ',vegertek:0:0);

readln;
end.