PASCAL pripočítavanie
PASCAL pripočítavanie
Dobrý deň, chcem sa spýtať či mi neviete poradiť ako mám spraviť pripočítavanie/odpočítavanie v pascale, ale tak aby si program tie hodnoty pamätal pri jeho vypnutí. Niečo ma napadlo zo zapísaním do súboru ale vôbec nemám predstavu ako a ako sa potom medzi jednotlivými položkami mám pohybovať. Má to byť niečo na spôsob ... uživateľ zadá názov izby..program pripočíta k názvu izby jednotku (jeden ubytovaný)..ak uživateĽ opäť zadá tú istú izbu tak aby sa k nej pripočítala ďalšia jednotka...(dvaja ubytovaní) a pri výpise tej izby dostanem hodnotu 2... za odpoveď vopred ďakujem
-
programator
Medium Star
- Príspevky: 475
- Registrovaný: 18 apr 2005, 8:31
- Bydlisko: Papua new Guinea
- Kontaktovať používateľa:
Mozne riesenie:
V procedurach IncCount a DecCount jednoducho vyhladas nazov izby v subore a inkrementujes/popr. dekrementujes pocet. Samozrejme bolo by mozne riadit to v jednej procedure. Pokial by bolo ale poloziek viac (t.z. > 5 000), odporucam ich vkladat utriedene do suboru a metodou polenim intervalov vyhladavat nazvy izieb...
Kód: Vybrať všetko
type
TItem = record
name: string[100];
count: word;
end;
const
MAX_ITEMS = 1000;
var
ItemArray: array[0..MAX_ITEMS] of TItem;
ItemFile: file of TItem;
procedure IncCount; ...
procedure DecCount;...
dik moc...