C tradução deste codigo para c

[gabriel eloi costa]

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  : 13/11/2020

Var

   oop,op, cad, n_cad,cpf2,i , rel, med2 ,cont, cont2, cont3, cli,otop, psi :inteiro

   login, senha :caractere

   nome:vetor [1..5] de caractere

   cpf:vetor [1..5] de inteiro

   id:vetor [1..5] de inteiro

   pro:vetor [1..5] de caractere

   num:vetor [1..5] de caractere

   end:vetor [1..5] de caractere

   est:vetor [1..5] de caractere

   tel:vetor [1..5] de inteiro

   crm:vetor [1..5] de inteiro

   fun:vetor [1..5] de inteiro

   data:vetor [1..5] de inteiro

   hora:vetor [1..5] de inteiro

   med:vetor [1..5] de inteiro

   uni:vetor [1..5] de inteiro

 

procedimento menu_principal

inicio

   escreval(" Escolha uma op��o de para iniciar:")

   escreval("")

   escreval("[1] Realize seu Cadastro")

   escreval("[2] Agendamento de Consulta ")

   escreval("[3] Cancelamento de Consulta")

   escreval("[4] Reclama��es e Elogios")

   escreval("[5] Institucional")

   escreva("=>")

   leia(op)

   limpatela

fimprocedimento

procedimento menu_cadastro

inicio

   escreval("Cadastro:")

   escreval("[1] Paciente")

   escreval("[2] M�dico")

   escreval("[3] Funcionario")

   escreval("[0] Voltar")

   escreva("=> ")

   leia(cad)

   limpatela

fimprocedimento

 

procedimento cadastro

inicio

   escreval("Realize seu Cadastro")

   escreval("")

   para i <- 1 ate 5 faca

      escreva("Nome:")

      leia(nome [i])

      escreva("CPF  :")

      leia(cpf [i])

      escreva("Idade:")

      leia(id [i])

      escreva("estado Civil:")

      leia(est [i])

      escreva("Profiss�o:")

      leia(Pro [i])

      escreva("N� de Ordem:")

      leia(num [i])

      escreva("Endere�o:")

      leia(end [i])

      escreva("Telefone:")

      leia(tel[i])

      escreva("Cadastre sua senha:")

      leia(senha)

      

      escreval(" *** Cadastro Realizado com Sucesso! *** ")

      escreval("_________________________________________________")

      escreval(" Deseja Realizar novo Cadastro ?  Sim[1] N�o[2] ")

      escreva("=>")

      leia(n_cad)

      limpatela

      se n_cad = 1 entao

         escreval("Realize seu Cadastro")

      senao

         se n_cad = 2 entao

            escreval(" *** Muito Obrigado *** ")

            interrompa

         fimse

      fimse

   fimpara

   limpatela

fimprocedimento

procedimento menu_atendimento

inicio

   escreval("Escolha o tipo de atendimento")

   Escreval("[1] Cl�nico Geral ")

   Escreval("[2] Otopedista")

   Escreval("[3] Psic�logico")

   escreval("[0] Voltar")

   escreva("Op��o: ")

   leia(med [i])

   cli<-79

   otop<-98

   psi<-100

   med2<- 0

   para i<- 1 ate 5  faca

      se (med [i] = 1) entao

         med2<-cli

         escreval("Cl�nico Geral R$", med2:4:2)

         interrompa

      senao

         se (med [i] = 2) entao

            med2<-otop

            escreval("Otopedista R$", med2:4:2)

            interrompa

         senao

            se (med [i] = 3) entao

               med2<-psi

               escreval("Otopedista R$", med2:4:2)

               interrompa

            senao

               escreval("------------------------------------------------")

               escreval("         N�o localizamos seu Cadastro!          ")

               escreval("------------------------------------------------")

            fimse

         fimse

      fimse

   fimpara

fimprocedimento

procedimento relatorio

inicio

   escreval("Relat�rios:")

   escreval("[1] Total Pacientes")

   escreval("[2] Total de Atendimentos")

   escreval("[3] Total por Unidade")

   escreval("[0] Voltar")

   escreva("=> ")

   leia(rel)

   limpatela

fimprocedimento

 

Inicio

   //Cabe�alho

   escreval("--------------------------------------------------")

   escreval("+     *            Clinica M�dica          *     +")

   escreval("--------------------------------------------------")

   escreval("")

 

   repita

      menu_principal

      escolha op

         // Cadastro

      caso 1

         menu_cadastro

         escolha cad

            // Cadastro paciente (p)

         caso 1

            cadastro

            // Cadastro m�dico

         caso 2

            cadastro

            //Cadastro funcion�ro

         caso 3

            cadastro

         caso 0

            escreva("Voltar")

         outrocaso

            escreva(" Op��o Inv�lida")

         fimescolha

 

         // Agendamento de Consulta

      caso 2

         escreva("Digite o CPF: ")

         leia (cpf2)

         escreva("Senha:")

         leia (senha)

         para i<- 1 ate 5  faca

            se (cpf2 = cpf [i]) entao

               escreval("Nome: ", nome[i],"   CPF:", cpf[i])

               escreval("idade: ", id [i],"   Telefone:", tel[i])

               escreval("Endere�o: ", end [i])

               menu_atendimento

               escreva("Escolha a Unidade: ")

               leia(uni [i])

               escreva("Escolha a data: ")

               leia(data [i])

               escreva("Hora:")

               leia(hora [i])

               escreval("------------------------------------------------")

               escreval("    **** Consulta agendada com Sucesso!  ****   ")

               escreval("------------------------------------------------")

               interrompa

            senao

               escreval("------------------------------------------------")

               escreval("         N�o localizamos seu Cadastro!          ")

               escreval("------------------------------------------------")

               interrompa

            fimse

         fimpara

         // Cancelamento de Consulta

      caso 3

         escreva("Digite o CPF: ")

         leia (cpf2)

         escreva("Senha:")

         leia (senha)

         para i<- 1 ate 5  faca

            se (cpf2 = cpf [i]) entao

               escreval("Nome: ", nome[i],"   CPF:", cpf[i])

               escreval("idade:", id [i],"   Telefone:", tel[i])

               escreval("Endere�o: ", end [i])

               escreval("Unidade: ", uni [i])

               escreval("Data: ", data[i],"  Hora:", hora[i])

               escreval(" Aperte 3 para Cancelar")

               escreva("=>")

               leia(op)

               limpatela

               escreval("------------------------------------------------")

               escreval("   **** Consulta Cancelada com Sucesso! ****    ")

               escreval("------------------------------------------------")

               interrompa

            senao

               escreval("------------------------------------------------")

               escreval("         N�o localizamos seu Cadastro!          ")

               escreval("------------------------------------------------")

               interrompa

            fimse

         fimpara

         // Avalia��o Cliente

      caso 4

         escreva("Digite o CPF: ")

         leia (cpf2)

         escreva("Senha:")

         leia (senha)

         para i<- 1 ate 5  faca

            se (cpf2 = cpf [i]) entao

               escreval("Nome: ", nome[i],"   CPF:", cpf[i])

               escreval("------------------------------------------------------")

               escreval(" Deixe sua Avalia��o, ela � muito Importante para N�s!")

               escreval("------------------------------------------------------")

               leia(op)

               escreval("------------------------------------------------------")

               escreval("               ***** Muito Obrigado *****             ")

               escreval("------------------------------------------------------")

               interrompa

            senao

               escreval("------------------------------------------------")

               escreval("         N�o localizamos seu Cadastro!          ")

               escreval("------------------------------------------------")

               interrompa

            fimse

         fimpara

         //Institucional

      caso 5

         escreva("Digite o CPF: ")

         leia (cpf2)

         escreva("Senha:")

         leia (senha)

         para i<- 1 ate 1  faca

            se (cpf2 = cpf [i]) entao

               escreval("Nome: ", nome[i],"   CPF:", cpf[i])

               relatorio

               escolha rel

               caso 1

                  escreval("---------------------------------------------")

                  escreval(" Total de Pacientes cadastrados em toda Rede!")

                  cont <- 0

                  para i <- 1 ate 5 faca

                     se (cpf [i] > 0 ) entao

                        cont <- cont + 1

                     fimse

                  fimpara

                  escreval("  Qantidade de Paci�ntes cadastrados �:", cont)

                  escreval("------------------------------------------------")

               caso 2

                  escreval("------------------------------------------------")

                  escreval("     Total de Atendimento em todas Unidades!    ")

                  cont <- 0

                  para i <- 1 ate 5 faca

                     se (med [i] > 0 ) entao

                        cont <- cont + 1

                     fimse

                  fimpara

                  escreval("   Qantidade de Atendimentos total:", cont)

                  escreval("    Valor total R$ ", med2:4:2)

                  escreval("------------------------------------------------")

               caso 3

                  escreval("------------------------------------------------")

                  escreval("            Atendimento por Unidades!           ")

                  cont  <- 0

                  cont2 <- 0

                  cont3 <- 0

                  para i <- 1 ate 5 faca

                     se (uni[i] = 1 ) entao

                        cont <- cont + 1

                     fimse

                     se (uni[i] = 2 ) entao

                        cont2 <- cont2 + 1

                     fimse

                     se (uni[i] = 3 ) entao

                        cont3 <- cont3 + 1

                     fimse

                  fimpara

                  escreval("------------------------------------------------")

                  escreval(" Qantidade de Atendimento na unidade 1 �:", cont)

                  escreval(" Qantidade de Atendimento na unidade 2 �:", cont2)

                  escreval(" Qantidade de Atendimento na unidade 3 �:", cont3)

                  escreval(" Valor total R$ ", med2:4:2)

                  escreval("------------------------------------------------")

               caso 0

                  escreva("Voltar")

               outrocaso

                  escreva(" Op��o Inv�lida")

               fimescolha

            senao

               escreval("------------------------------------------------")

               escreval("         N�o localizamos seu Cadastro!          ")

               escreval("------------------------------------------------")

            fimse

         fimpara

      caso 0

         escreval(" -- Sair --")

      outrocaso

         escreva("Op��o Inv�lida")

      fimescolha

   ate op = 0

 

Fimalgoritmo

 

[Lucca Rodrigues]

@gabriel eloi costa

Mostre aí o que conseguiu fazer, que aí nós te ajudamos no que você precisar. No mais, é proibido aqui que o usuário só coloque o enunciado sem tentar fazer antes... As pessoas não podem fazer o seu trabalho!

Abraço.

[gabriel eloi costa]

@Lucca Rodrigues

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

 

struct Cadastro {

int main()

 

int oop,op; cad; n_cad;cpf2;i ; rel; med2 ;cont; cont2; cont3; cli;otop; psi :inteiro

   login, senha :caractere

 

    char  Nome[30]

    char  cpf[11]

    char num[20]

    char est[50]

    char tel[50]

    char crm[50]

    char fun[50]

    char data[50]

    char hora[50]

    char med[50]

    char uni[50]

 

    

 

  printf ("Escolha uma opção para iniciar")

        ("\n1 - Realize seu Cadastro")

        ( "\n2 - Agendamento de Consulta")

        ( "\n3 - Cancelamento de Consulta")

        ( "\n4 - Reclamações e Elogios")

        ( "\n5 - Institucional")

        ( "Selecione Opção:";

          scanf("%d",&op);

          #endif

 

          printf("Cadastro:")

                ("\n1 - Paciente")

                ("\n2 - Medico")

                ("\n3 - Funcionario")

                ("\n4 - voltar")

                scanf("%d,&cad")

 

um pouco do que eu fiz agr n tenho mt conhecimento de c