Função apelativa

MINISTÉRIO DA EDUCAÇÃO
SECRETARIA DE EDUCAÇÃO PROFISSIONAL E TECNOLÓGICA
INSTITUTO FEDERAL DE EDUCAÇÃO, CIÊNCIA E TECNOLOGIA DO AMAZONAS – IFAM
PRO-REITORIA DE ENSINO

ERICK CASTRO

TRABALHO DE ESTRUTURA DE DADOS

Manaus
2012

ERICK BRANDÃO DE CASTRO

APLICAÇÃO DE REGISTROS

Trabalho apresentado à disciplina de Estrutura de Dados , Curso Técnico de Informática, 2º Módulo do IFAM, Turma SINF-21V.

Orientador (a): Prof. Miguel Bonafe

Manaus
2012

TRABALHO DE ESTRUTURA DE DADOS

TRABALHO DE E.D. II
Exercicios para serem resolvidos obrigatoriamente usando records

1) Construa um programa que possa ler as informações, conforme ficha abaixo e depois imprimir os resultados solicitados:

Medico: _______________________________
Especialidade: __________________________ | Domingo | Segunda | Terca | Quarta | Quinta | Sexta | Sabado | 8:00 | L | L | L | L | L | L | O | 9:00 | L | L | L | L | O | L | L | 10:00 | L | L | O | L | O | L | O | 11:00 | L | L | O | L | L | O | L | 12:00 | L | L | L | L | L | O | L |

L = Livre O = Ocupado

Após a leitura dos dados o programa deve imprimir:
- Quantidade total de horários Livres (L) e a quantidade total de horários Ocupados (O).

RESOLUÇÃO
Type
Medico = record medico:string[40]; especialidade:string[20] ; end; var horarios:array [1..5, 1..7] of string; Dados:Medico; i,j,contL,contO:integer; begin { TODO -oUser -cConsole Main : Insert code here } writeln('Digite o Nome do Medico:'); readln (Dados.medico); writeln('Digite a especialidade:'); readln(Dados.especialidade); //-- writeln;

writeln('Dia da Semana 1 corresponde ao Domingo'); writeln('Dia da Semana 2 corresponde a Segunda'); writeln('Dia da Semana 3