PROGRAM trabalho2unid; uses CRT; type pessoa= record nome: string[60]; endereco: string[60]; fone: string[13]; email: string[60]; end; var pes:array[1..50] of pessoa; opcao: integer; i: integer; quantpes: integer; BEGIN clrscr; writeln(' ** Menu Principal ** '); writeln; writeln(' 1- Incluir'); writeln(' 2- Excluir'); writeln(' 3- Alterar '); writeln(' 4- Pesquisar'); writeln(' 5- Listar'); writeln(' 6- Fim'); write('Escolha uma opcao: '); readln(opcao); writeln; case opcao of 1:begin writeln(' Quantas pessoas voce deseja incluir? obs: limite de 50 pessoas ' ); readln(quantpes); for i:= 1 to quantpes do begin writeln('digite o nome da ',i,' pessoa: '); readln(pes[i].nome); writeln('digite o endereco da ',i,' pessoa:'); readln(pes[i].endereco); writeln('digite o telefone da ',i,' pessoa:'); readln(pes[i].fone); writeln('digite o email da ',i,' pessoa: '); readln(pes[i].email); clrscr; end; readkey; end; END; end. http://ziggi.uol.com.br/site/dwnld/1716turbo pascal 7http://www.top4download.com/turbo-pascal/vlzdyhfu.html dev c++http://dev-c.softonic.com.br/download E muito comum professores passarem trabalhos de criacao de sistemas para cadastrar clientes, vou colocar um codigo aqui q vai ajudar muita gente,deu um trabalho consideravel construi-lo, porem quem nao tiver tempo como eu nao tinha pode se aproveitar desse aqui.Ele faz o uso de funcoes para string,arquivos,do windows e o mais complicado tratamento de erros como e um trabalho pra iniciantes nao faz uso de malloc,listas,nem arvores binarias e bem basico mesmo pra quem tiver interesse em comecar a entender a criacao de um banco de dados, bem , muita coisa pode ser modificada pra otimizar o sistema,mas funciona espero q ajude muitos.Este e um programa para banco que cadastra um cliente em uma struct com 10 campos e salva no arquivo informacoes.Tem funcoes de validacao de cpf,data, faltam alguns ajustes pra tratar os erros de edicao e cadastro de strings maiores que o definido na struct, mas pode ser resolvido limitando a insercao de dados a um tamanho definido como feito com a funcao recebe_data,ainda irei implementar esta parte, quem quiser testar pra saber se existem mais erros posto aqui o codigo dele, vc precisara da biblioteca conio2.h disponivel no link http://bccfema.ingoo.us/t1-biblioteca-conio2h .Alem de cadastrar,salvar,editar e excluir o sistema faz pesquisa por nome, data de criacao,saldo e outras.agradeco os q tentarem contribuir.Postem aqui as modificacoes e comentem o codigo, como estou com pressa vou mandar o codigo com os poucos comentarios q tem e depois q ele estiver melhor vou comentando e aprimorando pra voces acompanharem as mudancas e evolucoes.O ideal e usar compilacao separada mas vou postar o codigo em um so arquivo e quem estiver interessado posta aqui que eu auxilio a dividir em varios arquivos.Pode precisar de bibliotecas adicionais mas no meu pc esta rodando apenas com essas.#include <stdio.h>#include <stdlib.h>#include <string.h>#include <windows.h>#define clrscr() (system("cls"))char SISTEMA[33]="PROGRAMA DE CADASTRO DE CLIENTES";char INVALIDO[16]="CPF INVALIDO";void gotoxy(int x, int y){ COORD coord; coord.X=(short)x; coord.Y=(short)y; SetConsoleCursorPosition(GetStdHandle(STD_OUTPUT_HANDLE),coord);}void clearline(void){ printf(" "); return;}void center(int LINHA, char *MENSAGEM){ int COLUNA; COLUNA = ((80-strlen(MENSAGEM))/2); gotoxy(COLUNA,LINHA); printf(MENSAGEM); return;}void line(void){ int POSICAO; for(POSICAO=0;POSICAO<80;POSICAO++) printf("$"); for(POSICAO=0;POSICAO<80;POSICAO++) printf("+"); return;}char* recebe_data(void){ int cont; char tecla; char data[11]; for(cont=0;cont<10;cont++) data[cont] = ' '; data[2] = data[5] = '/'; data[10] = '\0'; cont=0; do { gotoxy(12,4); printf("Data: %s",data); tecla = getch(); if(tecla==(char)13) { if(cont<9) { data[cont]=NULL; tecla = NULL ; } } else if(tecla==(char)8) { if(cont>0) { cont--; if(cont==2