EXERCÍCIOS DE PASCAL

UNIVERSIDADE GAM A FILHO
DISCIPLINA

INF193 - COMPUTAÇÃO CIENTÍFICA

PROJETO

GQ1

TÍTULO

Turbo Pascal

NOME:

MATRICULA:

GIOVANI LOPES

20091603404

NOME:

MATRICULA:

RODRIGO PINHEIRO
CURSO:

ENG. ELÉTRICA

20032072635

DISCIPLINA:

COMPUTAÇÃO CIENTÍFICA

TURMA:

308

Computação Científica – Trabalho GQ1

INF193 – TRABALHO DA GQ1
INF193 – 2009.2
Faça um algoritmo e a implementação através do Turbo Pascal, para a escolha e execução do cálculo do volume do cubo, volume da esfera, área do trapézio e a área do paralelogramo. O nome do usuário solicitante deve ser pedido para que seja usado na exibição do resultado em cada cálculo. As várias etapas, tais como menu, entradas, não devem aparecer no ambiente de execução após a utilização.

RESOLUÇÃO
PROGRAM GQ1;
USES CRT;
CONST
PI=3.1416;
VAR
NOME:STRING;
AREA,VOL,L,BMAIOR,BMENOR,H,RAIO:REAL;
OP:INTEGER;
BEGIN
WRITE('NOME DO REQUISITANTE: ');
READ (NOME);
WRITELN('OPÇOES:');
WRITELN(' 1 - VOLUME DO CUBO');
WRITELN(' 2 - VOLUME DA ESFERA');
WRITELN(' 3 - AREA DO TRAPEZIO');
WRITELN(' 4 - AREA DO PARALELOGRAMO');
WRITE ('DIGITE SUA OPÇAO: ');
READLN (OP);
CLRSCR;
CASE OP OF
1: BEGIN
WRITELN ('DIGITE O LADO DO CUBO - (em cm)');
READLN (L);
VOL:=L*L*L;
CLRSCR;
WRITELN ('REQUISITANTE: ',NOME);
WRITELN ('O VOLUME DO CUBO COM LADOS DE ',L,' CM É: ',VOL,' CM3');
READKEY;
END;
2: BEGIN
WRITELN ('DIGITE O RAIO DA ESFERA - (em cm)');
READLN (RAIO);
VOL:=(4*PI*RAIO*RAIO*RAIO)/3;
CLRSCR;
WRITELN ('REQUISITANTE: ',NOME);
WRITELN ('O VOLUME DA ESFERA DE RAIO ',RAIO,' cm É: ',VOL,' CM3');
READKEY;
END;
3: BEGIN
WRITELN ('DIGITE A BASE MAIOR DO TRAPEZIO - (em cm)');
READLN (BMAIOR);
WRITELN ('DIGITE A BASE MENOR DO TRAPEZIO - (em cm)');
READLN (BMENOR);
Alunos: Giovani Lopes e Rodrigo Pinheiro

Página 2

Computação Científica – Trabalho GQ1
IF BMENOR>=BMAIOR
THEN
BEGIN
WRITELN ('MEDIDA DEVE SER MENOR QUE 1A BASE');
WRITELN ('DIGITE