Habt ihr noch euren ersten selbstgeschriebenen Quellcode aus eurer Anfängerzeit?

Ich habe meine alten Quellcodes konsequent und systematisch vernichtet. Die Verlockung ist zu groß, nochmal nachzusehen "wie hab ich das denn damals gemacht" und das hätte keinen guten Einfluss auf mich.

HEZ

PRINT "Hallo"

Mein allererster Quellcode... spätere Codes waren zwar interessanter, aber die wolltest du ja nicht wissen.

Walli

Mein erster Code gammelt hier bestimmt noch irgendwo auf ner 1,44"er rum. Hab aber vergessen was das war *such*.

sarfuan

Gh4 schrieb:

Habe ihr noch euren allerersten Programmcode, als ihr mit dem Programmieren angefangen habt, also noch von den Anfängen eurer Programmiererfahrung?

Irgendwo - ja. Ich schmeiß sowas doch nicht weg
Die Frage ist nur, ob das jeweilige Speichermedium noch fehlerfrei lesbar ist. Aber da ich keine Lust zum Suchen und Ausprobieren habe, hoffen wir das einfach mal

Wenn ja, welche Programmiersprache war das und wieviele Zeilen hatte der
Quellcode etwa?

Pascal und keine Ahnung.

TGGC

Ne 1,44 Zoll Disk? LOL!

Mein erster Code: http://www.fh-merseburg.de/~roesch/trash/1stcode.gif
Auch C64.

Bye, TGGC (Ein Jahr Helden)

Walli

TGGC schrieb:

Ne 1,44 Zoll Disk? LOL!

Ach F§%$... So lang ist das also schon her, dass ich die Dinger das letzte Mal benutzt habe.

Unix-Tom

Was ist ne 1,44 Zoll Disk?

Ich kenne nur die 3 1/2 und die 5 1/4 Zoll.

sarfuan

Unix-Tom schrieb:

Was ist ne 1,44 Zoll Disk?

Sei mal nicht so kleinlich. Ob Zoll oder Megabyte - doch eh alles das selbe

Unix-Tom schrieb:

Was ist ne 1,44 Zoll Disk?

Ich kenne nur die 3 1/2 und die 5 1/4 Zoll.

Du vergisst die guten alten 8"

Erinnerst du dich nicht mehr?

Ich unterscheide 2 Phasen in meinem Programmiererleben.

Die erste ist die C64/Amig500 Zeit (13-16 Jahre alt).

Die Programme aus dieser Zeit habe ich nicht mehr.

Danach kammen die PCs und ich in die Pubertät. Mädchen und Frauen wurden mir wichtiger.

So mit 25-26 habe ich mir ein PC gekauft meine Kenntnisse aufgefrischt. Erste Programm in C und Turbo C (Quellcodes habe ich noch).

Walli

Unix-Tom schrieb:

Was ist ne 1,44 Zoll Disk?

Die gab es wohl nur in meiner Phantasie *aspirin-nachwerf*. Ne, ich meine schon die 3,5" mit 1,44MB .

EDIT: Schon wieder vertippt...

Mein erstes Programm:

10 BEEP

Mein zweites Programm:

10 BEEP
20 GOTO 10

Dann wurde das auf allen Rechnern im Computerraum ausgefuehrt.

Walli

Hat glaube ich jeder mal gemacht den Gag .

SeppSchrot schrieb:

Mein erstes Listing steht auf Seite 32 des C64 Handbuchs und es besteht zu 50% aus Goto.

Da ich das Handbuch noch habe, könnte man sagen, ich hab den Quelltext noch

Es sollte natürlich selbggeschriebener Code sein.

Abgeschriebener Code gilt nicht. :p

Ok, da die meisten mit allersten Code
[code]
10 Print"Hello World!"
[/code}

meinen, weiten wir die Frage mal etwas aus.

Also ab jetzt den Code in den ersten 6 Monate eurer Anfangszeit des Programmierens.

Vielleicht kommen wir dann über die 5 Zeilen Programme und
"aus dem Einleitungstutorial des Handbuchs abgeschrieben" hinaus.

Ich fang mal an, das ist ein Schnipsel meiner ersten Anfänge bezügl. Programmieren in GWBasic:

[code]
10 SCREEN 9
15 CLS
20 D = 1
30 f = 1
40 FOR ALPHA = 0 TO 400
50 RESTORE
70 READ X, Y
80 GOSUB 190: P1 = bX: P2 = bY
90 FOR I = 2 TO 5
100 READ X, Y
110 GOSUB 190
115 P3 = bX: p4 = bY
117 f = f + 1
120 LINE (P1, P2)-(P3, p4), f
130 NEXT I
136 f = 8
140 D = 1
150 IF D < 0 THEN 170
160 NEXT ALPHA
170 END
190 xe = X * COS(ALPHA) - Y * SIN(ALPHA)
200 ye = X * SIN(ALPHA) + Y * COS(ALPHA)
210 bX = D * xe + 320: bY = D * ye + 200
220 RETURN
230 DATA -120,120,120,120,120,-120,-120,-120,-120,120
[/QUOTE]

groovemaster

program primzahlen;

var ia,ie,i,k,pz,k0: word;

function getkey: word; assembler;
asm
	mov	ah,00h
	int	16h
end;

begin
  repeat
    write('Intervallanfang: '); readln(ia);
    write('Intervallende: '); readln(ie);
    for i:=ia to ie do
    begin
      pz:=i;
      for k:=2 to trunc(sqrt(i)) do
      begin
        if trunc(i/k)=i/k then
        begin
          pz:=0; k:=trunc(sqrt(i));
        end else pz:=i;
      end;
      if i=pz then write(i,' ');
    end;
    writeln; writeln;
    writeln('ENTER   weiter');
    writeln('ESC     Abbruch');
    repeat
      k0:=getkey;
    until (k0=283) or (k0=7181);
  until (k0=283);
end.

Bin mir allerdings nicht vollkommen sicher, ob es wirklich mein allererstes Programm war.

Turbo Pascal ist ein Traum an Programmiersprache wenn man die ersten Schritte so wie ich zuvor in GW-Basic gemacht hat.

Aber irgendwie hatte GW-Basic flair, die IDE falls man überhaupt von so etwas sprechen kann war nämlich echt eine Zumutung, aber das Back to the roots Gefühl,
das dadurch zustande kam hatte auf mich irgendwie einen deutlich höheren Nostalgiewert als unter Turbo Pascal.

Turbo Pascal war da im Vergleich schon geradezu modern.

Lang lang ists her.

ness

Jap. Bei mir ists ca. ein Jahr her, hier ein Ergebnis der Übungen von Volkards Kurs (ich weiß nicht mehr, in welcher Reihenfolge die Aufgaben waren.wie man sieht, war ich <iostream.h>-verseucht):

#include <iostream.h> //funzt net!

bool istschj(int j)

{

if (j%4!=0) return false;

if (j%100==0) return false;

if (j%400!=0) return false;

return true;

};

int wievield (int m, int jahr)

{

if (m==2 && istschj(jahr)==true) return 29;

else return 28;

if (m==1 || m==3 || m==5 || m==7 || m==8 || m==10 || m==12) return 31;

if (m==4 || m==6 || m==9 || m==11) return 30;

};

bool gueltig (int d, int m, int j)

{

if (wievield(m,j)>=d  && d>0 && m<13 && m>0) return true;

return false;

};

void main()

{

int jahr;

int monat;

int tag;

while(true)

           {

           cout<<"Geben sie das zu ueberpruefende Jahr ein: ";

           cin>>jahr;

           cout<<endl<<"Geben sie den zu ueberpruefenden Monat ein: ";

           cin>>monat;

           cout<<endl<<"Geben sie den zu berprfenden Tage ein: ";

           cin>>tag;

           if (gueltig(tag,monat,jahr)==true) cout<<endl<<endl<<"Es handelt sich um ein gueltiges Datum!"<<endl<<endl<<endl;

           else cout<<endl<<endl<<"Es handelt sich nicht um ein gueltiges Datum!"<<endl<<endl<<endl;

           };

};

(irgendwie seh ich grad, meine Formatierung war ein graus...

TGGC

Kommt erstmal mit der "IDE" auf'm Zefi klar.

Bye, TGGC (Wähle deine Helden)