Lasst doch einfach diese Schildkröte dumm rumlaufen...
Wow... Das das noch jemand kennt außer mir
Wurdest du damit auch gequält?
Hallo,
hat einer von euch schonmal Programme in TurboPascal geschrieben?
Wir müssen in der Schule als Projekt (sind 3 Leute und haben 20 Schulstunden Zeit) ein Programm schreiben, ich weiß absolut nicht was. Evtl. könnte ich ja eure Ideen/Quelltexte als Grundlage verwenden.
Ich dachte z.B. an sowas wie Stratego, wo man Einheiten abwechselnd auf einem Brett verschiebt und diese Schussreichweiten haben. (Gibt es sowas auf dem PC?)
thx4help
Ich hab mich einige Zeit damit befasst, bevor ich jetzt schulisch zu C (und später dann C++) übergesattelt bin.
Deshalb kann ich schon sagen, dass als Einstiegsprojekt ein ganzes Spiel nicht ohne weiteres machbar ist - selbst in Turbo Pascal nicht.
Allein die Anzahl der Variablen, eventuellen Konstanten und den ganzen IF/Case und Schleifen würde euch den Spass schnell verderben, euer Projekt unübersichtlich machen und demnach keinen Sinn haben.
Und von grafischen Elementen kannste nur träumen, das haut in TP leider nich hin.
Gute Möglichkeiten gibt es aber im Bereich der mathematischen Berechnung (z.b Zinsen, Erdanziehung bzw. Schiefer Wurf, Grundrechenarten), Textadventures (simple!) oder kleine Quiz-Spiele.
Was ich dir raten würde, wäre entweder ein Rechenprogramm, z.b einen Taschenrechner, oder eben ein Quiz-Spiel/Textadventure. Das kann dann beliebig ausgebaut werden und man übt damit sogar im Hinterkopf alles, was man für TP braucht
Sourcecodes muss ich mal schauen, die fliegen hier irgendwo rum^^
EDIT:
Hier mal Beispiele:
Code:
{(C)2006 Chris_2k}
program schiefer_wurf;
uses wincrt;
const g=9.81;
var weite,hoehe,Vo,alpha:real;
var i:real;
begin
writeln('Programm zum Berechnen des schiefen Wurfes');
writeln('******************************************');
writeln;
writeln;
writeln;
write('Bitte Abwurfgeschwindigkeit in m/s eingeben: ');
readln(Vo);
write('Bitte Abwurfwinkel in ° eingeben: ');
readln(alpha);
i:=(1/1000);
clrscr;
writeln('Abwurfgeschwindigkeit: ', Vo:0:2, ' m/s');
writeln('Abwurfwinkel : ', alpha:0:0, '°');
writeln;
repeat
weite:=Vo*i*cos(Pi/180*alpha);
hoehe:=Vo*i*sin(Pi/180*alpha)-0.5*g*i*i;
i:=i+(1/1000);
until hoehe<0;
writeln('Weite nach ', i:0:4, ' Sekunden: ', weite:0:2, ' Meter.');
writeln('Höhe nach ', i:0:4, ' Sekunden: ', hoehe:0:2, ' Meter.');
writeln;
write('Zum Beenden ENTER drücken...');
readln;
donewincrt;
end.
Code:
{(C)2006 Chris_2k}
program quiz2;
uses wincrt;
var zufallszahl,i, anzahl, antwort:integer;
var skill:byte;
var beenden:char;
begin
writeln('Wer wird Milliadär v.2');
writeln('**********************');
writeln;
writeln;
writeln;
writeln('Ihr Schwierigkeitsgrad: ');
writeln('1 für leicht');
writeln('2 für mittel');
writeln('3 für schwer');
writeln;
write('Ihre Wahl: ');
readln(skill);
clrscr;
case skill of
1: anzahl:=10;
2: anzahl:=5;
3: anzahl:=3;
end;
writeln('Zahlenraten');
writeln('**********************');
writeln;
writeln;
writeln;
writeln('Sie können die Zahl jetzt erraten.');
writeln('Die gesuchte Zahl liegt zwischen 1 und 10!');
writeln;
randomize;
zufallszahl:=random(10)+1;
for i:=1 to anzahl do
begin
readln(antwort);
if (antwort=zufallszahl) then
begin
writeln('Richtig geraten!');
i:=anzahl;
end
else
begin
writeln('Falsch geraten!');
if (antwort>zufallszahl) then
writeln('Die gesuchte Zahl ist kleiner!')
else
writeln('Die gesuchte Zahl ist größer!');
end;
end;
writeln;
writeln;
writeln;
write('Zum Beenden ENTER drücken...');
readln;
donewincrt;
end.
Code:
{(C)2006 Chris_2k}
program Quiz;
uses wincrt;
var antwort:char;
begin
writeln('Quiz v.1 xD');
writeln('*********************');
writeln;
writeln;
writeln;
writeln('Frage 1: Frage?');
writeln;
writeln('Antwort a: Antwortvorgabe1');
writeln('Antwort b: Antwortvorgabe2');
writeln('Antwort c: Antwortvorgabe3');
writeln('Antwort d: Antwortvorgabe4');
writeln;
writeln;
writeln;
write('Ihre Antwort: '); readln(antwort);
case (antwort) of
'a': writeln('Richtige Antwort!');
'b': writeln('Falsche Antwort^^');
'c': writeln('Falsche Antwort^^');
'd': writeln('Falsche Antwort - is ja wohl klar!');
end;
writeln;
writeln;
writeln;
writeln('Frage 2: Frage?');
writeln;
writeln('Antwort a: Antwortvorgabe1');
writeln('Antwort b: Antwortvorgabe2');
writeln('Antwort c: Antwortvorgabe3');
writeln('Antwort d: Antwortvorgabe4');
writeln;
writeln;
writeln;
write('Ihre Antwort: '); readln(antwort);
case (antwort) of
'a': writeln('Nee');
'b': writeln('Genau');
end;
end.
Ähm... Alle Angaben ohne Gewähr
Soweit laufen die Dinger, musst nur anpassen...
