Eng. Eletricista

UFPA - UNIVERSIDADE FEDERAL DO PARÁ
CENTRO TECNOLÓGICO
CAMTUC – CAMPUS UNIVERSITARIO DE TUCURUÍ
FACULDADE DE EMNGENHARIA ELÉTRICA
TURMA DE 2011
PROF. MSC IVALDO OHAMA
DISCIPLINA: ICC - INTRODUÇÃO A CIENCIA DA COMPUTAÇÃO

TRABALHO DE ICC – INTRODUÇÃO A CIENCIA DA COMPUTAÇÃO

Programas de Matemática
Exemplos de Programas em MATLAB
Exercícios do Capitulo 01, 02, 03, 09

Aluno: Rodolfo Fonseca Pereira -

UFPA - UNIVERSIDADE FEDERAL DO PARÁ
CENTRO TECNOLÓGICO
CAMTUC – CAMPUS UNIVERSITARIO DE TUCURUÍ
FACULDADE DE EMNGENHARIA ELÉTRICA
TURMA DE 2011
PROF. MSC IVALDO OHAMA
DISCIPLINA: ICC - INTRODUÇÃO A CIENCIA DA COMPUTAÇÃO

Índice
Programa de Matemática ------------------------------------------------------------ 03

Matlab ---------------------------------------------------------------------------------- 16

Lista de Exercícios CAP. 01, 02, 03 e 09 ------------------------------------------- 22
Programa Com Fórmulas Matemáticas Utilizando Pascal Como Linguagem De Programação

PROGRAM MATEMATICA;
USES CRT;
VAR OPCAO:INTEGER;

{***ROTINAS DE CALCULO***}

PROCEDURE VOL_CILINDRO; VAR V,R,H:REAL; LABEL L1; BEGIN L1:CLRSCR; GOTOXY(18,3); WRITE ('*** ROTINA VOLUME DO CILINDRO ***'); GOTOXY(5,9); WRITE ('* DIGITE O VALOR DO RAIO EM METROS: '); READLN (R); GOTOXY(5,12); WRITE ('* DIGITE O VALOR DA DA ALTURA EM METROS '); READLN (H); IF (R>0) AND (H>0) THEN V:=PI*R*R*H ELSE BEGIN GOTOXY(18,20); WRITE ('DIGITE UM VALOR> QUE "O" PARA O RAIO E A ALTURA'); REPEAT UNTIL KEYPRESSED; GOTO L1; END; GOTOXY(5,15); WRITELN ('* O VALOR DO VOLUME E: ',V:5:2); REPEAT UNTIL KEYPRESSED;
END;

PROCEDURE AR_TRAPEZIO; VAR A,Bm,Bn,H:REAL; LABEL L1; BEGIN L1:CLRSCR; GOTOXY (18,3); WRITE ('*** ROTINA AREA TRAPEZIO ***'); GOTOXY(5,9); WRITE ('* DIGITE O VALOR DA BASE MAIOR METROS: