Materia de PSI - Programa [Poligonos]
Posted by Paulo Ramos & João Martins | Posted in | Posted on 02:43
0
Program Pzim ;
lvar
llados:integer;
l Begin
l writeln (' Qual o numero de lados do poligono');
l readln (lados);
l case (lados) of
l 1: writeln (' Nao existe');
l 2: writeln (' Nao existe');
l 3: writeln (' Triangulo');
l 4: writeln (' Quadrilatero');
l 5: writeln (' Pentagono');
l 6: writeln (' Hexagono');
l 7: writeln (' Heptagono');
l 8: writeln (' Octogono');
l 9: writeln (' eneagono');
l 10: writeln (' Decagono');
l else ;
l writeln (' Erro - Nao Existe ');
l
l end;
l End.
l
Comments Posted (0)
Enviar um comentário