Os Fundamentos da Computação
Por: camila_carolina • 27/8/2017 • Trabalho acadêmico • 2.700 Palavras (11 Páginas) • 128 Visualizações
[pic 1]
CENTRO UNIVERSITÁRIO DO LESTE DE MINAS GERAIS
CURSO DE ENGENHARIA CIVIL
Fundamentos da Computação II
Componente:
Camila Carolina RA06152016
Professor: Claudio Portes dos Santos
CORONEL FABRICIANO
2014
- Program T1 ;
Var MAT:ARRAY [1..3,1..3] of Integer;
X,Y,SOMA:Integer;
MEDIA:Real;
Begin
SOMA:=0;
FOR X:=1 to 3 do
Begin
FOR Y:=1 to 3 do
Begin
Write('Informe um valor');
Read(MAT[X][Y]);
SOMA:=SOMA+MAT[X][Y];
end;
end;
MEDIA:=SOMA/9;
Writeln('A soma é:', SOMA);
Writeln('A média é:', MEDIA:0:2);
End.
- Program T2 ;
Var A,B,C:Array [1..5,1..3] of Integer;
X,Y: Integer;
Begin
For X:=1 to 5 do
Begin
For Y:=1 to 3 do
Begin
Write('Informe um valor para A');
Read(A[X][Y]);
Write('Informe um valor para B');
Read(B[X][Y]);
end;
end;
For X:=1 to 5 do
Begin
For Y:=1 to 3 do
Begin
C[X][Y]:=A[X][Y]+B[X][Y];
end;
end;
Writeln('Elementos de C:');
For X:=1 to 5 do
Begin
For Y:=1 to 3 do
Begin
Write(C[X][Y], ' ');
end;
end;
End.
- Program T3 ;
Var A,B,C: ARRAY [1..8] of Integer;
X:Integer;
Begin
FOR X:=1 to 8 do
Begin
Write('Informe um valor para A');
Read(A[X]);
Write('Informe um valor para B');
Read(B[X]);
if (A[X]>B[X]) then
Begin
C[X]:=A[X];
end
else
Begin
C[X]:=B[X];
end;
end;
Writeln('Valores de C');
FOR X:=1 to 8 do
Begin
Write(C[X],' ');
end;
End.
- Program T4 ;
Var VET:Array [1..9] of Integer;
CONT,X,SOMA,QT:Integer;
MEDIA:Real;
Begin
SOMA:=0;
QT:=0;
CONT:=1;
FOR X:=9 downto 1 do
Begin
VET[X]:=CONT;
CONT:=CONT+1;
SOMA:=SOMA+VET[X];
end;
MEDIA:=SOMA/9;
Writeln(' A média é', MEDIA:0:2);
FOR X:=1 to 9 do
Begin
if (VET[X]>MEDIA) then
Begin
QT:=QT+1;
end;
end;
Writeln(QT,' valores estão acima da média');
End.
- Program T5;
Var MAT:Array [1..4,1..4] of Integer;
X,Y,SOMAD,SOMAF,SOMAC:Integer;
Begin
SOMAD:=0;
SOMAC:=0;
SOMAF:=0;
For X:=1 to 4 do
Begin
For Y:=1 to 4 do
Begin
Write('Informe um valor');
Read(MAT[X][Y]);
end;
end;
For X:=1 to 4 do
Begin
SOMAD:=SOMAD+MAT[X][X];
end;
For X:=1 to 4 do
Begin
SOMAC:=SOMAC+MAT[X][4];
end;
SOMAF:=SOMAD+SOMAC;
Writeln('A soma final é:', SOMAF);
End.
- Program T6;
Var VENDAS:Array[1..5,1..6] of Integer;
...