Question

apisz program obliczjący podatek od samochodu na podstawie pojemnosci silnika.

Podatek to 10% wartosci samochodu dla pojemnosci silnika do 1.2l i 12% powyżej.

Przykład działania:

wynik := (a+b)/(c*a);

Proszę o napisanie tego programu w Pascalu, i najlepiej dodać załącznik z zapisanym już tym programem z rozszyrzeniem z tego programu .

Answer 1

Program pojemnosc;
uses crt;
var a,b,c,d:real;

begin
clrscr;
writeln('Podaj cenę samochodu');
readln(d);
writeln('Podaj pojemność silnika (w litrach, np. 1.2)');
readln(a);
b:=d*0.1;
c:=d*0.12;
if (a<1.2) then  begin

writeln('Podatek od samochodu kosztującego ',d:8:2, ' o pojemności silnika równej ', a:2:2, ' wynosi ', b:2:2);

end;
if (a>1.2) then begin

writeln('Podatek od samochodu kosztującego ',d:8:2, ' o pojemności silnika równej ', a:2:2, ' wynosi ', c:2:2);
end;
writeln('Wciśnij enter aby zakończyć.');
readln;
end.

 

To wszystko chyba, jeśli coś jeszcze to pisz.

Pozdrawiam.