Herzlich Willkommen, lieber Gast!
  Sie befinden sich hier:

  Forum » Delphi / Kylix / Turbo Pascal » Ganz einfach! C <-> pascal

Forum | Hilfe | Team | Links | Impressum | > Suche < | Mitglieder | Registrieren | Einloggen
  Quicklinks: MSDN-Online || STL || clib Reference Grundlagen || Literatur || E-Books || Zubehör || > F.A.Q. < || Downloads   

Autor Thread - Seiten: > 1 < [ 2 ]
000
17.11.2005, 04:17 Uhr
hans822



So servus an alle,

hab n ganz kleines banales Problem. Aber wie das mit den Programmiersprachen so ist reicht das ja schon aus.

Also ich will in Pascal das ein eingegebener Wert direkt einer Variablen zugeordnet wird ohne das ich erst auf enter drücken muss. In c is das ja mit getch() möglich. Wie geht das in Pascal?

Wär froh wenn mir da einer weiterhelfen könnte.

Mfg Hans
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
001
17.11.2005, 08:27 Uhr
ao

(Operator)


Das ist ne Pascalfrage

ao
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
002
17.11.2005, 11:10 Uhr
hans822



richtig aber man muss auch c können um zu wissen was mit getch(); gemeint ist
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
003
17.11.2005, 12:40 Uhr
ao

(Operator)



Zitat von hans822:
richtig aber man muss auch c können um zu wissen was mit getch(); gemeint ist

Es soll ja Pascal-Programmierer geben, die außerdem auch richtige Sprachen können (duck und wech).

Zitat:
Also ich will in Pascal das ein eingegebener Wert direkt einer Variablen zugeordnet wird ohne das ich erst auf enter drücken muss.

Ich finde, die Frage ist eindeutig, auch ohne Wissen um getch. Außerdem ist die Lösung in Pascal gesucht, daher Pascal-Forum.

Oder fragst du auch im Golf-GTI-Forum nach, wie du deinen Opel Manta tieferlegst? Antwort der Golfjungs: Vor einem Panzer parken.

ao
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
004
17.11.2005, 16:03 Uhr
typecast
aka loddab
(Operator)



Code:
var
   ch : Char;
begin
  ch := readkey;
end



Sollte das gewuenschte Ergebnis liefern *denk*
--
All parts should go together without forcing. ... By all means, do not use a hammer. (IBM maintenance manual, 1925)
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
005
17.11.2005, 20:51 Uhr
hans822



Also hab das programm jetzt mal geschrieben für das ich das readkey verwenden möchte aber der Compiler bemängelt stets readkey mit "Error:Identifier not found: READKEY".

Eine Idee woran es liegen könnt?

Das Programm sieht so aus:

program umwandlungvomdualinsoktalsystem (Input,Output);
var i,p,summe,b:Integer;
dualzahl:array[0..30]of integer;
feld:array[0..30]of integer;
begin
writeln('Bitte geben Sie ihre Dualzahl ein');
i:=0;
writeln('Die Eingabe von 9 beendet die Eingabe: ');
writeln();
repeat
i:=i+1;
dualzahl[i]:=readkey;
until dualzahl[i]=9;

i:=i-1;
writeln();
p:=0;
repeat
summe:=0;
for b:=0 to 3 do
begin
dualzahl[i]:=dualzahl[i]*exp(b*ln(2));
b:=b+1;
i:=i-1;
summe:=summe+dualzahl[i];
end;
feld[p]:=summe;
p:=p+1

until i=0;

repeat
writeln('',feld[p]);
p:=p-1;
until p=0;

readln()
end.


 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
006
17.11.2005, 20:53 Uhr
hans822



So jetzt nochmal übersichtlich:


Code:

program umwandlungvomdualinsoktalsystem (Input,Output);
var i,p,summe,b:Integer;
    dualzahl:array[0..30]of integer;
    feld:array[0..30]of integer;
begin
          writeln('Bitte geben Sie ihre Dualzahl ein');
          i:=0;
          writeln('Die Eingabe von 9 beendet die Eingabe: ');
          writeln();
          repeat
                i:=i+1;
                dualzahl[i]:=readkey;
          until dualzahl[i]=9;

          i:=i-1;
          writeln();
          p:=0;
          repeat
                summe:=0;
                for b:=0 to 3 do
                begin
                      dualzahl[i]:=dualzahl[i]*exp(b*ln(2));
                      b:=b+1;
                      i:=i-1;
                      summe:=summe+dualzahl[i];
                end;
                feld[p]:=summe;
                p:=p+1

          until i=0;

          repeat
                writeln('',feld[p]);
                p:=p-1;
          until p=0;

          readln()
end.


 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
007
18.11.2005, 19:14 Uhr
Uwe
C/C++ Master
(Administrator)


Hallo

Code:
uses crt;

--
"Es ist schwierig, ein Programm wirklich idiotensicher zu machen, weil Idioten so genial sind."

Bis dann...
Uwe
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
008
18.11.2005, 19:35 Uhr
hans822




Code:

program umwandlungvomdualinsoktalsystem (Input,Output);

uses crt;

var i,p,summe,b:Integer;
    dualzahl:array[0..30]of integer;
    feld:array[0..30]of integer;
begin
          writeln('Bitte geben Sie ihre Dualzahl ein');
          i:=0;
          writeln('Die Eingabe von 9 beendet die Eingabe: ');
          writeln();
          repeat
                i:=i+1;
                dualzahl[i]:=readkey; :twisted:  hier bringt er "incompatible types got char  expected longinteger"
          until dualzahl[i]=9;

          i:=i-1;
          writeln();
          p:=0;
          repeat
                summe:=0;
                for b:=0 to 3 do
                begin
                      dualzahl[i]:=dualzahl[i]*exp(b*ln(2)); :twisted: hier bringt er auch "incompatible types got S80Real expected longinteger" aber warum ich mein in dualzahl[i] steht doch lediglich ne 1 oder ne 0 als was soll das und multipliziert wird es auch höchsten mit 2^3. Das is doch noch lange keine longint.
                      b:=b+1;
                      i:=i-1;
                      summe:=summe+dualzahl[i];
                end;
                feld[p]:=summe;
                p:=p+1

          until i=0;

          repeat
                writeln('',feld[p]);
                p:=p-1;
          until p=0;

          readln()
end.


 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
009
18.11.2005, 19:39 Uhr
hans822



P.S. danke aber schon einmal für das uses crt; damit nimmt er immerhin schon einmal den readkey ohne die fehlermeldung mit dem "Identifier not found"
 
Profil || Private Message || Suche Download || Zitatantwort || Editieren || Löschen || IP
Seiten: > 1 < [ 2 ]     [ Delphi / Kylix / Turbo Pascal ]  


ThWBoard 2.73 FloSoft-Edition
© by Paul Baecher & Felix Gonschorek (www.thwboard.de)

Anpassungen des Forums
© by Flo-Soft (www.flo-soft.de)

Sie sind Besucher: