· CONDICIONAL
- Se… Então… - simples ex: Se op então
- Se… Então… Senão (IF/ THEN/ELSE) ex: Se media<10 então/ Senão… (Fim se)
- Caso… Senão… Fim (CASE/OF) – múltipla ex: Caso op seja/ Senão… (Fim caso)
Início
Escreve (‘introduza a nota do teste –de 0 a 20’)
Ler (classific)
Caso classific seja
entre 0 e 4 então nivel <--- ’ Mau’
entre 5 e 9 então nível <--- ‘Fraco’
entre 10 e 13 então nível <--- ‘Suficiente’
entre 14 e 17 então nível <--- ‘Bom’
entre 18 e 20 então nível <--- ‘Muito Bom’
senão o nível <--- ‘não atribuido’
fim caso
escreve (‘ O nível alcançado foi ‘, nivel)
Fim
Program niveis;
Var classific :integer;
nivel : string;
begin
writeln(‘introduza a classificação – de 0 a 20’);
readln (classific);
Case classific of
0..4 : nivel := ’Mau’;
5..9 : nivel := ‘Fraco’;
10..13 : nivel := ‘Suficiente’;
14..17 : nivel := ‘Bom’;
18..20 : nivel := ‘Muito Bom’
else nivel := ‘Não atribuído’;
end;
writeln (‘ O nivel alcançado foi ‘ , nivel);
readln
end.
· REPETIÇÃO OU CICLOS
- Enquanto… Faça(WHILE/DO)
Inicio
numero <--- 20
enquanto numero <= 100 fazer
