[HaBo]
| Code Kitchen Allgemeines Coder-Forum rund um das Programmieren eigenständiger, ausführbarer Programme. |
Lösung für Pascal
Diskussion: Lösung für Pascal im Forum Code Kitchen, in der Kategorie Software Home; Anzeige Hallo, Ich habe da ein sehr primitives pascal-programm, das im dos-fenster (konsole) die zeilennummer und evt. höher/tiefer gehts nicht ...
 |
28.03.06, 21:48
| #1 (permalink) |
| Registriert seit: 28.08.05  Likes: 0 |  Lösung für Pascal Anzeige Hallo, Ich habe da ein sehr primitives pascal-programm, das im dos-fenster (konsole) die zeilennummer und evt. höher/tiefer gehts nicht dazu. Code: uses crt,dos;
var
znr : byte; {Zeilennr.}
t : byte;
zt : string;
znr_str : string;{Zeilennr. als String}
meldung : string;
begin
clrscr;
t := 0;
znr:=1;
meldung='';
{Ascii-Wert von Escape-Taste ==> 27}
while t <> 27 do begin
str(znr,znr_str);
zt:=' Zeile '+znr_str;
gotoxy(1,znr);
write(zt,meldung);
{warten auf eingabe}
while not keypressed do;
while keypressed do begin
t:=ord(readkey);
end;
if t=72 then begin
{str(znr,znr_str);
zt:=' Zeile '+znr_str;}
if znr=1 then begin
zt:=zt+' Hoeher gehts nicht ';
{Setze an Zeilenanfang}
gotoxy(1,znr);
write(zt,meldung);
end else begin
gotoxy(1,znr);
zt:=' ';
write(zt,meldung);
znr:=znr-1;
str(znr,znr_str);
zt:=' Zeile '+znr_str;
gotoxy(1,znr);
write(zt,meldung);
end;
end;
if t=80 then begin
{str(znr,znr_str);
zt:=' Zeile '+znr_str;}
if znr=25 then begin
zt:=zt+' Tiefer gehts nicht ';
{Setze an Zeilenende}
gotoxy(1,znr);
write(zt,meldung);
end else begin
gotoxy(1,znr);
zt:=' ';
write(zt,meldung);
znr:=znr+1;
str(znr,znr_str);
zt:=' Zeile '+znr_str;
gotoxy(1,znr);
write(zt,meldung);
end;
end;
end;
end. Das ist mal das Grundgerüst: Code: uses crt,dos;
var
znr : byte; {Zeilennr.}
t : byte;
zt : string;
znr_str : string;{Zeilennr. als String}
meldung : string;
begin
clrscr;
t := 0;
znr:=1;
meldung='';
while t <> 27 do begin
str(znr,znr_str);
zt:=' Zeile '+znr_str;
gotoxy(1,znr);
write(zt,meldung);
{warten auf eingabe}
while not keypressed do;
while keypressed do begin
t:=ord(readkey);
end;
if t=72 then begin
if znr=1 then begin
zt:=zt+' Hoeher gehts nicht ';
end else begin
gotoxy(1,znr);
write(' ');
znr:=znr-1;
end;
end;
if t=80 then begin
if znr=25 then begin
zt:=zt+' Tiefer gehts nicht ';
end else begin
gotoxy(1,znr);
write(' ');
znr:=znr+1;
end;
end;
end;
end. Thx, hirsl |
|  |
|
| - Anzeige - | |
|
[HaBo] » Software Home » Code Kitchen » Lösung für Pascal
| Themen-Optionen | |
| Ansicht | |
Linear-Darstellung
| |
Ähnliche Themen | ||||
| Thema | Autor | Forum | Antworten | Letzter Beitrag |
| Primzahlenprogramm in Pascal | flexo1 | Code Kitchen | 13 | 01.11.05 22:34 |
| Turbo Pascal if-then-else | DolphVS | Code Kitchen | 4 | 21.05.05 18:04 |
| Pascal Problem | Lord_Nykon | Code Kitchen | 7 | 07.05.04 12:51 |
| Problem mit Pascal | Mechanius | Code Kitchen | 2 | 28.01.04 18:08 |
| Pascal für Linux? | blueflash | Linux/UNIX | 3 | 26.12.01 18:09 |
