Question

va rog,ajutati-ma..
....O gospodina, a inscris o perioada de timp, zilnic, toate cheltuielele familiei intr-un fisier text, <TXT>> Pentru simplitate ea clasifica cheltuielele in 4 categorii:

1. Produse alimentare; 3. Produse nealimentare;
2. Servicii comunale; 4. Distractii;

Fiecare linie din fisier contine numarul categorii si valoarea cheltuielii.
Elaboratii un program care citeste datele din fisierul <>, calculeaza totalul cheltuielilor pentru intreaga perioada la categoria <>(1) si inscrie intr-un alt fisier <TXT>>.

INTRARE: Fisierul text <> contine un sir de linii. In fiecare linie sint inscrise cite 2 numere separate prin spatiu: numarul categorii - un numar egal cu 1,2,3 sau 4 si suma cheltuielii - un numar real.

IESIRE: Fisierul <> contine o singura linie in care se inscrie denumirea categoriei (PRODUSE ALIMENTARE), apoi dupa un spatiu - totalul cheltuielilor la aceasta categorie pentru intreaga perioada de timp.

EXEMPLU
BUGET.TXT OUT.TXT

2 200 Produse alimentare 380
3 150
1 250
4 120
1 130

Answer 1

Program Tema;
uses Sysutils;
const
     F_NAME_IN='BUGET.TXT';
     F_NAME_OUT='OUT.TXT';     
Var tfIn,tfOut:TextFile;
      x,y,s:integer;  
begin
AssignFile(tfIn,F_NAME_IN);
AssignFile(tfOut,F_NAME_OUT);
s:=0;
while not eof(tfIn) do
begin
readln(x,y);
if(x=1) then
s:=s+y;
end;

writeln(tfOut,'Produse alimentare ',s);
tfIn.close();
tfOut.close();

end.