Programação modelagem

Algoritmo: C:\Users\PAULO\Downloads\Programa1.alg
Data: 20/11/2013
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69

algoritmo "Exercicio 1"
// Função :
// Autor : Paulo Henrique
// Data : 19/11/2013
// Seção de Declarações var nalunos, ac, i, somador: inteiro soma : real nome, mat : vetor[0..99] de literal nota1, nota2, nota3, nota4 : vetor[0..99] de real inicio // Seção de Comandos escreval("Quantos alunos deseja cadastrar?") leia (nalunos) enquanto (nalunos > 100) faca escreval ("Quantidade maxima de aluno atingida!") escreval("Até cem alunos podem ser cadastrados, quantos deseja?") leia (nalunos) fimenquanto para i de 1 ate nalunos faca escreval("Digite o nome do aluno:", i) leia(nome[i-1]) escreval("Digite a matricula do aluno:", i) leia(mat[i-1]) escreval("Digite a primeira nota:") leia(nota1[i-1]) se (nota1[i-1] > 25) entao escreval ("O maximo de pontos e 25!") escreval("Digite a primeira nota:") leia(nota1[i-1]) fimse escreval("Digite a segunda nota:") leia(nota2[i-1]) se (nota2[i-1] > 25) entao escreval ("O maximo de pontos e 25!") escreval("Digite a segunda nota:") leia(nota2[i-1]) fimse escreval("Digite a terceira nota:") leia(nota3[i-1]) se (nota3[i-1] > 25) entao escreval ("O maximo de pontos e 25!") escreval("Digite a terceira nota:") leia(nota3[i-1]) fimse escreval("Digite a quarta nota:") leia(nota4[i-1]) se (nota4[i-1] > 25) entao escreval ("O maximo de pontos e 25!") escreval("Digite a quarta nota:") leia(nota4[i-1]) fimse fimpara para i de 1 ate nalunos faca soma = 60) entao escreval (" O aluno", " ", nome[i-1], " ", "foi aprovado!") ac 100) faca escreval ("Quantidade insuficiente") escreval ("É possivel cadastrar o emprestimo de 100 alunos, quantos deseja?") leia (qtd)