[Frage] Suche einen Befehl für Pascal

[sasa89]

0

hi!
wir haben in der schul angefangen TurboPascal zu lernen.
soweit so gut.
ich hätte da nur eine frage, die ihr mir vielleicht (hoffentlich) beantworten könnt:
ich suche einen befehl, der besagt, dass wenn ich zB '1' eingebe ein text wie 'loading...' kommt (das mit dem text ist kein problem) und die pünktchen (und/oder buchstaben) sich hintereinander aufbauen.
also dass der den anschein macht, er würde stück für stück einzelne systemteile checken oder sowas


hat da jemand nen tipp für mich wie sich das machen lässt?


greetingz,
sasa89

ps: achja, und kann man vllt was programmieren, damit der sounds mit dem pc-speaker (also nicht aus den lautsprechern sondern ausm pc selbst) macht?
ist mir grad so die idee gekommen....

[E-Lite]

0

Ungefähr so unter DOS:

--------------------------------
Program Example;

uses system; <- glaub'ich.

Var S : String;
C : Char;
F : File of char;
T : Char;

Assign (F,'Dateiname');
Reset (F);

While (T<>'1') do
Begin
Read (T);
end;

While not Eof(F) do
Begin
Read (F, C); <- pro eingelesenem Buchstaben der Datei ein Punkt.
Write ('.'));
end;
--------------------------------

Ist wahrscheinlich nicht was du erwartet hast. Wenn ein Programm gestartet werden soll, geht es so natürlich nicht. Dann müsste das eingelesene natürlich in den Speicher geschrieben werden und dann per Call zum Einstiegspunkt gestartet. In diesem Fall geht es um eine Textdatei, die eingelesenen Daten werden verworfen, bla, bla, bla ....

Leider nicht so einfach. Kommt halt darauf an, was du machen willst.

[sasa89]

0

habs schon herausgefunden.....danke McMorlord - dankeschön nochmal

nun hab ich 2 weitere fragen...

1. wenn ich den delay-befehl (pausen-befehl) eingebe wechselt der text der nach dem delay kommt in die nächste zeile. kann ich das irgendwie verhindern?

2. wie kann ich mehrere befehle während einem IF-befehl ausführen?
ich hab im quelltext im moment das hier stehen:

Code:

repeat
                read(a);
                if a = 0 then
                        writeln('Good bye!');
                if a = 2 then
                        delay(350); writeln('Checking...');
                        delay(350); writeln('Status: OK');
                if a = 1 then
                        delay(350); writeln('Loading program.....');
                        delay(500); writeln('Loading failed.);
        until a = 0;

so wie ichs mir gedacht hab soll er mir
'Checking...
Status: OK'
mit einer kleinen verzögerung anzeigen, wenn ich die 2 eingebe.
und wenn ich die 1 angebe:
'Loading program...
Loading failed.'
(ebenfalls mit einer verzögerung)

wenn ich aber zB die 2 eingebe, dann sagt er mir
'Checking...
Status: OK
Loading program...
Loading failed.'


hat jemand ne idee wie ich das problem beheben könnte?
McMorlord hat mir den tipp gegeben die if-befehle in klammern zu setzen.
nur leider find ich nicht einen solchen befehl :/


~edit~
die zweite frage hab ich mir schon selbst beantwortet
man grenzt die gewünschten befehle mit nem neuen Begin und End; ab

[E-Lite]

0

Kenne eigentlich nur C/C++ und Pascal aus der 10. Klasse, aber ichmeine es müsste so heißen (aber nicht auslachen):

if (a = 0) then
begin
writeln('Good bye!');
end;

Die anderen ifs auch mit begin/end.
....

sonst würde nach dem ersten if das zwiete if ausgeführt, dann das dritte, usw.
Zumindest ist es einen Versuch Wert.

[sasa89]

0

jo...hab ich 10min früher schon hingeschrieben^^
guck mal gaaanz ans ende von meinem post...


aber hat keiner ne antwort auf die erste frage?

[E-Lite]

0

write ohnen ln ?

[sasa89]

0

Original von E-Lite
write ohnen ln ?

vielen vielen dank!!
es hat geklappt

[gremlin31]

0

sag deinem lehrer du willst java, c#, c++ und assembler lernen

^^

[10-4-11]

0

Naja Turbo Pascal ist nen guter Einstieg um zu verstehen was es mit den Prozeduren und Variablen auf sich hat. Ich hab in der Schule atm auch C++ und grad fällt mir ein das ich noch meine Hausaufgaben programmieren muss. -Gut das ich nen Laptop habe, dass wird im Bus erledigt.

[TheCyberDruid]

0

Original von Jan de KluV
Naja Turbo Pascal ist nen guter Einstieg um zu verstehen was es mit den Prozeduren und Variablen auf sich hat. Ich hab in der Schule atm auch C++ und grad fällt mir ein das ich noch meine Hausaufgaben programmieren muss. -Gut das ich nen Laptop habe, dass wird im Bus erledigt.

Schön für die Neunziger, aber wo ist die Objekt-Orientierung? Ich würde C# oder Java vorschlagen und den Funktionalen Unterbau weglassen -> brauchst du sehr wahrscheinlich in der Zukunft nicht mehr. Klar wenn man Spiele programmieren will, sollte man sich mit C/C++ auseinander setzen, aber TurboPascal? Das riecht nach nem veralteten Lehrer .

[sasa89]

0

der hat pascal auch nur als einstieg gemacht.
der meinte dass wir ab oktober oder so wahrscheinlich mit c++ anfangen werden...

[TheCyberDruid]

0

Original von sasa89
der hat pascal auch nur als einstieg gemacht.
der meinte dass wir ab oktober oder so wahrscheinlich mit c++ anfangen werden...

Didaktisch falscher Ansatz, aber das ist ein ganz anderes Thema, also bin ich jetzt still .

P.S. : Wie sieht's mit Bapho 2 aus, bin schon ganz hippelig .

Edit : Neuromancer ist da .

[E-Lite]

0

Der konsequente nächste Schritt von Pascal aus wäre eigentlich Delphi, wenn man es von der Famillienangehörigkeit her betrachtet. Da gibt es auch <begin, end> und andere Pascal-Sprachkonstrukte, ist von Borland und Objektorientiert.
Wenn man es allerdings von der Syntax (Prozedural) der Sprache her betrachtet, wäre C (ohne Plus) wohl eher der nächste Schritt.

Schön für die Neunziger,

In sofern bin ich der Meinung unseres Druiden, würde aber sogar noch weiter gehen: "Schön für die späten 80er."
Wenn man von Pascal (ohne Turbo) ausgeht sogar: "...frühen 80er"

Dein Lehrer ist halt auch ein richtiger Oldschooler und kann sich eben nicht von seinen Pascal Erinnerungen/Erlebnissen trennen. Die paar Zeilen Pascal-Code haben in mir auch Erinnerungen wachgerufen.
Auf'm Schneider gab's schon Turbo-Pascal, lief unter C/PM von Digital Research (was Bill dann später mit wenigen Änderungen unter dem Namen MS-DOS verkaufte. )
Aber vor allem kann ich mich an einige nette Mädels in meinem Informatik-Kurs im 9/10 Jahrgang erinnern.

Hab C/PM im Emu mal ausprobiert, funkt. sogar, incl. Turbo-Pascal und Wordstar. Das war noch eine Welt ohne Ordner, heute kaum zu fassen. Es wurde nie bewiesen, aber damals wurde angeblich das Wort "Diskjockey" ins Leben gerufen.
Man beachte das Copyright:





btw: Eigentlich ist es völlig egal womit man anfängt, Hauptsache man tut es. Wenn man es kapiert hat, nimmt man hinterher eh' was einem am besten gefällt.