A Der PASCAL – Teil

Skript zur Vorlesung Allgemeine Datenverarbeitung 10
1 program Mehrwertsteuer; {Programmkopf}
2
3 uses
4 wincrt; {Programmbibliothek einbinden}
5
6 const
7 mwst = 1.16; {Konstantendeklaration}
8
9 var
10 brutto,netto : real; {Variablendeklaration}
11
12 begin {Anweisungsteil}
13 clrscr; {Bildschirm löschen}
14 write('Bitte geben Sie den Nettobetrag ein: ');
15 {Bildschirmausgabe, nur Text}
16 readln(netto); {Variable `netto` einlesen}
17 brutto := netto * mwst; {Bruttobetrag berechnen}
18 writeln('Bruttobetrag = ',brutto);
19 {Bildschirmausgabe, Text und
20 Dateninhalt}
21 end.
Fachhochschule Gelsenkirchen Prof. Dr.-Ing. A. Rinschede
Fachbereich Versorgungs- und Entsorgungstechnik