-
Notifications
You must be signed in to change notification settings - Fork 1
/
experiencia.por
47 lines (40 loc) · 1.12 KB
/
experiencia.por
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
programa experiencia;
// Seção de declarações das variáveis, funções e procedimentos
var
cobaia, cobaiatotal, S, R, C, n, i: inteiro;
porcentoS, porcentoR, porcentoC:real;
tipocobaia: caractere;
inicio
// Seção de comandos, operadores, etc...
Escreva ('Quantos casos de teste serão digitados? ');
Leia (n);
s<-0;
r<-0;
c<-0;
cobaiatotal<-0;
Para i de 1 ate n faca
inicio
Escreva('Quantidade de Cobaias: ');
Leia(cobaia);
cobaiatotal <- cobaiatotal + cobaia;
Escreva('Tipo de cobaia (s, r ou c):');
Leia(tipocobaia);
se (tipocobaia = 's') entao
s<- s + cobaia;
se (tipocobaia = 'r') entao
r<- r + cobaia;
se (tipocobaia = 'c') entao
c<- c + cobaia;
fim;
porcentoS<- s*100/cobaiatotal;
porcentoR<- r*100/cobaiatotal;
porcentoC<- c*100/cobaiatotal;
EscrevaLinha ('RELATÓRIO FINAL:');
EscrevaLinha ('Total: ', cobaiatotal);
EscrevaLinha ('Total de sapos: ', s);
EscrevaLinha ('Total de ratos: ', r);
EscrevaLinha ('Total de coelhos: ', c);
EscrevaLinha ('Percentual de sapos: ', trunc(porcentoS, 2));
EscrevaLinha ('Percentual de ratos: ', trunc(porcentoR, 2));
EscrevaLinha ('Percentual de coelhos: ', trunc(porcentoC, 2));
fim.