dont mind me

[Wolfrider]

Sorry, I forgot my stick at school, its just a delphi program, dont mind me

 

 

 

 

 

program WTF;

 

{$APPTYPE CONSOLE}

 

uses

SysUtils;

var Anschaffungswert, Abschreibung, Nutzungsdauer, Schrottwert: Single;

Jahr: Integer;

 

begin

{ TODO -oUser -cConsole Main : Hier Code einfügen }

 

//eingabe

writeln ('Gib bitte die Anschaffungswert in Euro ein: ');

readln(Anschaffungswert);

writeln ('Gib bitte die Nutzungsdauer in jahren ein: ');

readln (Nutzungsdauer);

writeln ('Gib bitte die Schrotwert in Euro ein: ');

readln (Schrottwert);

 

//berechnung

 

Abschreibung:= (Anschaffungswert- Schrottwert)/Nutzungsdauer;

 

 

repeat

Schrottwert := Anschaffungswert- Abschreibung*Jahr;

writeln ('Jahr=',jahr);

writeln ('Die Abschreibung ist= ',Abschreibung);

writeln ('Das schrottwert ist=',Schrottwert);

Inc(Jahr);

until

Jahr <= Nutzungsdauer;

 

 

readln;

 

 

end.

[Satire]

http://pastebin.com/

[Nyt]

I almost thought I was the only person in the world who is learning Delphi Nice to see someone else having to learn Delphi for school

[HarryTaco]

I almost thought I was the only person in the world who is learning Delphi Nice to see someone else having to learn Delphi for school

LOL you make me laugh. I thought the same thing decades ago when learning Pascal for programming 101.

[Wolfrider]

Well pascal is the next step...

sorry guys, but I only had 2 minutes to get it on the net ( internet is mostly closed, but my teacher made an exeption)

and overclockersclub was the first thing that came to mind since i dont have to wait 5 minutes loading when opening yahoo mail

[Wolfrider]

http://pastebin.com/

 

I din't know about this site, thanx

[Andrewr05]

There used to be a personal text box on your profile that you could paste stuff into, not sure why that ever got taken away.

 

 

I used it to store random crap all the time.

 

 

 

EDIT:

 

Never mind I found it, it is HERE.

 

 

You can paste any plain text into it and its hidden, no one else can see it.

[Wolfrider]

There used to be a personal text box on your profile that you could paste stuff into, not sure why that ever got taken away.

 

 

I used it to store random crap all the time.

 

 

 

EDIT:

 

Never mind I found it, it is HERE.

 

 

You can paste any plain text into it and its hidden, no one else can see it.

 

Thanx, i will keep this in mind next time I got homework but no stick