Napisz program w pascalu

Question

Napisz 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ę napisać tutaj jak to ma być, albo jeśli ktoś będzie taki miły, to niech zrobi w turbo pascalu i wyśle na e-mail: [email protected]

Answer 1

program obliczanie_podatku_samochodu;
uses crt;
var a, b, c, wynik: integer;

begin
clrscr;
write('Podaj pojemność swojego silnika: ');
readln(a);
if a<1,2 then c=0,1 writeln('Musisz zapłacić podatek 10%') else c=0,12 writeln('Musisz zapłacić podatek 12%');
writeln('Podaj wartość Twojego samochodu: ');
readln(b);
wynik:=(a+b)/(c*a);
writeln('Twój podatek wyniesie: ', wynik);
end.

Powinno być coś takiego :).
_________
Jeżeli to najlepsza udzielona Ci odpowiedź kliknij gwiazdkę w prawym górnym rogu mojej odpowiedzi. Będę bardzo wdzięczna. Powodzenia i pozdrawiam serdecznie :).

Answer 2

Program podatek;
Uses crt;
Var
a,b :real;
begin
clrscr;
writeln('Podaj cene samocohdu');
readln(a);
writeln('Podaj pojemnosc silnika');
readln(b);
IF b<=1,2 THEN writeln('Podatek wyniesie: ‘,a*0,1:1000:2, '.');
IF b<1,2 THEN writeln('Podatek wyniesie: ‘,a*0,12:1000:2, '.');
readln;
end.

Na moje to będzie tak, zaznaczam jednak, że mogłem się gdzieś kropnąć. =) Ann, integer nie działa przy ułamkach, jak go użyjesz, to wywala wtedy błąd.

EDIT Po czasie wyłapałem błąd. Teraz program powinien działać jak należy.

Comments

tylko napisałam coś co mogłoby się przydać, skąd się u Ciebie wzięło 1000?? i 2??

---

Ten 1000 i 2, to ilość liczb przed i po przecinku, które mają zostać wyświetlone. Bez tego program wywaliłby liczbę naukową np. 552,2500000E00,zamiast 552,25.

---

Kurde komend się nauczył z mojego zeszytu, a teraz mi szpanuje ;] :P

---

Nie z zeszytu, tylko z internetu. :P

---

Najpierw z mojego zeszytu inteligencie :P

---

Niech ci będzie, dostaniesz za to ciacho, albo cuksa. Zadowolona?

---

Niet ;] ;]