Informatika 2023-24: Str prozedura

2024(e)ko martxoaren 8(a), ostirala

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. 