Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program irpef_10_persone;
- uses crt;
- const
- min=1;
- max=10;
- var reddito:array[min..max] of real;
- i:longint;
- volta:array[min..max] of string;
- begin
- textcolor(white);
- 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';
- writeln(' || Calcolo tassa IRPEF lorda di 10 persone ||');writeln;
- write('Premi INVIO per continuare...');readln;clrscr;
- for i:=min to max do
- begin
- repeat
- begin
- writeln(' || Calcolo tassa IRPEF lorda di 10 persone ||');writeln;
- write('Inserisci reddito annuo ',volta[i],' persona: ');
- readln(reddito[i]);
- clrscr;
- if (reddito[i]<0) then
- begin
- writeln(' || Calcolo tassa IRPEF lorda di 10 persone ||');writeln;
- write('Il reddito deve essere maggiore o uguale a 0 euro. Riprova.');
- writeln;
- end;
- end;
- until (reddito[i]>=0);
- if (reddito[i]<=15000) then
- reddito[i]:=((22*reddito[i])/100)
- else
- begin
- if (reddito[i]<=28000) and (reddito[i]>=15000) then reddito[i]:=(((22*15000)/100)+(26*(reddito[i]-15000)/100));
- if (reddito[i]<=55000) and (reddito[i]>=28000) then reddito[i]:=(((26*28000)/100)+(38*(reddito[i]-28000)/100));
- if (reddito[i]<=75000) and (reddito[i]>=55000) then reddito[i]:=(((38*55000)/100)+(41*(reddito[i]-55000)/100));
- if (reddito[i]>=75000) then reddito[i]:=(((41*75000)/100)+(43*(reddito[i]-75000)/100));
- end;
- end;
- writeln(' || Calcolo tassa IRPEF lorda di 10 persone ||');writeln;
- for i:=min to max do
- begin
- writeln('Tassa IRPEF (lorda) ',volta[i],' persona: ',reddito[i]:10:2);
- end;
- writeln;writeln;writeln;write('Programma terminato, premi un tasto per chiudere.');
- readkey;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement