Guten Tag!

Alles was sonst nirgends einen Platz findet (incl. Spam :))

Moderatoren: ShAngO-Schamanen, DuSK-Orgas

Antworten
Benutzeravatar
Zar
Holy SHIT!
Holy SHIT!
Beiträge: 15345
Registriert: Mi, 09. Jul 2003, 23:00
Wohnort: Dublin / Irland

Beitrag von Zar »

:thumb:
Vor mir die Sintflut.
Benutzeravatar
Sneedy
OVER 9000!!!
Beiträge: 11501
Registriert: Fr, 29. Aug 2003, 23:00
Wohnort: Hamburg
Kontaktdaten:

Beitrag von Sneedy »

was gayt eigentlich grad mit Kino usw.?
Benutzeravatar
Carnifex
Programmierguru
Programmierguru
Beiträge: 6796
Registriert: Sa, 05. Jul 2003, 23:00
Wohnort: dunkler Vorort von Passau

Beitrag von Carnifex »

die diplomatin
Benutzeravatar
Maddison
Waldfarmer
Waldfarmer
Beiträge: 761
Registriert: Mo, 07. Jul 2003, 23:00
Wohnort: Im Wald
Kontaktdaten:

Beitrag von Maddison »

:ugly2:
*Memento Mori*
Benutzeravatar
Sneedy
OVER 9000!!!
Beiträge: 11501
Registriert: Fr, 29. Aug 2003, 23:00
Wohnort: Hamburg
Kontaktdaten:

Beitrag von Sneedy »

uiiiii....Seite geht wieder!
Benutzeravatar
Cheops
Godlike
Godlike
Beiträge: 4517
Registriert: So, 29. Jun 2003, 23:00
Wohnort: Bünde
Kontaktdaten:

Beitrag von Cheops »

ak forum geht wieder

moin moin
live for nothing or die for something
Benutzeravatar
Zar
Holy SHIT!
Holy SHIT!
Beiträge: 15345
Registriert: Mi, 09. Jul 2003, 23:00
Wohnort: Dublin / Irland

Beitrag von Zar »

ich wars nicht!
Vor mir die Sintflut.
Benutzeravatar
Zar
Holy SHIT!
Holy SHIT!
Beiträge: 15345
Registriert: Mi, 09. Jul 2003, 23:00
Wohnort: Dublin / Irland

Beitrag von Zar »

Code: Alles auswählen

MODULE IT1Mehrwert;
IMPORT In, Out;


PROCEDURE Berechnen*;
VAR  	anzahl : INTEGER;
	nettostkpreis, bruttostkpreis, nettogespreis : REAL;
	bruttogespreis, mwst, mwstteil : REAL;

BEGIN
	In.Open;
	In.Int(anzahl);
	In.Real(nettostkpreis);
	In.Real(mwst);
	Out.Ln;
	nettogespreis := nettostkpreis*anzahl;
	mwstteil := (nettogespreis/100)*mwst;
	bruttogespreis := nettogespreis-mwstteil;
	Out.String("Nettogesamtpreis: ");
	Out.Real(nettogespreis,5);
	Out.String(" Euro");
	Out.Ln;
	Out.String("Bruttogesamtpreis: ");
	Out.Real(bruttogespreis,5);
	Out.String(" Euro");
	Out.Ln;
	Out.String("Mehrwertsteueranteil: ");
	Out.Real(mwstteil,5);
	Out.String(" Euro");
END Berechnen;

END IT1Mehrwert.
mein erstes gosu-programm in BBCP :ugly:
Vor mir die Sintflut.
Benutzeravatar
Sneedy
OVER 9000!!!
Beiträge: 11501
Registriert: Fr, 29. Aug 2003, 23:00
Wohnort: Hamburg
Kontaktdaten:

Beitrag von Sneedy »

:thumb:

naja...wer frueh sich uebt :)

warum findet google eigentlich nix wenn ich bbcp programmiersprache eingeb?
Benutzeravatar
Cheops
Godlike
Godlike
Beiträge: 4517
Registriert: So, 29. Jun 2003, 23:00
Wohnort: Bünde
Kontaktdaten:

Beitrag von Cheops »

wtf is BBCP?
live for nothing or die for something
Benutzeravatar
Carnifex
Programmierguru
Programmierguru
Beiträge: 6796
Registriert: Sa, 05. Jul 2003, 23:00
Wohnort: dunkler Vorort von Passau

Beitrag von Carnifex »

irgendein Pascal Dialekt
Benutzeravatar
Zar
Holy SHIT!
Holy SHIT!
Beiträge: 15345
Registriert: Mi, 09. Jul 2003, 23:00
Wohnort: Dublin / Irland

Beitrag von Zar »

blackbox component pascal
Vor mir die Sintflut.
Benutzeravatar
Maddison
Waldfarmer
Waldfarmer
Beiträge: 761
Registriert: Mo, 07. Jul 2003, 23:00
Wohnort: Im Wald
Kontaktdaten:

Beitrag von Maddison »

Es könnte aber auch etwas völlig anderes bedeuten...
*Memento Mori*
Benutzeravatar
Sneedy
OVER 9000!!!
Beiträge: 11501
Registriert: Fr, 29. Aug 2003, 23:00
Wohnort: Hamburg
Kontaktdaten:

Beitrag von Sneedy »

ahja? und zwar?
Benutzeravatar
Sneedy
OVER 9000!!!
Beiträge: 11501
Registriert: Fr, 29. Aug 2003, 23:00
Wohnort: Hamburg
Kontaktdaten:

Beitrag von Sneedy »

:ugly2:
Antworten