Baixe UNIVERSIDADE COMUNITÁRIA REGIONAL DE CHAPEC e outras Exercícios em PDF para Engenharia de Alimentos, somente na Docsity!
UNIVERSIDADE COMUNITÁRIA REGIONAL DE CHAPECÓ
CENTRO DE CIENCIAS AGRO-AMBIENTAIS
DISCIPLINA: Introdução a computação II PROFESSORA: Sediane Carmem Lunardi CURSO: Engenharia Química PERÍODO: 3º
Trabalho final de Introdução a computação II
ALUNOS: Ana Paula Adona Aline Camello Marcos Voos
Chapecó, 06 de Junho de 2008 1.Faça uma matriz, encontre o maior e o menor número, faça a soma e a média dos elementos. Program Pzim ; var B,M:array [1..50,1..50]of integer; i,j,maior,menor, soma,cont,n:integer; media:real; Begin writeln('Qual a dimensão das matrizes: '); read(n); {n=o valor da dimensao da matriz} Begin soma:=0; cont:=0; for i:=1 to n do begin
for j:=1 to n do Begin writeln ('informe o valor para coluna',j,' e linha ',i); read(M[i,j]); soma:=M[i,j] + soma; cont:=cont+1; end; end; media:=soma/cont; end; B[i,j]:=0; maior:=0; menor:=99999; begin for i:=1 to n do begin for j:=1 to n do if (M [i,j]> maior) then begin maior:=M[i,j]; end; end; begin for i:=1 to n do begin for j:=1 to n do if (M [i,j]<menor) then begin menor:=M[i,j];
cont:=cont+1; end; end; media:=soma/cont; for i := 1 to 3 do begin for j := 1 to 4 do begin write(A[i,j]); end; writeln; end; menor:= 9999; for i := 1 to 3 do begin for j := 1 to 4 do begin if(A[i,j]MOD 2=0) and (A[i,j]<=menor)then begin menor:=A[i,j]; c:= menor; l := i; end; end; end; Writeln(' o menor valor par é', menor, 'e esta na linha',l); for i := 1 to 3 do begin
for j := 1 to 4 do begin if(A[i,j]<>c)then A[i,j]:=l*A[i,j] else A[i,j]:=A[i,j]; end; end; writeln; writeln(' a nova matriz será'); for i := 1 to 3 do begin for j := 1 to 4 do begin write(A[i,j],''); end; writeln; end; Writeln('a soma da matriz é', soma, 'a media da matriz é', media);
3.Escreva um algoritmo de n elementos, que mostre o maior e o menor valor encontrado, a soma dos vetores, e sua media. Program vetores ; var A:array[1..10]of integer; i, maior, menor,soma:integer; media:real; Begin for i:=1 to 5 do begin
Program vetor ; Var peso:array [1..5] of real; codigo: array[1..5] of real; idade: array[1..5] of integer; cont_1, cont_2, soma,maior, media: real; codigo_1: real; i: integer; Begin for i :=1 to 5 do begin read(codigo[i], idade[i], peso[i]); end; maior:=0; for i := 1 to 5 do if (peso[i]> maior) then begin maior:= peso[i]; codigo_1:= codigo[i]; end; Writeln(' omaior pesso é', maior, 'seu codigo é', codigo_1); soma:=0; cont_1:=0; for i := 1 to 5 do begin if(idade[i]> 20) then begin soma:= soma+idade[i];
cont_1:= cont_1 + 1; media:= soma/cont_1; Writeln('a média é', media); end; end; cont_2:=0; for i := 1 to 5 do begin if(peso[i]<60)then begin cont_2:= cont_2+1; end; end; writeln('a quantidade de pessoas com peso inferior a 60Kg é', cont_2); End.
- Calcule a quantidade de calor necessário para aquecer o alimento desejado, represente em uma tabela e calcule a inergia sua enregia interna, mostrando também, o trabalho realizado já dado no programa como uma constante. unit calor; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Edit4: TEdit; Label5: TLabel; Edit5: TEdit; Button1: TButton; Button2: TButton; Button3: TButton;
close; end; procedure TForm1.FormCreate(Sender: TObject); begin {dando nomes para as celulas} StringGrid1.cells[0,0]:='Qtde de Calor'; StringGrid1.cells[1,0]:='Energia interna'; StringGrid1.cells[2,0]:='Trabalho'; end;
procedure TForm1.Button4Click(Sender: TObject); begin {intruindo em qual celula vai aparecer o resultado} trab:=1; StringGrid1.Cells[2,1]:=IntToStr(trab); StringGrid1.cells[0,1]:= FloatToStr(result); end;
procedure TForm1.Button5Click(Sender: TObject); var Ui:real; begin {calculo da energia interna} Ui:=result-trab; {sendo que trabalho é uma constante}
StringGrid1.cells[1,1]:= FloatToStr(Ui); end; {limpar as celulas da tabela} procedure TForm1.Button6Click(Sender: TObject); begin StringGrid1.Cells[0,1]:= ' '; StringGrid1.Cells[1,1]:= ' '; StringGrid1.Cells[2,1]:= ' '; end; end.
