Irwing Seiji Ato

Antes de instalar o Windows 10 tinha o Windows 7 e nele o CD/DVD funcionava normalmente, aparecia em dispositivos e unidades CD/DVD coisa que no Windows 10 não aparece CD/DVD

Eu acho que o cabo SATA está bem encaixado, pois quando clico no botão para abrir abre normalmente e as luzes acendem quando abre

Tenho um computador e nele está instalado Windows 10 possui CD e DVD, fiz todas as possíveis soluções da Microsoft que está nesse link https://support.microsoft.com/pt-br/help/314060/your-cd-or-dvd-drive-is-not-recognized-by-windows-or-other-programs e nenhuma delas funcionou, nem no gerenciador de dispositivos aparecia a unidade de CD/DVD, só aparecia quando clicava em Exibir, mostrar dispositivos ocultos, porém desinstalei o software do mesmo e não consegui reinstala-lo obviamente esse não era a solução do problema pois desinstalei e era para ele automaticamente reinstalar o driver, isso não aconteceu, e acho que mesmo com esse driver instalado novamente não iria funcionar, alguém sabe como resolver esse problema?

Uplay da Ubisoft não é pirateado é original é o giveaway da Ubisoft

Baixei está instalado roda mas depois ele sai do jogo sozinho não sei porque

As configurações do meu notebook são Windows 10 Home Language 64 bits Processador :Intel Core i7 8550U CPU 1,80 GHz (8 CPUs), ~ 2.0 GHz Memória RAM: 8192 MB RAM Placa Integrada: Intel UHD Graphics 620 Total Aprox. de memória: 4156 MB Memória de vídeo (VRAM): 128 MB Memória Compartilhada : 4028 MB Placa de vídeo dedicada: AMD Radeon 520 Total Aprox. Memória: 6068 MB Memória de vídeo: 2039 MB O notebook roda o jogo?

adicionado 5 minutos depois Não sei porque dá negativo quando colocar int(exp(base,i-1)) mas o base10 tem que ser real porque senão não aceita dá um erro http://www.apoioinformatica.inf.br/produtos/item/30-as-funcoes-do-visualg-versao-2-0 Exp( base, expoente) - Retorna o valor de base elevado a expoente, sendo ambos expressões do tipo real.

Atualizei o código e ficou assim o se e o senão, porém se colocar no código int(exp(base,i-1) retorna um valor negativo tem que ser exp(base,i-1) somente isso se for int(exp(base,i-1) aparece negativo Var // Seção de Declarações das variáveis sequencia:vetor [1..8] de caractere i, base:inteiro base10 : real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Digite qual a base") leia(base) para i de 8 ate 1 passo -1 faca escreval("Digite o número",i) leia(sequencia[i]) fimpara para i de 1 ate 8 faca se sequencia[i] = "A" entao base10 <- base10 + 10 * Exp(base, i-1) senao se sequencia[i] = "B" entao base10 <- base10 + 11 * Exp(base, i-1) senao se sequencia[i] = "C" entao base10 <- base10 + 12 * Exp(base, i-1) senao se sequencia[i] = "D" entao base10 <- base10 + 13 * Exp(base, i-1) senao se sequencia[i] = "E" entao base10 <- base10 + 14 * Exp(base, i-1) senao se sequencia[i] = "F" entao base10 <- base10 + 15 * Exp(base, i-1) senao se sequencia[i] = "0" entao base10 <- base10 + 0 * Exp(base, i-1) senao se sequencia[i] = "1" entao base10 <- base10 + 1 * Exp(base, i-1) senao se sequencia[i] = "2" entao base10 <- base10 + 2 * Exp(base, i-1) senao se sequencia[i] = "3" entao base10 <- base10 + 3 * Exp(base, i-1) senao se sequencia[i] = "4" entao base10 <- base10 + 4 * Exp(base, i-1) senao se sequencia[i] = "5" entao base10 <- base10 + 5 * Exp(base, i-1) senao se sequencia[i] = "6" entao base10 <- base10 + 6 * Exp(base, i-1) senao se sequencia[i] = "7" entao base10 <- base10 + 8 * Exp(base, i-1) senao se sequencia[i] = "8" entao base10 <- base10 + 8 * Exp(base, i-1) senao se sequencia[i] = "9" entao base10 <- base10 + 9 * Exp(base, i-1) fimse fimse fimse fimse fimse fimse fimse fimse fimse fimse fimse fimse fimse fimse fimse fimse fimpara escreval("Número na base 10",base10) O de ler de uma só vez não acho interessante vou deixar assim mesmo lendo 1 por 1

Acho que consegui segue o código Var // Seção de Declarações das variáveis sequencia:vetor [1..8] de caractere i, base, digitotraduzido:inteiro base10: real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Digite qual a base") leia(base) para i de 8 ate 1 passo -1 faca escreval("Digite o número",i) leia(sequencia[i]) fimpara para i de 1 ate 8 faca se sequencia[i] = "A" entao digitotraduzido <- 10 base10 <- base10 + digitotraduzido * exp(base, i-1) fimse se sequencia[i] = "B" entao digitotraduzido <- 11 base10 <- base10 + digitotraduzido * exp(base, i-1) fimse se sequencia[i] = "C" entao digitotraduzido <- 12 base10 <- base10 + digitotraduzido * exp(base, i-1) fimse se sequencia[i] = "D" entao digitotraduzido <- 13 base10 <- base10 + digitotraduzido * exp(base, i-1) fimse se sequencia[i] = "E" entao digitotraduzido <- 14 base10 <- base10 + digitotraduzido * exp(base, i-1) fimse se sequencia[i] = "F" entao digitotraduzido <- 15 base10 <- base10 + digitotraduzido * exp(base, i-1) fimse se sequencia[i] = "0" entao base10 <- base10 + 0 * exp(base, i-1) fimse se sequencia[i] = "1" entao base10 <- base10 + 1 * exp(base, i-1) fimse se sequencia[i] = "2" entao base10 <- base10 + 2 * exp(base, i-1) fimse se sequencia[i] = "3" entao base10 <- base10 + 3 * exp(base, i-1) fimse se sequencia[i] = "4" entao base10 <- base10 + 4 * exp(base, i-1) fimse se sequencia[i] = "5" entao base10 <- base10 + 5 * exp(base, i-1) fimse se sequencia[i] = "6" entao base10 <- base10 + 6 * exp(base, i-1) fimse se sequencia[i] = "7" entao base10 <- base10 + 8 * exp(base, i-1) fimse se sequencia[i] = "8" entao base10 <- base10 + 8 * exp(base, i-1) fimse se sequencia[i] = "9" entao base10 <- base10 + 9 * exp(base, i-1) fimse fimpara escreval("Número na base 10",base10)

Como ficaria o código então o meu está dando um monte de erros olhe o código como está Var // Seção de Declarações das variáveis sequencia:vetor [1..8] de inteiro i, base, digitotraduzido:inteiro base10: real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Digite qual a base") leia(base) para i de 8 ate 1 passo -1 faca escreval("Digite o número",i) leia(sequencia[i]) fimpara para i de 1 ate 8 faca se sequencia[i] = "A" entao digitotraduzido <- 10 fimse se sequencia[i] = "B" entao digitotraduzido <- 11 fimse se sequencia[i] = "C" entao digitotraduzido <- 12 fimse se sequencia[i] = "D" entao digitotraduzido <- 13 fimse se sequencia[i] = "E" entao digitotraduzido <- 14 fimse se sequencia[i] = "F" entao digitotraduzido <- 15 fimse se sequencia[i] = "0" entao base10 <- base10 + sequencia[i] * exp(base, i-1) fimse se sequencia[i] = "1" entao base10 <- base10 + sequencia[i] * exp(base, i-1) fimse se sequencia[i] = "2" entao base10 <- base10 + sequencia[i] * exp(base, i-1) fimse se sequencia[i] = "3" entao base10 <- base10 + sequencia[i] * exp(base, i-1) fimse se sequencia[i] = "4" entao base10 <- base10 + sequencia[i] * exp(base, i-1) fimse se sequencia[i] = "5" entao base10 <- base10 + sequencia[i] * exp(base, i-1) fimse se sequencia[i] = "6" entao base10 <- base10 + sequencia[i] * exp(base, i-1) fimse se sequencia[i] = "7" entao base10 <- base10 + sequencia[i] * exp(base, i-1) fimse se sequencia[i] = "8" entao base10 <- base10 + sequencia[i] * exp(base, i-1) fimse se sequencia[i] = "9" entao base10 <- base10 + sequencia[i] * exp(base, i-1) fimse fimpara escreval("Número na base 10",base10)

Sim mas o vetor seria caractere e dai não receberia números dai não funcionaria

Porque binário é somente 0 e 1 e a base octal vai de 0 a 7 adicionado 2 minutos depois Não tem como converter letras para número direto tipo usando se (int)sequencia[i] = "A" sequencia[i] <- 10 fimse se (int)sequencia[i] = "B" sequencia[i] <- 11 fimse assim não pode? adicionado 9 minutos depois se int (sequencia[i]) = "A" entao sequencia[i] <- 10 fimse se int (sequencia[i]) = "B" entao sequencia[i] <- 11 fimse se int (sequencia [i]) = "C" entao sequencia[i] <- 12 fimse se int (sequencia [i]) = "D" entao sequencia[i] <- 13 fimse se int (sequencia [i]) = "E" entao sequencia[i] <- 14 fimse se int (sequencia [i]) = "F" entao sequencia[i] <- 15 fimse fimpara fimse se int (sequencia [i]) = "F" entao sequencia[i] <- 15 fimse fimpara Deixa quieto não deu certo funciona porém não mostra os valores corretos

Porque o vetor só aceitaria letras acho que números não

Queria traduzir também as bases octais e binários se fizer essa modificação acho que não seria possível converter para essas bases para base 10

tentei fazer isso mas não deu certo Var // Seção de Declarações das variáveis sequencia:vetor[1..8] de inteiro i,base : inteiro base10 : real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Qual a base") leia(base) para i de 8 ate 1 passo -1 faca escreval("Digite número",i) leia(sequencia[i]) se(sequencia[i] = "A") entao sequencia[i] <- 10 fimse se (sequencia[i] = "B") entao sequencia[i] <- 11 fimse se (sequencia[i] = "C") entao sequencia[i] <- 12 fimse se (sequencia[i] = "D") entao sequencia[i] <- 13 fimse se (sequencia[i] = "E") entao sequencia[i] <- 14 fimse se (sequencia[i] = "F") entao sequencia[i] <- 15 fimse fimpara para i de 1 ate 8 faca base10 <- base10+ sequencia[i] * exp(base, i-1) fimpara escreval("Número base 10 :", base10) Fimalgoritmo O vetor só recebe valores inteiros, mas ele precisa receber também valores de caracteres como faço isso? adicionado 32 minutos depois Esse é o problema do código o vetor não pode receber dois valores do tipo caractere e inteiro e quando converto com se não consigo esse é o problema adicionado 46 minutos depois Dei uma modificada no código porém mostra um número diferente do que deveria ser segue o código Var // Seção de Declarações das variáveis sequencia:vetor[1..8] de inteiro i,base : inteiro base10 : real Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Qual a base") leia(base) para i de 8 ate 1 passo -1 faca escreval("Digite número",i) leia(sequencia[i]) se (carac(sequencia[i])) = "A" entao sequencia[i] <- 10 fimse se (carac(sequencia[i])) = "B" entao sequencia[i] <- 11 fimse se (carac(sequencia[i])) = "C" entao sequencia[i] <- 12 fimse se (carac(sequencia[i])) = "D" entao sequencia[i] <- 13 fimse se (carac(sequencia[i])) = "E" entao sequencia[i] <- 14 fimse se (carac(sequencia[i])) = "F" entao sequencia[i] <- 15 fimse fimpara para i de 1 ate 8 faca base10 <- base10 + sequencia[i] * exp (base, i-1) fimpara escreval("Número base 10 :", base10) Fimalgoritmo adicionado 54 minutos depois O problema está na conversão como faria essa conversão?

Consegui fazer de octal para base 10 e de binário para a base 10 porém de hexadecimal para a base está é o problema Segue o código abaixo. Como deveria fazer para converter de hexadecimal para base 10? Var // Seção de Declarações das variáveis sequencia:vetor[1..8] de inteiro i,base,base10 : inteiro Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Qual a base") leia(base) para i de 8 ate 1 passo -1 faca escreval("Digite número",i) leia(sequencia[i]) fimpara para i de 1 ate 8 faca base10 <- base10+ sequencia[i] * exp(base,i-1) fimpara escreval("Número base 10 :", base10) Fimalgoritmo

O código atual do romano para indo-arábico é essa Var // Seção de Declarações das variáveis vetromano:vetor[0..15] de caractere romano:caractere i:inteiro arabico:inteiro Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Digite um número em romano para ser convertido em arábico") escreval("menor que 4000 e maior que 0") leia(romano) para i de 1 ate Compr(romano) faca vetromano[i]<-Copia(romano,i,1) fimpara para i de 1 ate Compr(romano) faca se(vetromano[i] = "M") entao arabico<-arabico+1000 se(vetromano[i-1] = "C") entao arabico<-arabico-200 fimse fimse se(vetromano[i] = "D") entao arabico<-arabico+500 se(vetromano[i-1] = "C") entao arabico<-arabico-200 fimse fimse se(vetromano[i] = "C") entao arabico<-arabico+100 se(vetromano[i-1] = "X") entao arabico<-arabico-20 fimse fimse se(vetromano[i] = "L") entao arabico<-arabico+50 se(vetromano[i-1] = "X") entao arabico<-arabico-20 fimse fimse se(vetromano[i] = "X") entao arabico<-arabico+10 se(vetromano[i-1] = "I") entao arabico<-arabico-2 fimse fimse se(vetromano[i]= "V")entao arabico<-arabico+5 se(vetromano[i-1] = "I") entao arabico<-arabico-2 fimse fimse se(vetromano[i] = "I") entao arabico<-arabico+1 fimse fimpara escreval(arabico) Fimalgoritmo E o do indo-arábico para romano é essa Var // Seção de Declarações das variáveis num :inteiro m,c,d,u:inteiro rest:inteiro rm,rc,rd,ru:caractere Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Digite um número indo-arábico para ser") escreval("convertido em romano menor que 4000") leia(num) m <- int(num/1000) rest <- num mod 1000 c <- int(rest/100) rest <- rest mod 100 d <- int(rest/10) u <- rest mod 10 se (m=1) entao rm<-"M" fimse se (m=2)entao rm<-"MM" fimse se (m=3) entao rm<-"MMM" fimse se (c=1)entao rc<-"C" fimse se (c=2)entao rc<-"CC" fimse se (c=3)entao rc<-"CCC" fimse se (c=4)entao rc<-"CD" fimse se (c=5)entao rc<-"D" fimse se (c=6)entao rc<-"DC" fimse se (c=7)entao rc<-"DCC" fimse se (c=8)entao rc<-"DCCC" fimSe se (c=9)entao rc<-"CM" fimse se (d=1)entao rd<-"X" fimse se (d=2)entao rd<-"XX" fimse se (d=3)entao rd<-"XXX" fimse se (d=4)entao rd<-"XL" fimse se (d=5)entao rd<-"L" fimse se (d=6)entao rd<-"LX" fimse se (d=7)entao rd<-"LXX" fimse se (d=8)entao rd<-"LXXX" fimse se (d=9)entao rd<-"XC" fimse se (u=1)entao ru<-"I" fimse se (u=2)entao ru<-"II" fimse se (u=3)entao ru<-"III" fimse se (u=4)entao ru<-"IV" fimse se (u=5)entao ru<-"V" fimSe se (u=6)entao ru<-"VI" fimse se (u=7)entao ru<-"VII" fimse se (u=8)entao ru<-"VIII" fimse se (u=9)entao ru<-"IX" fimse escreval(rm,rc,rd,ru) Fimalgoritmo adicionado 44 minutos depois Acho que não conseguirei implementar a 3 Vou terminar amanhã, amanhã cedo tenho que ir para aula vou dormir agora Falou

Afinal o código todo está funcional? O erro era a declaração do vetor mesmo o vetor começar a partir daquele número é (FINAL-INICIO), não (FINAL-INÍCIO + 1) , de onde tirou esse mais 1? adicionado 4 minutos depois Que concluímos que a quantidade de casas do vetor é igual (FINAL-INÍCIO)

O erro está no vetor mesmo a lógica está certa tente colocar MMMDCCCLXXXVIII que ocupa quinze casas, veja de 1 até 15 temos somente 14 casas não quinze diferente de 0 a 15 O número vetor começa a partir deste número pelo menos no VisualG é assim O vetor é (FINAL - INICIO) não tem esse +1 aí não de onde sai esse +1?

O erro está na parte do vetor teria que começar com [0..15] Var // Seção de Declarações das variáveis vetromano:vetor[0..15] de caractere romano:caractere i:inteiro arabico:inteiro não começar do 1 estou certo? Var // Seção de Declarações das variáveis vetromano:vetor[0..15] de caractere romano:caractere i:inteiro arabico:inteiro Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Digite um número em romano para ser convertido em arábico") escreval("menor que 4000 e maior que 0") leia(romano) para i de 1 ate Compr(romano) faca vetromano[i]<-Copia(romano,i,1) fimpara para i de 1 ate Compr(romano) faca se(vetromano[i] = "M") entao arabico<-arabico+1000 se(vetromano[i-1] = "C") entao arabico<-arabico-200 fimse fimse se(vetromano[i] = "D") entao arabico<-arabico+500 se(vetromano[i-1] = "C") entao arabico<-arabico-200 fimse fimse se(vetromano[i] = "C") entao arabico<-arabico+100 se(vetromano[i-1] = "X") entao arabico<-arabico-20 fimse fimse se(vetromano[i] = "L") entao arabico<-arabico+50 se(vetromano[i-1] = "X") entao arabico<-arabico-20 fimse fimse se(vetromano[i] = "X") entao arabico<-arabico+10 se(vetromano[i-1] = "I") entao arabico<-arabico-2 fimse fimse se(vetromano[i]= "V")entao arabico<-arabico+5 se(vetromano[i-1] = "I") entao arabico<-arabico-2 fimse fimse se(vetromano[i] = "I") entao arabico<-arabico+1 fimse fimpara escreval(arabico) Fimalgoritmo adicionado 12 minutos depois Acho que terminei o código completo fica assim Algoritmo "semnome" // Disciplina : [Linguagem e Lógica de Programação] // Professor : Antonio Carlos Nicolodi // Descrição : Aqui você descreve o que o programa faz! (função) // Autor(a) : Nome do(a) aluno(a) // Data atual : 17/03/2019 Var // Seção de Declarações das variáveis opcao:inteiro num :inteiro m,c,d,u:inteiro rest:inteiro rm,rc,rd,ru:caractere vetromano:vetor[0..15] de caractere romano:caractere i:inteiro arabico:inteiro Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Digite 1 para converter um número indo-arábico para") escreval("romano e digite 2 para converter um número romano para") escreval("indo-arábico") leia(opcao) se(opcao = 1) entao escreval("Digite um número indo-arábico para ser") escreval("convertido em romano menor que 4000 e maior que 0") leia(num) m <- int(num/1000) rest <- num mod 1000 c <- int(rest/100) rest <- rest mod 100 d <- int(rest/10) u <- rest mod 10 se (m=1) entao rm<-"M" fimse se (m=2)entao rm<-"MM" fimse se (m=3) entao rm<-"MMM" fimse se (c=1)entao rc<-"C" fimse se (c=2)entao rc<-"CC" fimse se (c=3)entao rc<-"CCC" fimse se (c=4)entao rc<-"CD" fimse se (c=5)entao rc<-"D" fimse se (c=6)entao rc<-"DC" fimse se (c=7)entao rc<-"DCC" fimse se (c=8)entao rc<-"DCCC" fimSe se (c=9)entao rc<-"CM" fimse se (d=1)entao rd<-"X" fimse se (d=2)entao rd<-"XX" fimse se (d=3)entao rd<-"XXX" fimse se (d=4)entao rd<-"XL" fimse se (d=5)entao rd<-"L" fimse se (d=6)entao rd<-"LX" fimse se (d=7)entao rd<-"LXX" fimse se (d=8)entao rd<-"LXXX" fimse se (d=9)entao rd<-"XC" fimse se (u=1)entao ru<-"I" fimse se (u=2)entao ru<-"II" fimse se (u=3)entao ru<-"III" fimse se (u=4)entao ru<-"IV" fimse se (u=5)entao ru<-"V" fimse se (u=6)entao ru<-"VI" fimse se (u=7)entao ru<-"VII" fimse se (u=8)entao ru<-"VIII" fimse se (u=9)entao ru<-"IX" fimse escreval(rm,rc,rd,ru) senao se(opcao = 2)entao escreval("Digite um número em romano para ser convertido em arábico") escreval("menor que 4000 e maior que 0") leia(romano) para i de 1 ate Compr(romano) faca vetromano[i]<-Copia(romano,i,1) fimpara para i de 1 ate Compr(romano) faca se(vetromano[i] = "M") entao arabico<-arabico+1000 se(vetromano[i] = "C") entao arabico<-arabico-200 fimse fimse se(vetromano[i] = "D") entao arabico<-arabico+500 se(vetromano[i-1] = "C") entao arabico<-arabico-200 fimse fimse se(vetromano[i] = "C") entao arabico<-arabico+100 se(vetromano[i-1] = "X") entao arabico<-arabico-20 fimse fimse se(vetromano[i] = "L") entao arabico<-arabico+50 se(vetromano[i-1] = "X") entao arabico<-arabico-20 fimse fimse se(vetromano[i] = "X") entao arabico<-arabico+10 se(vetromano[i-1] = "I") entao arabico<-arabico-2 fimse fimse se(vetromano[i]= "V")entao arabico<-arabico+5 se(vetromano[i-1] = "I") entao arabico<-arabico-2 fimse fimse se(vetromano[i] = "I") entao arabico<-arabico+1 fimse fimpara escreval(arabico) fimse fimse Fimalgoritmo

Algoritmo "semnome" // Disciplina : [Linguagem e Lógica de Programação] // Professor : Antonio Carlos Nicolodi // Descrição : Aqui você descreve o que o programa faz! (função) // Autor(a) : Nome do(a) aluno(a) // Data atual : 16/03/2019 Var // Seção de Declarações das variáveis vetromano:vetor[1..15] de caractere romano:caractere i:inteiro arabico:inteiro Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Digite um número em romano para ser convertido em arábico") escreval("menor que 4000 e maior que 0") leia(romano) para i de 1 ate Compr(romano) faca vetromano[i]<-Copia(romano,i,1) fimpara para i de 1 ate Compr(romano) faca se(vetromano[i] = "M") entao arabico<-arabico+1000 se(vetromano[i] = "C") entao arabico<-arabico-200 fimse fimse se(vetromano[i] = "D") entao arabico<-arabico+500 se(vetromano[i-1] = "C") entao arabico<-arabico-200 fimse fimse se(vetromano[i] = "C") entao arabico<-arabico+100 se(vetromano[i-1] = "X") entao arabico<-arabico-20 fimse fimse se(vetromano[i] = "L") entao arabico<-arabico+50 se(vetromano[i-1] = "X") entao arabico<-arabico-20 fimse fimse se(vetromano[i] = "X") entao arabico<-arabico+10 se(vetromano[i-1] = "I") entao arabico<-arabico-2 fimse fimse se(vetromano[i]= "V")entao arabico<-arabico+5 se(vetromano[i-1] = "I") entao arabico<-arabico-2 fimse fimse se(vetromano[i] = "I") entao arabico<-arabico+1 fimse fimpara escreval(arabico) Fimalgoritmo O erro que estava ocorrendo era nessa parte se(vetromano[i] = "M") entao arabico<-arabico+1000 se(vetromano[i] = "C") entao arabico<-arabico-200 fimse Onde estava subtraindo do vetor dando nesse caso uma posição inexistente E quando coloquei MMMCMXCIX retornou o valor 4199 ainda está com erro

Esqueci de copiar só isso o resto está certo né?

Var // Seção de Declarações das variáveis vetromano:vetor[1..15] de caractere romano:caractere i:inteiro arabico:inteiro Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Digite um número em romano para ser convertido em arábico") escreval("menor que 4000 e maior que 0") leia(romano) para i de 1 ate Compr(romano) faca vetromano[i]<-Copia(romano,i,1) fimpara para i de 1 ate Compr(romano) faca se(vetromano[i] = "M") entao arabico<-arabico+1000 se(vetromano[i] = "C") entao arabico<-arabico-200 fimse fimse se(vetromano[i] = "D") entao arabico<-arabico+500 se(vetromano[i-1] = "C") entao arabico<-arabico-200 fimse fimse se(vetromano[i] = "C") entao arabico<-arabico+100 se(vetromano[i-1] = "X") entao arabico<-arabico-20 fimse fimse se(vetromano[i] = "L") entao arabico<-arabico+50 se(vetromano[i-1] = "X") entao arabico<-arabico-20 fimse fimse se(vetromano[i] = "X") entao arabico<-arabico+10 se(vetromano[i-1] = "I") entao arabico<-arabico-2 fimse fimse se(vetromano[i]= "V")entao arabico<-arabico+5 se(vetromano[i-1] = "I") entao arabico<-arabico-2 fimse fimse se(vetromano[i] = "I") entao arabico<-arabico+1 fimse fimpara escreval(arabico) Fimalgoritmo

Não nenhuma dúvida sobre o erro, algumas vezes falta atenção porque são muitas linhas para codificar Obrigado O código agora está certo ou tem algum erro?

Terminado? adicionado 4 minutos depois O código completo ficou assim Var // Seção de Declarações das variáveis opcao:inteiro num :inteiro m,c,d,u:inteiro rest:inteiro rm,rc,rd,ru:caractere vetromano:vetor[1..15] de caractere romano:caractere i:inteiro arabico:inteiro Inicio // Seção de Comandos, procedimento, funções, operadores, etc... escreval("Digite 1 para converter um número indo-arábico para") escreval("romano e digite 2 para converter um número romano para") escreval("indo-arábico") leia(opcao) se(opcao = 1) entao escreval("Digite um número indo-arábico para ser") escreval("convertido em romano menor que 4000 e maior que 0") leia(num) m <- int(num/1000) rest <- num mod 1000 c <- int(rest/100) rest <- rest mod 100 d <- int(rest/10) u <- rest mod 10 se (m=1) entao rm<-"M" fimse se (m=2)entao rm<-"MM" fimse se (m=3) entao rm<-"MMM" fimse se (c=1)entao rc<-"C" fimse se (c=2)entao rc<-"CC" fimse se (c=3)entao rc<-"CCC" fimse se (c=4)entao rc<-"CD" fimse se (c=5)entao rc<-"D" fimse se (c=6)entao rc<-"DC" fimse se (c=7)entao rc<-"DCC" fimse se (c=8)entao rc<-"DCCC" fimSe se (c=9)entao rc<-"CM" fimse se (d=1)entao rd<-"X" fimse se (d=2)entao rd<-"XX" fimse se (d=3)entao rd<-"XXX" fimse se (d=4)entao rd<-"XL" fimse se (d=5)entao rd<-"L" fimse se (d=6)entao rd<-"LX" fimse se (d=7)entao rd<-"LXX" fimse se (d=8)entao rd<-"LXXX" fimse se (d=9)entao rd<-"XC" fimse se (u=1)entao ru<-"I" fimse se (u=2)entao ru<-"II" fimse se (u=3)entao ru<-"III" fimse se (u=4)entao ru<-"IV" fimse se (u=5)entao ru<-"V" fimse se (u=6)entao ru<-"VI" fimse se (u=7)entao ru<-"VII" fimse se (u=8)entao ru<-"VIII" fimse se (u=9)entao ru<-"IX" fimse escreval(rm,rc,rd,ru) senao se(opcao = 2)entao escreval("Digite um número em romano para ser convertido em arábico") escreval("menor que 4000 e maior que 0") leia(romano) para i de 1 ate Compr(romano) faca vetromano[i]<-Copia(romano,i,1) fimpara para i de 1 ate Compr(romano) faca se(vetromano[i] = "M") entao arabico<-arabico+1000 se(vetromano[i] = "C") entao arabico<-arabico-200 fimse fimse se(vetromano[i] = "D") entao arabico<-arabico+500 se(vetromano[i-1] = "C") entao arabico<-arabico-200 fimse fimse se(vetromano[i] = "C") entao arabico<-arabico+100 se(vetromano[i-1] = "X") entao arabico<-arabico-20 fimse fimse se(vetromano[i] = "L") entao arabico<-arabico+50 se(vetromano[i-1] = "X") entao arabico<-arabico-20 fimse fimse se(vetromano[i] = "X") entao arabico<-arabico+10 se(vetromano[i-1] = "I") entao arabico<-arabico-2 fimse fimse se(vetromano[i]= "V")entao arabico<-arabico+5 se(vetromano[i-1] = "I") entao arabico<-arabico-2 fimse fimse se(vetromano[i] = "I") entao arabico<-arabico+1 fimse fimpara escreval(arabico) fimse fimse