Read Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Inhaltsverzeichnis 1 Beschreibung 2 Deklaration 3 Beispiele 4 1.Beispiel 5 2.Beispiel

Beschreibung

In die als Argument gegebene Variable werden Daten des Variablentyps gelesen.

Deklaration

procedure read(Argument/Variable);

Beispiele

1.Beispiel

var s:string;
 
Begin
   write('Geben Sie ihren Namen ein!');
   read(s); (*Da Die Variable den Typ String hat, wird ein String eingelesen*)
   ClrScr;
   writeln('Sie heissen: ', s);
End.

2.Beispiel

var x,y,i:integer;

Begin.
   write('Geben Sie bitte x an:  ');
   read(x);
   write('Geben Sie bitte y an:  ');
   read(y);
   clrscr;
   i:=0;
   if x>y then 
            Begin  
               repeat
                  begin
                     inc(y);
                     inc(i);
                  end;
               until x=y;
              write('y war um ',i,'kleiner als x');
            End;
    if x<y then 
            Begin  
               repeat
                  begin
                     inc(x);
                     inc(i);
                  end;
               until x=y
              write('x war um ',i,'kleiner als y');  
            End;
End.

--JimWayne 23:26, 9. Feb 2006 (CET)