👤
a fost răspuns

Salut, am nevoie de ajutor cu o problema PASCAL!
Mersi anticipat :)
Un magazin de tehnică digitală a decis să-și premieze clienții, care pe parcursul unui an au
procurat mărfuri de o sumă totală mai mare decât o sumă prestabilită Q. Datele despre
cumpărături se păstrează într-un fișier text pe cardul de reduceri al fiecărui client.
Sarcină: Scrieți un program care va citi datele despre cumpărături din fișierul text CARD.IN și va
afișa denumirea premiului pentru client: MULTUMIM – dacă suma cumpărăturilor este mai mică
decât valoarea Q, MOUSE - pentru suma de cumpărături de la Q la 2Q, TASTATURA - pentru
suma de cumpărături de la 2Q+1 la 3Q și WEBCAM – pentru sumele care depășesc 3Q.
Denumirea premiului va fi afișată la ecran.
Intrare:
 Fișierul text CARD.IN conține în prima linie numărul întreg N (0 cumpărături efectuate pe parcursul anului. Urmează N linii, ce conțin câte un număr
întreg – valorile cumpărăturilor efectuate. Linia i+1 conține valoarea cumpărăturii i.
 Valoarea întreagă Q se introduce de la tastatură.
Ieșire: La ecran se va afișa un șir de caractere – denumirea premiului ce urmează să fie primit

Răspuns :

program Premiu;

var f:text;

   Q, suma, n, i, val:integer;

begin

 write('Q='); read(Q);

 assign(f,'CARD.IN'); reset(f);

 suma:=0;

 readln(f,n);

 for i:=1 to n do

   begin

     readln(f, val);

     suma:=suma+val;

   end;

 if suma<Q then writeln('MULTUMIM')

 else if suma<=2*Q then writeln('MOUSE')

      else if suma<=3*Q then  writeln('TASTATURA')

           else writeln('WEBCAM');

 close(f);

end.

Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!


ID Learners: Alte intrebari