Question

Potrzębuję aby mi ktoś rozpisał to zadanie jak je zrobić w TurboPascalu :) ( załącznik)

Answer 1

program zadanie5;

var
 sztuk:integer;
 wartosc,vat,x:real;

begin
 writeln('Dzien dobry!!!');
 writeln;
 writeln('Wpisz ile zamowiles sztuk towaru i nacisnij Enter.');
 readln(sztuk);
 writeln;
 writeln('Teraz wpisz wartosc pojedynczej sztuki w PLN aby wyliczyc wartosc netto');
 readln(wartosc);
 writeln;
 writeln;
 x:=wartosc*sztuk;
 writeln('Wartosc towaru wynosi: ',x:10:2,' zl');
 writeln;
 writeln('Wyliczanie wartosci brutto towaru.');
 writeln;
 writeln('Podaj aktualna stawke VAT: ');
 readln(vat);
 vat:=vat/100;
 vat:=1+vat;
 writeln;
 x:=x*vat;
 writeln('Wartosc towaru brutto wynosi: ',x:10:2,' zl');
 writeln;
 writeln('Podaj o ile % wzrosla cena towaru:');
 readln(x);
 x:=x/100;
 x:=x+1;
 wartosc:=wartosc*sztuk*x;
 x:=wartosc*vat;
 writeln('Wartosc towaru netto wynosi: ',wartosc:10:2,' zl. Brutto: ',x:10:2,' zl.');
 readln;
end.