Jump to content
Sign in to follow this  
Wolfrider

dont mind me

Recommended Posts

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

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

Share this post


Link to post
Share on other sites

I almost thought I was the only person in the world who is learning Delphi :P 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

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 :teehee: since i dont have to wait 5 minutes loading when opening yahoo mail :yucky:

Share this post


Link to post
Share on other sites

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

×
×
  • Create New...