C Passar do VisualG para C

[Fobsbope]

Como posso converter a linguagem Portugol para C?

 

algoritmo "Biblioteca"
// Função :
// Autor :

var

//Criação das variaveis

livro, autor, editora, ano: vetor [1..10] de caracter
x: inteiro
opcao: inteiro

//criacao do menu de opções

procedimento MenuP

var
//não irei utilizar nenhuma var local neste procedimento.
inicio

Limpatela
Escreval (" ******************")
Escreval (" * MENU PRINCIPAL *")
Escreval (" ******************")
Escreval ("")
escreval ("#1 - Cadastrar #2 - Listar #3 - Buscar #4 - Sair")
Escreval ("")
Escreva ("Entre com a sua opção: ")
leia (opcao)
escolha opcao
caso 1
cadastro
caso 2
listar
caso 3
buscar
caso 4
Sair
outrocaso
MenuP
fimescolha

fimprocedimento

// Fim procedimento menu principal


//inicio do menu Cadastro.

procedimento cadastro

var

//não necessita utilizar nenhuma var local.

inicio

limpatela
Escreval ("")
Escreval (" *****************")
escreval (" * Cadastro Nº",x, " *")
Escreval (" *****************")
escreval ("")
escreva ("Nome do livro: ")
leia (livro[x])
escreva ("Nome do autor: ")
leia (autor[x])
escreva ("Editora: ")
leia (editora[x])
escreva ("Entre com o ano do livro: ")
leia (ano[x])
x <- x + 1
MenuP

fimprocedimento
// Fim procedimento Cadastro

// inicio do procedimento Listar
procedimento listar

var

i: inteiro
c: caracter

inicio

limpatela
Escreval (" ****************")
Escreval (" * LISTAR *")
Escreval (" ****************")
para i de 1 ate (x-1) faca
escreval ("Nome do livro : ", livro[i])
escreval ("Nome do autor : ", autor[i])
escreval ("Nome da editora : ", editora[i])
escreval ("Ano de puplicacao : ", ano[i])
escreval ("")
fimpara
escreval ("Pressione *|ENTER|* para continuar")
leia (C)
MenuP// chama o MENU PRINCIPAL

fimprocedimento
// Fim procedimento Listar

// Busca os registros

procedimento buscar

var

i, a : inteiro
busca, c : caracter

inicio

limpatela
Escreval (" ****************")
Escreval (" * BUSCAR *")
Escreval (" ****************")
escreva ("Entre com o nome do livro: ")
leia (busca)
a <- 0
para i de 1 ate (x - 1) faca
se livro[i] = busca entao
a <- i
fimse
fimpara
//inicio de impressão do livro.
se a> 0 entao
Escreval (" ***********************************")
Escreval ("Nome do livro : ", livro[a])
Escreval ("Nome do autor : ", autor[a])
Escreval ("Nome da editora : ", editora[a])
Escreval ("Ano de publicação : ", ano[a])
Escreval (" ***********************************")
Escreval ("")
senao
escreval ("O livro ", busca, " não foi encontrado em nosso banco de dados")
fimse
escreval ("Pressione *|ENTER|* para continuar")
leia (c)
MenuP

fimprocedimento
// Fim procedimento Buscar

//inicio do procedimento SAIR
procedimento sair

inicio
limpatela
fimprocedimento
//fim do procedimento SAIR


inicio
//*********
//atribuir valor para X
x<- 1
//*********


//MENU PRINCIPAL
MenuP

 

[DiF]

Caro usuário,

 

Seja bem-vindo ao Fórum do Clube do Hardware.

 

No intuito de servir como fonte de pesquisa no caso de instituições de ensino, informamos que incorrer no resolvimento por completo de questões relacionadas a disciplinas escolares de cursos técnicos e faculdades podem ser revistas e removidas pela Equipe de Moderação do Clube do Hardware.

 

Para sanar dúvidas sobre esse tipo de problema, por gentileza, publique o passo a passo do desenvolvimento da questão, projeto, monografia ou conteúdo em dúvida para que possamos analisar se a resposta está correta ou não, ou para que possa ser auxiliado com a dúvida no desenvolvimento do exercício.

 

Infelizmente, não há como resolver os trabalhos pelos usuários. O objetivo do Fórum do Clube do Hardware é auxiliar seus usuários a encontrar soluções para que possam sanar suas dúvidas, e não de trazer soluções prontas para seus usuários.. Além disso, copiar e colar respostas que não são de autoria própria do qualquer usuário é considerado plágio, o que é ilegal.

 

Esperamos que compreenda.

 

Atenciosamente,

Equipe Clube do Hardware

[isrnick]

2 horas atrás, Fobsbope disse:

Como posso converter a linguagem Portugol para C?

 

Só aprendendo a linguagem C e usando os comandos e controles equivalentes aos do Portugol.

A sequência lógica seria praticamente igual, mas a sintaxe muda significativamente de um para o outro, não dá pra fazer uma tradução direta ou automática.