INSERT (substr:string;varSTR:string;pos:byte);
ExemploFrase:=‘Curso de informática’);
Insert (‘Micro’;Frase;10)
Witel (frase);
Val (str:sring;var num :integer/read var erro:integer);
Exemplo
Codigo:=‘017348’;
Val(codigo,numeracao,erro);
Writeln (numero);
Writeln (erro);
0 comentários:
Postar um comentário