Advertisement
Guest User

Untitled

a guest
Feb 23rd, 2019
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 3.04 KB | None | 0 0
  1. program irpef_10_persone;
  2. uses crt;
  3. const
  4.      min=1;
  5.      max=10;
  6. var reddito:array[min..max] of real;
  7.     i:longint;
  8.     volta:array[min..max] of string;
  9. begin
  10.      textcolor(white);
  11.      volta[1]:='prima';volta[2]:='seconda';volta[3]:='terza';volta[4]:='quarta';volta[5]:='quinta';volta[6]:='sesta';volta[7]:='settima';volta[8]:='ottava';volta[9]:='nona';volta[10]:='decima';
  12.      writeln('                || Calcolo tassa IRPEF lorda di 10 persone ||');writeln;
  13.      write('Premi INVIO per continuare...');readln;clrscr;
  14.      for i:=min to max  do
  15.                           begin
  16.                                repeat
  17.                                      begin
  18.                                           writeln('                || Calcolo tassa IRPEF lorda di 10 persone ||');writeln;
  19.                                           write('Inserisci reddito annuo ',volta[i],' persona: ');
  20.                                           readln(reddito[i]);
  21.                                           clrscr;
  22.                                           if (reddito[i]<0) then
  23.                                                                 begin
  24.                                                                 writeln('                || Calcolo tassa IRPEF lorda di 10 persone ||');writeln;
  25.                                                                 write('Il reddito deve essere maggiore o uguale a 0 euro. Riprova.');
  26.                                                                 writeln;
  27.                                                                 end;
  28.                                      end;
  29.                                until (reddito[i]>=0);
  30.                            if (reddito[i]<=15000) then
  31.                                                       reddito[i]:=((22*reddito[i])/100)
  32.                                                   else
  33.                                                       begin
  34.                                                            if (reddito[i]<=28000) and (reddito[i]>=15000) then reddito[i]:=(((22*15000)/100)+(26*(reddito[i]-15000)/100));
  35.                                                            if (reddito[i]<=55000) and (reddito[i]>=28000) then reddito[i]:=(((26*28000)/100)+(38*(reddito[i]-28000)/100));
  36.                                                            if (reddito[i]<=75000) and (reddito[i]>=55000) then reddito[i]:=(((38*55000)/100)+(41*(reddito[i]-55000)/100));
  37.                                                            if (reddito[i]>=75000)                         then reddito[i]:=(((41*75000)/100)+(43*(reddito[i]-75000)/100));
  38.                                                       end;
  39.                            end;
  40.      writeln('                || Calcolo tassa IRPEF lorda di 10 persone ||');writeln;
  41.      for i:=min to max do
  42.                          begin
  43.                               writeln('Tassa IRPEF (lorda) ',volta[i],' persona: ',reddito[i]:10:2);
  44.                          end;
  45.      writeln;writeln;writeln;write('Programma terminato, premi un tasto per chiudere.');
  46.      readkey;
  47. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement