Str prozedura

procedure str(Zenbakia: integer/real; var Katea: StringDatuMota);

Helburua: zenbaki batetik abiatuta dagokion katea lortzea.

Emaitza: kate bat, hasierako zenbakia kate bezala adierazita.

program StrAdibidea; { Str prozedura erakusten duen programa } var   rZbk: real;   iZbk: integer;   sEsaldia: string; begin   rZbk := 9.5E-02;   str(rZbk, sEsaldia); { sEsaldia:='9.5E-02' }   str(rZbk:7:4, sEsaldia); { sEsaldia:=' 0.0950' }  str(rZbk:0:4, sEsaldia); { sEsaldia:='0.0950' }     iZbk := -38;   str(iZbk, sEsaldia);   { sEsaldia:='-38' }   str(iZbk:5, sEsaldia); { sEsaldia:=' -38' }   readln; end.

program Str_adibidea;
type
   DM_KateLabur = string[5] ;
   DM_KateLuze = string[25] ;
var
   sEmaitzaLabur: DM_KateLabur ;
   sEmaitzaLuze: DM_KateLuze ;
   rZbk: real ;
begin
   rZbk := 89.1234 ;
   writeln('        rZbk: 89.1234') ;
   writeln ;

   str(rZbk:0:4, sEmaitzaLabur) ;
   writeln('  rZbk:0:4 ==>', sEmaitzaLabur, '<==') ;
   str(rZbk:0:4, sEmaitzaLuze) ;
   writeln('  rZbk:0:4 ==>', sEmaitzaLuze, '<==') ;
   writeln ;

   str(rZbk, sEmaitzaLabur) ;
   writeln('      rZbk ==>', sEmaitzaLabur, '<==') ;
   str(rZbk, sEmaitzaLuze) ;
   writeln('      rZbk ==>', sEmaitzaLuze, '<==') ;
   writeln ;

   str(rZbk:5, sEmaitzaLabur) ;
   writeln('    rZbk:5 ==>', sEmaitzaLabur, '<==') ;
   str(rZbk:5, sEmaitzaLuze) ;
   writeln('    rZbk:5 ==>', sEmaitzaLuze, '<==') ;
   writeln ;

   readln;
end.