Salut!
Am nevoie de ajutor cu rezolvarea unei probleme PASCAL! Mersi anticipat...
Un tichet (card) electronic conține N călătorii preplătite. La urcarea în transportul public persoana
deținătoare a cardului va valida călătoria. De pe card pot fi extrase 1, 2 sau 3 călătorii, pentru
grupuri de până la trei persoane.
În memoria cardului se înregistrează date despre: numărul de călătorii preplătite, numărul de
validări efectuate, numărul de călătorii extrase la fiecare validare. Datele sunt păstrate în fișierul text
TICHET.TXT.
Sarcină: Scrieți un program care afișează pe ecran numărul de călătorii rămase neutilizate.
Intrare: Fișierul text TICHET.TXT conține în prima linie 2 numere întregi separate prin spațiu:
N (0 < N ≤ 50) – numărul de călătorii preplătite și K ( 0 < K ≤ N) – numărul de validări
efectuate. Fiecare din următoarele K linii conține câte un număr întreg – numărul de
călătorii validate la extragerea corespunzătoare – pentru 1, 2 sau 3 călătorii.
Ieșire: La ecran se va afișa numărul de călătorii preplătite rămase pe card.
boiustef:
era foarte binevenit un exemplu concret de continut a fisierului de intrare si de iesire....
Răspunsuri la întrebare
Răspuns de
1
program HaiCalatorie;
var f:text;
n,k,i, calatorii, ramase, suma:integer;
begin
assign(f,'tichet.txt'); reset(f);
readln(f,n,k);
suma:=0;
for i:=1 to k do
begin
readln(f, calatorii);
suma:=suma+calatorii;
end;
close(f);
ramase:=n-suma;
writeln('calatorii ramase pe card: ', ramase);
end.
Alte întrebări interesante
Limba română,
8 ani în urmă
Matematică,
8 ani în urmă
Matematică,
8 ani în urmă
Limba română,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă
Matematică,
9 ani în urmă