👤
LOREDANA1999EZ
a fost răspuns

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

Răspuns :

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.
Vă mulțumim că ați vizitat platforma noastră dedicată Informatică. Sperăm că informațiile oferite v-au fost utile. Dacă aveți întrebări sau aveți nevoie de asistență suplimentară, nu ezitați să ne contactați. Așteptăm cu nerăbdare să vă revedem și nu uitați să ne salvați în lista de favorite!


Ez Askings: Alte intrebari