INE5102 – Introdução à Informática
2º TRABALHO PRÁTICO
Estes pequenos programas devem ser programados em PASCAL, compilados e entregues funcionando em disquete. (.EXE .PAS ou outros)
Para identificar o disquete deve-se colocar: n. da turma, n. matrícula e o nome do aluno. Repetir estes passos para cada integrante. Caso não caibam estas informações etiqueta do disquete, crie um arquivo chamado GRUPO.TXT que conste desta lista e coloque junto com os programas que estão dentro do disquete.
Se for mandar pelo email, deve-se seguir estes passos: 1) Crie uma pasta com os dados do aluno representante do grupo (ex: T.0234 – M.0000909 – Joãozinho P. S. Matrie ...etc); 2) Crie nomes legíveis aos arquivos e numere-os, nomes que façam referência a lista – nomes que só vc entenda não serve. 3) Coloque os arquivos (.EXE .PAS ou outros) neste diretório criando anteriormente; 4) Crie um arquivo chamado GRUPO.TXT que tenha dentro dele o n. turma, n. matrícula e o nome do aluno. Repetir estes passos para cada integrante - ex: T.0234 – M.0000909 – Joãozinho P. S. Matrie. 5) Compacte esta pasta com WinZip; 6)Envie pelo email.
DATA DE ENTREGA: 23/04/02 - NÃO SERÃO ACEITOS TRABALHOS ENTREGUES FORA DO PRAZO.
1) Desenvolva um programa em PASCAL que solucione o problema:
· Ler do teclado um número indicando quantos outros números devem ser lidos. Sugestão: ler um numero e depois usar este numero como valor final em um laço de repetição onde são lidos os outros números;
· Para cada número lido, verifique se é par ou ímpar e imprimir se é par ou ímpar. Sugestão: para um numero ser par, o número mod 2 deve ser igual a zero (resto da divisão por 2);
· Escrever em uma linha na tela, tantos asteriscos (*) quantos indicados pelo número lido, DESDE QUE ESTE NÚMERO SEJA MENOR QUE 70. Sugestão: testar se o número é menor que 70 e em caso afirmativo, executar um laço de repetição com um comando write(´*´), tantas vezes quantas indicadas pelo numero, após isto, usar um comando writeln para pular para a próxima linha;
· Some todos os números ímpares e escreva o resultado;
· Conte quantos números são pares e escreva o resultado.
2)Desenvolva um programa em PASCAL que solucione o problema:
· Uma empresa vende 10 artigos diferentes, cada um deles possui um código, um preço de venda e a quantidade em estoque. Estas informações são lidas do teclado no seguinte formato:
CÓDIGO - PREÇO - QUANTIDADE.
CÓDIGO é um valor inteiro, PREÇO é um valor real e QUANTIDADE é um valor inteiro.
· O programa deve ler estes valores e armazenar em vetores (3 vetores diferentes);
· Gerar um relatório na tela com os produtos cuja quantidade em estoque seja menor que 5;
· Gerar um relatório na tela informando o preço médio dos produtos e quantos produtos custam mais que a media.
3) Elaborar um programa em PASCAL que leia de um arquivo binário chamado NOTAS.BIN o numero de matrícula (8 dígitos - char) e a nota (inteiro de 0 a 10) de 45 alunos e imprima na tela um histograma destas notas utilizando asteriscos (*). Isto é, se 3 alunos tiraram 0, 4 tiraram 1, nenhum tirou 2, 2 tiraram 3 e 10 tiraram 4, a apresentação do histograma deve ser:
0 > ***
1 > ****
3 > **
4 > **********
98241281 9
98241508 7
98241036 9
98241478 4
98241532 5
98241052 7
98241540 8
98241125 2
98241141 10
· Para os mesmos dados lidos anteriormente, o programa deve imprimir a média da prova, o desvio padrão, o numero de matricula e a nota do aluno que tirou a maior e a menor nota.
· O programa deve ainda imprimir na tela e gerar um arquivo chamado ORDEM.BIN os números de matrícula e as notas dos alunos em ORDEM CRESCENTE DE NOTAS..