Conversação de visualG

lourivan · 16 de setembro de 2012

ola galerinha nerd. eu criei um tópico anterior pedindo ajuda com o visualg e tal. o Brother Simon Viegas me pediu pra publicar o trabalho que fiz com visualg

segue o link:-- http://forum.clubedohardware.com.br/criacao-contador-duvida/1077521

segue o código que usei no visualg

algoritmo "Contador de Leucócitos"
// Função :contar leucocitos
// Autor : lourivan rodrigues da luz
// Data : 15/09/2012
// Seção de Declarações
var
NT, M, LA, LT, BA, EO, NE, BS, NUMERO:real
inicio
escreval (" Quantidade de Células à contar:")
leia (NT)// Seção de Comandos
escreval ("1-Monócito, 2-Linfócito atípico, 3-Linfócito típico, 4-Basófilo")
escreval ("5-Esosinófilo, 6-Neutrófilo, 7-Bastonete ")
M:= 0
LA:=0
LT:=0
BA:=0
EO:=0
NE:=0
BS:=0
repita
   escreval ("Contando" )
   leia (NUMERO)

   se NUMERO = 1 então
      M:=M+1
      NT:=NT-1
   fimse
   se NUMERO = 2 então
      LA:=LA+1
      NT:=NT-1
   fimse
   se NUMERO = 3 então
      LT:=LT+1
      NT:=NT-1
   fimse
   se NUMERO = 4  então
      BA:=BA+1
      NT:=NT-1
   fimse
   se NUMERO = 5 então
      EO:=EO+1
      NT:=NT-1
   fimse
   se NUMERO = 6 então
      NE:=NE+1
      NT:=NT-1
   fimse
   se NUMERO = 7 então
      BS:=BS+1
      NT:=NT-1
   fimse
ate NT = 0
limpatela
escreval ("resultado")
escreval ("Monócito:",(M),".")
escreval ("Linfócito atípico:",(LA),".")
escreval ("Linfócito típico:",(LT),".")
escreval ("Basófilo:",(BA),".")
escreval ("Esosinófilo:",(EO),".")
escreval ("Neutrófilo:",(NE),".")
escreval ("Bastonete:",(BS),".")
fimalgoritmo

eu também olhei o Delphi pra mim usar ele me pareceu complicado. mas tem os recursos que eu preciso.

como eu disse eu aprendo rápido então qualquer coisa que você me passar eu agradeço.

abraço a todos.

UPDATE

nossa olhando algumas coisas na internet achei no programa visualg uma ferramenta pra você mudar pra pascal.=}

agora com esse codigo eu posso fazer alguma coisa no java ? botões atalhos e outras coisas ?

Simon Viegas · 17 de setembro de 2012

Olá lourivan.

Vamos lá:

1) Conversão de código de VisuALG (portugol?) para Pascal

ola galerinha nerd. eu criei um tópico anterior pedindo ajuda com o visualg e tal. o Brother Simon Viegas me pediu pra publicar o trabalho que fiz com visualg
segue o link:-- http://forum.clubedohardware.com.br/criacao-contador-duvida/1077521

segue o código que usei no visualg

algoritmo "Contador de Leucócitos"

// Função :contar leucocitos

// Autor : lourivan rodrigues da luz

// Data : 15/09/2012

// Seção de Declarações

var

NT, M, LA, LT, BA, EO, NE, BS, NUMERO:real

inicio

escreval (" Quantidade de Células à contar:")

leia (NT)// Seção de Comandos

escreval ("1-Monócito, 2-Linfócito atípico, 3-Linfócito típico, 4-Basófilo")

escreval ("5-Esosinófilo, 6-Neutrófilo, 7-Bastonete ")

M:= 0

LA:=0

LT:=0

BA:=0

EO:=0

NE:=0

BS:=0

repita

escreval ("Contando" )

leia (NUMERO)

se NUMERO = 1 então

M:=M+1

NT:=NT-1

fimse

se NUMERO = 2 então

LA:=LA+1

NT:=NT-1

fimse

se NUMERO = 3 então

LT:=LT+1

NT:=NT-1

fimse

se NUMERO = 4 então

BA:=BA+1

NT:=NT-1

fimse

se NUMERO = 5 então

EO:=EO+1

NT:=NT-1

fimse

se NUMERO = 6 então

NE:=NE+1

NT:=NT-1

fimse

se NUMERO = 7 então

BS:=BS+1

NT:=NT-1

fimse

ate NT = 0

limpatela

escreval ("resultado")

escreval ("Monócito:",(M),".")

escreval ("Linfócito atípico:",(LA),".")

escreval ("Linfócito típico:",(LT),".")

escreval ("Basófilo:",(BA),".")

escreval ("Esosinófilo:",(EO),".")

escreval ("Neutrófilo:",(NE),".")

escreval ("Bastonete:",(BS),".")

fimalgoritmo

[...]

UPDATE

nossa olhando algumas coisas na internet achei no programa visualg uma ferramenta pra você mudar pra pascal.=}

agora com esse codigo eu posso fazer alguma coisa no java ? botões atalhos e outras coisas ?

Realmente, como você comenta, o próprio VisuALG tem uma ferramenta para gerar o código em Pascal. . Não é perfeita, mas muito eficiente.

De qualquer forma, converti (peguei a conversão do VisuALG ) e aproveitei e fiz algumas modificações. Abaixo o código:

[color=#008000]{ Função :Contador Leucocitos}[/color]
[color=#008000]{ Autor :Lourivan Rodrigues Da Luz}[/color]
[color=#008000]{ Data :15/09/2012}[/color]
[color=#008000]{ Editado:17/09/2012 [SV] - Simon Viegas}[/color]

[color=#008000]//OBS.:[/color]
[color=#008000]//- O Pascal não tabalha muito bem com caracteres especias (acentos e afins), daí por enquanto os removi alguns.[/color]
[color=#0000ff]uses[/color]
CRT[color=#000000];[/color] [color=#008000]//carrega comandos extras como ClrScr, ReadKey, TextColor, TextBackGround etc.[/color]
[color=#0000ff]var[/color]
NUMERO [color=#000000]:[/color][color=#0000ff]integer[/color][color=#000000];[/color]
MO[color=#000000],[/color] LA[color=#000000],[/color] LT[color=#000000],[/color] BA[color=#000000],[/color] EO[color=#000000],[/color] NE[color=#000000],[/color] BS [color=#000000]:[/color][color=#0000ff]integer[/color][color=#000000];[/color] [color=#008000]//separei no NUMERO, pois são um grupo diferente de variáveis, mas poderia ficar juntos[/color]

[color=#0000ff]BEGIN[/color]
[color=#ff0080]TextColor[/color][color=#000000]([/color]white[color=#000000]);[/color] [color=#008000]//white = 15 = código referente a cor branca (mais fluorescente que a normal)[/color]
[color=#008000]//INICIALIZANDO AS VARIÁVEIS[/color]
MO[color=#000000]:=[/color][color=#ff8000]0[/color][color=#000000];[/color] LA[color=#000000]:=[/color][color=#ff8000]0[/color][color=#000000];[/color] LT[color=#000000]:=[/color][color=#ff8000]0[/color][color=#000000];[/color] BA[color=#000000]:=[/color][color=#ff8000]0[/color][color=#000000];[/color] EO[color=#000000]:=[/color][color=#ff8000]0[/color][color=#000000];[/color] NE[color=#000000]:=[/color][color=#ff8000]0[/color][color=#000000];[/color] BS[color=#000000]:=[/color][color=#ff8000]0[/color][color=#000000];[/color]
[color=#0000ff]repeat[/color]
ClrScr[color=#000000];[/color] [color=#008000]//limpar a tela[/color]
[color=#ff0080]TextColor[/color][color=#000000]([/color][color=#ff8000]14[/color][color=#000000]);[/color] [color=#008000]//14 = código correspondente a cor amarela (yellow)[/color]
writeln[color=#000000];[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' CONTADOR DE CELULAS LEUCOCITARIAS '[/color][color=#000000]);[/color]
writeln[color=#000000];[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' ----------------------------------- '[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' | Monocito ______________ '[/color][color=#000000],([/color]MO[color=#000000]),[/color][color=#a31515]' |'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' | Linfocito atipico _____ '[/color][color=#000000],([/color]LA[color=#000000]),[/color][color=#a31515]' |'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' | Linfocito tipico ______ '[/color][color=#000000],([/color]LT[color=#000000]),[/color][color=#a31515]' |'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' | Basofilo ______________ '[/color][color=#000000],([/color]BA[color=#000000]),[/color][color=#a31515]' |'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' | Esosinofilo ___________ '[/color][color=#000000],([/color]EO[color=#000000]),[/color][color=#a31515]' |'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' | Neutrofilo ____________ '[/color][color=#000000],([/color]NE[color=#000000]),[/color][color=#a31515]' |'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' | Bastonete _____________ '[/color][color=#000000],([/color]BS[color=#000000]),[/color][color=#a31515]' |'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' ------------------------------------ '[/color][color=#000000]);[/color]
[color=#ff0080]TextColor[/color][color=#000000]([/color][color=#ff8000]15[/color][color=#000000]);[/color]
writeln[color=#000000];[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' TABELA DE GRUPOS '[/color][color=#000000]);[/color]
writeln[color=#000000];[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' 1-Monocito 2-Linfocito atipico 3-Linfocito tipico'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' 4-Basofilo 5-Esosinofilo 6-Neutrofilo 7-Bastonete '[/color][color=#000000]);[/color]
writeln[color=#000000];[/color]
LowVideo[color=#000000];[/color] [color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' 0 - SAIR'[/color][color=#000000]);[/color] HighVideo[color=#000000];[/color] [color=#008000]//LowVideo = tela mais escura e HighVideo = tela mais clara[/color]
writeln[color=#000000];[/color]
[color=#ff0080]write[/color] [color=#000000]([/color][color=#a31515]'Grupo : '[/color] [color=#000000]);[/color] [color=#ff0080]readln[/color] [color=#000000]([/color]NUMERO[color=#000000]);[/color] [color=#008000]//esse readln poderia ficar embaixo, está ai só para enfatizar que está na linha do white[/color]
[color=#0000ff]case[/color] NUMERO [color=#0000ff]of[/color] [color=#008000]//o case (caso) é uma versão mis sofisticada e simples do if (se/senao).[/color]
[color=#ff8000]0[/color] [color=#000000]:[/color][color=#ff0080]write[/color] [color=#000000]([/color][color=#a31515]'FIM DO PROGRAMA'[/color][color=#000000]);[/color]
[color=#ff8000]1[/color] [color=#000000]:[/color]MO[color=#000000]:=[/color]MO[color=#000000]+[/color][color=#ff8000]1[/color][color=#000000];[/color]
[color=#ff8000]2[/color] [color=#000000]:[/color]LA[color=#000000]:=[/color]LA[color=#000000]+[/color][color=#ff8000]1[/color][color=#000000];[/color]
[color=#ff8000]3[/color] [color=#000000]:[/color]LT[color=#000000]:=[/color]LT[color=#000000]+[/color][color=#ff8000]1[/color][color=#000000];[/color]
[color=#ff8000]4[/color] [color=#000000]:[/color]BA[color=#000000]:=[/color]BA[color=#000000]+[/color][color=#ff8000]1[/color][color=#000000];[/color]
[color=#ff8000]5[/color] [color=#000000]:[/color]EO[color=#000000]:=[/color]EO[color=#000000]+[/color][color=#ff8000]1[/color][color=#000000];[/color]
[color=#ff8000]6[/color] [color=#000000]:[/color]NE[color=#000000]:=[/color]NE[color=#000000]+[/color][color=#ff8000]1[/color][color=#000000];[/color]
[color=#ff8000]7[/color] [color=#000000]:[/color]BS[color=#000000]:=[/color]BS[color=#000000]+[/color][color=#ff8000]1[/color][color=#000000];[/color]
[color=#0000ff]end[/color][color=#000000];[/color] [color=#008000]//fim case[/color]
[color=#0000ff]until[/color] NUMERO [color=#000000]=[/color] [color=#ff8000]0[/color][color=#000000];[/color]
ReadKey[color=#000000];[/color] [color=#008000]//aguarda um tecla ser pressionada. (evita que o programa feche sozinho[/color]
[color=#0000ff]end[/color][color=#000000].[/color]
[color=#0000ff]program[/color] Contador_de_Leucocitos[color=#000000];[/color]  [color=#008000]//aqui não aceita caracteres especiais como acentos.[/color]

2) Conversão para outra linguagem com interface gráfica

eu também olhei o Delphi pra mim usar ele me pareceu complicado. mas tem os recursos que eu preciso.
como eu disse eu aprendo rápido então qualquer coisa que você me passar eu agradeço.

Então, realmente dá para fazer em Delphi essa opção de interface gráfica, mas ai deixo para os colegas, já que não programo em Delphi. A outra opção que comentei seria o Java (tem outras, é claro). Nele eu já teria pelo menos a minha ajuda.

3) Versão com outro recursos

Ai é só comparar um com o outro.

[color=#008000]{ Função :Contador Leucocitos}[/color]
[color=#008000]{ Autor :Lourivan Rodrigues Da Luz}[/color]
[color=#008000]{ Data :15/09/2012}[/color]
[color=#008000]{ Editado:17/09/2012 [SV] - Simon Viegas}[/color]

[color=#0000ff]uses[/color]
CRT[color=#000000];[/color] [color=#008000]//carrega comandos extras como ClrScr, ReadKey, TextColor, TextBackGround etc.[/color]
[color=#0000ff]var[/color]
NUMERO [color=#000000]:[/color][color=#0000ff]char[/color][color=#000000];[/color] [color=#008000]//char = um caractere (para poder usar no ReadKey)[/color]
i [color=#000000]:[/color][color=#0000ff]char[/color][color=#000000];[/color]
[color=#008000]//MO, LA, LT, BA, EO, NE, BS :integer;[/color]
grupos [color=#000000]:[/color][color=#0000ff]array[/color][color=#000000][[/color][color=#a31515]'1'[/color][color=#000000]..[/color][color=#a31515]'7'[/color][color=#000000]][/color] [color=#0000ff]of[/color] [color=#0000ff]integer[/color][color=#000000];[/color] [color=#008000]//1-MO, 2-LA, 3-LT, 4-BA, 5-EO, 6-NE e 7-BS[/color]

[color=#0000ff]BEGIN[/color]
[color=#ff0080]TextColor[/color][color=#000000]([/color][color=#ff8000]15[/color][color=#000000]);[/color] [color=#008000]//15 = branco[/color]
[color=#008000]//INICIALIZANDO AS VARIÁVEIS[/color]
[color=#0000ff]for[/color] i[color=#000000]:=[/color][color=#a31515]'1'[/color] [color=#0000ff]to[/color] [color=#a31515]'7'[/color] [color=#0000ff]do[/color]
grupos[color=#000000][[/color][color=#a31515]'i'[/color][color=#000000]]:=[/color][color=#ff8000]0[/color][color=#000000];[/color]
[color=#0000ff]repeat[/color]
ClrScr[color=#000000];[/color] [color=#008000]//limpar a tela[/color]
[color=#ff0080]TextColor[/color][color=#000000]([/color][color=#ff8000]14[/color][color=#000000]);[/color] [color=#008000]//14 = código correspondente a cor amarela (yellow)[/color]
writeln[color=#000000];[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' CONTADOR DE CELULAS LEUCOCITARIAS '[/color][color=#000000]);[/color]
writeln[color=#000000];[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' ----------------------------------- '[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' | Monocito ______________ '[/color][color=#000000],([/color]grupos[color=#000000][[/color][color=#a31515]'1'[/color][color=#000000]]):[/color][color=#ff8000]3[/color][color=#000000],[/color][color=#a31515]' |'[/color][color=#000000]);[/color] [color=#008000]//:X = X casas reservadas a esquerda (alinha a direita e X casas)[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' | Linfocito atipico _____ '[/color][color=#000000],([/color]grupos[color=#000000][[/color][color=#a31515]'2'[/color][color=#000000]]):[/color][color=#ff8000]3[/color][color=#000000],[/color][color=#a31515]' |'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' | Linfocito tipico ______ '[/color][color=#000000],([/color]grupos[color=#000000][[/color][color=#a31515]'3'[/color][color=#000000]]),[/color][color=#a31515]' |'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' | Basofilo ______________ '[/color][color=#000000],([/color]grupos[color=#000000][[/color][color=#a31515]'4'[/color][color=#000000]]),[/color][color=#a31515]' |'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' | Esosinofilo ___________ '[/color][color=#000000],([/color]grupos[color=#000000][[/color][color=#a31515]'5'[/color][color=#000000]]),[/color][color=#a31515]' |'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' | Neutrofilo ____________ '[/color][color=#000000],([/color]grupos[color=#000000][[/color][color=#a31515]'6'[/color][color=#000000]]),[/color][color=#a31515]' |'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' | Bastonete _____________ '[/color][color=#000000],([/color]grupos[color=#000000][[/color][color=#a31515]'7'[/color][color=#000000]]),[/color][color=#a31515]' |'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' ------------------------------------ '[/color][color=#000000]);[/color]
[color=#ff0080]TextColor[/color][color=#000000]([/color][color=#ff8000]15[/color][color=#000000]);[/color]
writeln[color=#000000];[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' TABELA DE GRUPOS '[/color][color=#000000]);[/color]
writeln[color=#000000];[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' 1-Monocito 2-Linfocito atipico 3-Linfocito tipico'[/color][color=#000000]);[/color]
[color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' 4-Basofilo 5-Esosinofilo 6-Neutrofilo 7-Bastonete '[/color][color=#000000]);[/color]
writeln[color=#000000];[/color]
LowVideo[color=#000000];[/color] [color=#ff0080]writeln[/color] [color=#000000]([/color][color=#a31515]' 0 - SAIR'[/color][color=#000000]);[/color] HighVideo[color=#000000];[/color] [color=#008000]//LowVideo = tela mais escura e HighVideo = tela mais clara[/color]
writeln[color=#000000];[/color]
[color=#ff0080]write[/color] [color=#000000]([/color][color=#a31515]'Grupo : '[/color] [color=#000000]);[/color]
NUMERO[color=#000000]:=[/color]ReadKey[color=#000000];[/color] [color=#008000]//ReadKey = retornar a tecla pressiona nele mesmo[/color]
[color=#ff0080]write[/color] [color=#000000]([/color]NUMERO[color=#000000]);[/color]
[color=#0000ff]case[/color] NUMERO [color=#0000ff]of[/color] [color=#008000]//NUMERO agora é um char, logo precisa de ' ' (entre aspas simples).[/color]
[color=#a31515]'1'[/color][color=#000000],[/color][color=#a31515]'2'[/color][color=#000000],[/color][color=#a31515]'3'[/color][color=#000000],[/color][color=#a31515]'4'[/color][color=#000000],[/color][color=#a31515]'5'[/color][color=#000000],[/color][color=#a31515]'6'[/color][color=#000000],[/color][color=#a31515]'7'[/color] [color=#000000]:[/color][color=#0000ff]begin[/color]
[color=#ff0080]inc[/color][color=#000000]([/color]grupos[color=#000000][[/color]NUMERO[color=#000000]]);[/color] [color=#008000]//o mesmo que "grupos[NUMERO]:=grupos[NUMERO]+1"[/color]
[color=#ff0080]TextColor[/color][color=#000000]([/color][color=#ff8000]10[/color][color=#000000]);[/color] [color=#ff0080]write[/color] [color=#000000]([/color][color=#a31515]' Processando...'[/color][color=#000000]);[/color] [color=#ff0080]TextColor[/color][color=#000000]([/color][color=#ff8000]15[/color][color=#000000]);[/color]
[color=#ff0080]Delay[/color][color=#000000]([/color][color=#ff8000]500[/color][color=#000000]);[/color] [color=#008000]//espera em milisegundos[/color]
[color=#0000ff]end[/color][color=#000000];[/color]
[color=#a31515]'0'[/color] [color=#000000]:[/color][color=#0000ff]begin[/color]
writeln[color=#000000];[/color]
writeln[color=#000000];[/color]
[color=#ff0080]write[/color] [color=#000000]([/color][color=#a31515]' FIM DO PROGRAMA'[/color][color=#000000]);[/color]
[color=#0000ff]end[/color][color=#000000];[/color]
[color=#0000ff]else[/color]
[color=#0000ff]begin[/color]
writeln[color=#000000];[/color]
writeln[color=#000000];[/color]
[color=#ff0080]TextColor[/color][color=#000000]([/color][color=#ff8000]4[/color][color=#000000]);[/color] [color=#ff0080]write[/color] [color=#000000]([/color][color=#a31515]' Opcao invalida'[/color][color=#000000]);[/color] [color=#ff0080]TextColor[/color][color=#000000]([/color][color=#ff8000]15[/color][color=#000000]);[/color]
ReadKey[color=#000000];[/color]
[color=#0000ff]end[/color][color=#000000];[/color]
[color=#0000ff]end[/color][color=#000000];[/color] [color=#008000]//fim case[/color]
[color=#0000ff]until[/color] NUMERO [color=#000000]=[/color] [color=#a31515]'0'[/color][color=#000000];[/color]
ReadKey[color=#000000];[/color] [color=#008000]//aguarda um tecla ser pressionada. (evita que o programa feche sozinho[/color]
[color=#0000ff]END[/color][color=#000000].[/color]
[color=#0000ff]program[/color] Contador_de_Leucocitos[color=#000000];[/color]  [color=#008000]//aqui não aceita caracteres especiais como acentos.[/color]

***

Em fim, dá para ir modificando esse programa se quiser. Se for o caso, dá também par implementar, por exemplo, um recurso para salvar o resultado texto...

PS: Caso deseje implementar em Java, dê você os passos iniciais. Você pode tentar simplesmente implementar uma "conversão", ou seja, criar uma classe (lá é assim) que apenas seja uma tradução de um desses códigos. Falo isso, pois em Java, como já comentei, a forma de programa é diferente do Pascal e VisuALG, que é "procedural". Mas dá também para programar como se fosse procedural também, daí aos poucos íamos inserindo os conceitos de Orientação a Objetos e as características da interface gráfica.

RESUMIDAMENTE

Implementa o código em Java de modo tradicional e depois ajustamos. Desta vez o passo inicial para converter será seu.

PS2: Cada linguagem possui um fórum diferente. Logo, se tiver dúvidas no código em Pascal, poste aqui, se em VisuALG, lá em iniciantes, se em Java, posta em Java. Cada um no seu quadrado. Trate as postagens de forma independente entre si.

No aguardo.

Abraços