ich sitz hier grad im info unterricht..

[_Funkiwi_]

und hab lange weile, wir sollten in 90 mins zwie programmen machen:program funktion;
uses crt;
var Kapital,Zinssatz,Endkapital:real ; Jahre:integer;

function rechnung(k1,z1:real;j1:integer):real;
var i:integer; f:real;
begin
f:=1;
for i:=1 to j1 do f:=f*(1+(z1/100));
rechnung:=f*k1;

end;

begin
clrscr;
writeln('Bitte geben sie ihr Kapital ein.');
readln(kapital);
writeln('Bitte geben sie den Zinnsatz an.');
readln(zinssatz);
writeln('F?r wieviele Jahre wurde/wird ihr Geld angelegt?');
readln(Jahre);
endkapital:=rechnung(kapital,Zinssatz,Jahre);
writeln('Sie haben jetzt', endkapital:14:2, ' Euro');
readln;
end.



und
program prozedur;
uses crt;
var Kapital,Zinssatz:real ; Jahre:integer;

procedure rechnung(var k1:real;z1:real;j1:integer);
var i:integer; f,k2:real;
begin
f:=1;
for i:=1 to j1 do f:=f*(1+(z1/100));
k2:=f*k1;
k1:=k2;

end;
begin
clrscr;

writeln('Bitte geben sie ihr Kapital ein.');
readln(kapital);
writeln('Bitte geben sie den Zinnsatz an.');
readln(zinssatz);
writeln('F?r wieviele Jahre wurde/wird ihr Geld angelegt?');
readln(Jahre);
rechnung(kapital,Zinssatz,Jahre);
writeln('Ihr Kapital betr„gt nun: ',kapital:14:2,' Euro');
readln;

end.


im prinzip das gleiche^^ einfache zinsberechnugn in pascal:D:D

[BlackArchon]

Und?

[Rangy]

Du verfolgst den Unterricht nicht???? So was, böser, böser Junge!!! :nono:

[Unregistered]

sowas hab ich mal in qbasic programmiert lol

[Mrs. Lolman]

Jaja, der liebe Info Unterricht, hatte ich auch etliche Zeit ;)

[Skorpion]

im info unterricht spamme ich immer bw.de zu ;D

[Saiko]

Lol...
ICh fands in meiner Schulzeit auch immer lustig was anderes zu machen!
Nur habe ich dabei auch viel verpasst.. :P

Deshalb folge doch lieber dem Stoff ;)


Viel spaß dabei ;)

Gruß

[_Funkiwi_]

neenee das war n test, für den wir 90 misn zeit hatten, nur ich war nach 10 mins schon fertig *gg*;D ;D

[Kenny1702]

Originally posted by FodA_Funkiwi
neenee das war n test, für den wir 90 misn zeit hatten, nur ich war nach 10 mins schon fertig *gg*;D ;D

lernst du überhaupt was neues im Infounterricht?

[Lolman]

Ich hab mich vorm Infounterricht immer zu- gesoffen, oder gekifft, nur um dann trotzdem als erster mit dem TP- oder Qbasic Programm fertig zu sein.

Der war ja wirklich sowas von unnötig der Unterricht. Aber lustig wars trotzdem.

[Supa]

Ach ja der Infounterricht war schön, ich erinnere mich noch, 3 Tisch gruppen mit je 4 PCs, und ich war mit in der "powergruppe" wir waren immer nach 10min fertig, un dann wurde Monstertruckmadness im LAN gezockt, man durfte sich nur nicht erwischen lassen ;D
das betse war der Spruch vom Lehrer, "Wir bekommen raus wenn ihr scheiße baut" .... Jaja man hats ja gesehen... ;D

Falls hier wer vom AMG in Witten ist, schüler oder Lehrer ;D ... am PC im NT4 raum ganz hinten rechts, wo die Schalter für die Rolladen sind. Auf platte c: in programme, "neuer ordener"(versteckt).. da sind nen paar nette games ;D