Wolfrider Posted September 22, 2011 Posted September 22, 2011 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. Share this post Link to post Share on other sites More sharing options...
Satire Posted September 22, 2011 Posted September 22, 2011 http://pastebin.com/ Share this post Link to post Share on other sites More sharing options...
Nyt Posted September 22, 2011 Posted September 22, 2011 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 Share this post Link to post Share on other sites More sharing options...
HarryTaco Posted September 22, 2011 Posted September 22, 2011 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. Share this post Link to post Share on other sites More sharing options...
Wolfrider Posted September 22, 2011 Posted September 22, 2011 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 Share this post Link to post Share on other sites More sharing options...
Wolfrider Posted September 22, 2011 Posted September 22, 2011 http://pastebin.com/ I din't know about this site, thanx Share this post Link to post Share on other sites More sharing options...
Andrewr05 Posted September 22, 2011 Posted September 22, 2011 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. Share this post Link to post Share on other sites More sharing options...
Wolfrider Posted September 22, 2011 Posted September 22, 2011 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 Share this post Link to post Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now