Linguagem de programação

1-Faça um programa de agenda telefônica que contenha o seguinte MENU AGENDA
1.CADASTRAR
2.PESQUISAR POR NOME
3.LISTAR
4.SAIR

Algoritmo
Tipo
Dados=registro;
Emai:literal;
Nome:literal
Fone:literal
Fimregistro;
Var
CAD:dados; pesq,Op,quant,i:inteiro; Cadastro:Arquivamos composto de dados;
Inicio
Associe(cad’,c:/cadastro’);
Escreva(1-Cadastrar)
Escreva(2-pesquisar);
Escreva(3-listar)
Escreva(4-Digite uma tecla para sair)
Leia(op);
Escolha
Caso op=1
Abrir(cadastro)
Escreva(“Digite a quantidade de cadastro”);
Leia(quant);
Para i de 1 ate 3 passo 1 faca
Escreva(“Digite o nome”)
Leia(CAD.nome)
Escreva(“Digite o email”)
Leia(CAD.email)
Escreva(“Digite o telefone”)
Leia(CAD.tel)
Gravar(cadastro)
Fimpara;
Fimcadastro;
Caso op=2
Abrir(cadastro)
Leia(cadastro.cad)
Escreva(Digite o nome que deseja pesquisar)
Leia(pesq);
Enquanto não FDA for faça
Se(pesq=CAD.num)então
Escreva(CAD.nome)
Escreva(CAD.telefone)
Escreva(CAD.email)
Fimse.
Fimenquanto
Fechar(cadastro);
Caso op=3
Abrir(cadastro)
Leia(cadastro.cad)
Enquanto não FDA faca
Escreva(CAD.telefone)
Escreva(CAD.email)
Escreva(CAD.nome)
Fimenquanto.
Fechar(arquivo)
Ate que op=4
Fim.

2-Desenvolva um algoritmo que armazene em um arquivo,.dat.O nome,telefone e o email de 50 pessoas.
Algoritmo
Tipo
Dados=registro
Tel:literal
Email: literal
Nome: literal[50]
Fim registro;
Var
I:inteiro;
Cad:dados;
Cadastro:arquivo de dados;
Inicio
Associe(cadastro,c:/cad.dat);
Abrir(cadastro)
Para i de 1 ate 50 passo 1 faca
Escreva(

2. Faça um programa que cadastre e pesquise livros de acordo com o MENU:
BIBLIOTECA
CADASTRAR LIVROS
PESQUISAR POR NOME
PESQUISAR POR AUTOR
SAIR

3. Faça um programa que cadastre o nome e a quantidade de 5 produtos e os manipule de acordo com o MENU: (Utilize vetor)
ESTOQUE
CADASTRAR MERCADORIA
CADASTRAR QUANTIDADE
EFETUAR BAIXA
PESQUISAR PRODUTO
LISTAR
SAIR