Erro em pascal

[rodrigosousars 0]

ola pessoal estamos fazendo um codigo que exiba numeros por extenso .. valores em reais ex eu digito 21 ai abaixo aparece Vinte e um Reais .. pegamos um codigo mas o mesmo aparece um erro o que pode ta errado? se alquem souber de um sisteminha desse por favor publiquem

 

o codigo e esse ( estamos usando o pascal zim )

 

(ele da o seguinte erro)

 

=>Erro Sintático na linha 84

=>MIL não esperado

 

detalhe a linha 84 e essa

-----------------------

dez[2] := dois mil;

-----------------------

 

:(

 

veja o codigo abaixo:

 

program nome_ext;

var
uni: Array[1..9] of String;
dez: Array[1..19] of String;
cen: Array[1..9] of String;
ext: Array[1..18] of String;

Num: String;
c, x, un, cn, dz: integer; 

begin
  write ('Digite o número(entre 0 e 100.000): ');
  read (n) ; 

    if(n>0) and (n<10) then
    uni:= num;

    Case uni of

1: uni[1] := um;
    2: uni[2] := dois;
    3: uni[3] := tres;
    4: uni[4] := quatro;
    5: uni[5] := cinco;
    6: uni[6] := seis;
    7: uni[7] := sete;
    8: uni[8] := oito;
    9: uni[9] := nove;

   end;

   if(n>9) and (n<100) then

   ext:= num;

   Case d of
    1: ext[10] := dez;
    2: ext[1] := onze;
    3: ext[2] := doze;
    4: ext[3] := treze;
    5: ext[4] := quatorze;
    6: ext[5] := quinze;
    7: ext[6] := dezesseis;
    8: ext[7] := dezessete;
    9: ext[8] := dezoito;
    10:ext[9] := dezenove;
    11:ext[11] := vinte;
    12:ext[12] := trinta;
    13:ext[13] := quarenta;
    14:ext[14] := cinquenta;
    15:ext[15] := sessenta;
    16:ext[16] := setenta;
    17:ext[17] := oitenta;
    18:ext[18] := noventa;

   end;


   if(n>=100) and (n<1000) then

   cn:=num;

   case cn of

    1:cen[1] := cento;
    2:cen[2] := duzentos;
    3:cen[3] := trezentos;
    4:cen[4] := quatrocentos;
    5:cen[5] := quinhentos;
    6:cen[6] := seiscentos;
    7:cen[7] := setecentos;
    8:cen[8] := oitocentos;
    9:cen[9] := novecentos;

   end;


   if (n>=1000) and (n<=100.000) then

   dez:=num;

   dez[1] := mil;
   dez[2] := dois mil;
   dez[3] := tres mil;
   dez[4] := quatro mil;
   dez[5] := cinco mil;
   dez[6] := seis mil:
   dez[7] :=sete mil;
   dez[8] := oito mil;
   dez[9] := nove mil;
   dez[10]:= dez mil;
   dez[11]:= vinte mil;
   dez[12]:= trinta mil;
   dez[13]:= quarenta mil;
   dez[14]:= cinquenta mil;
   dez[15]:= sessenta mil;
   dez[16]:= setenta mil;
   dez[17]:= oitenta mil;
   dez[18]:= noventa mil;
   dez[19]:= cem mil

   end;
write (num);

   End



End.

[Joffre Mota 0]

Não sei nada de Pascal, mas não estaria faltando aspas para informar o que está sendo atribuído à String?

[guidjos 65]

Por que postou nesta seção?

[rodrigosousars 0]

Por que postou nesta seção?

 

essa pergunta e para mim ? que postou o topico? ou e para o sr Joffre Mota que respondeu

[quitZAUMMM 18]

O erro foi resolvido?

Geralmente como não temos um fórum específico para essa linguagem algumas pessoas postam ou aqui ou em "Outras Linguagens de Programação", no seu caso irei mover o tópico, pois o erro é de programação e não na lógica em si.

 

[]s

[rodrigosousars 0]

e o erro nao foi resolvido .. e nao tem topico para esse assunto ai eu posto aqui .. como você disse tem outro topico outras linguagem de programaçao fui movido para la ne .. ok obrigado

[Joffre Mota 0]

Não sei nada de Pascal, mas não estaria faltando aspas para informar o que está sendo atribuído à String?

 

Não é por conta disso não?

 

Pascal tem opção de Debug? Se sim, tente fazê-lo.

[Fernando Gyn 0]

bom esse seu trabalho de faculdade inclui centavos?

 

bom seu código tem muitas coisas erradas.

 

bom vamos listar algumas:

 

read(n) - lendo variável sem declarar.

uni:= num;- de onde vem esse num

uni não e array então deveria passar a chave tipo uni[1]

 

entre outros qual compilador esta usando.

[rodrigosousars 0]

estou usando pascal zim hehe

 

e um trablho de faculdade um dos primeiros trabalho do bimestre se souber de algum algoritimo com esse objetivo de converter numeros em extensso ficarei grato..

[quitZAUMMM 18]

http://www.google.com.br/#sclient=psy&hl=pt-BR&source=hp&q=como+converter+numeros+por+extenso+em+pascal&aq=f&aqi=&aql=&oq=&pbx=1&bav=on.2,or.r_gc.r_pw.&fp=c91668ea636eabcf&biw=1317&bih=657