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' } end.

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

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.