1º Integrado Informática Presidente Getúlio Vargas

Exercícios com ARRAYS - (Pascal)

Program Media_Notas;

{este programa recebe tres notas, soma-as, tira a média
e as devolve pra tela}

var
num: array [1..3] of integer;
soma,media:real;
i:integer;

Begin
writeln ('digite as tres notas');
soma:=0;
for i:=1 to 3 do  {Aqui entram as notas na variável)

read (num[i]);

for i:=1 to 3 do       {Aqui soma-se as notas)
soma:=(num[i]+soma);
media:=(soma/3);

for i:=1 to 3 do   {Aqui saem as notas na variável)

writeln ('As notas de entrada são: ',num [i]);
writeln;
writeln('A soma da notas é: ',soma:2:2);
writeln;
writeln('A média das notas é: ',media:2:2);
End.
xxxxxxxxx---xxxxx---xxxxxx-xxxxx-xxxx-xxx-x-x-xx--x

{Desenvolver programa que leia 4 nomes
para uma matriz armazene e apos armazenar todos apresente cada um deles.}


Program lista_nomes;
var
nome: array [1..4] of string;
I: integer;


begin
writeln ('listagem de alunos');
writeln;
for i:= 1 to 4 do
begin
write ('Digite o Nome:');
readln (nome [i]); {Aqui entra os nomes dos alunos}
end;


for i:= 1 to 4 do
writeln ('Nomes: ', Nome [i]); {Aqui sai os nomes dos alunos}
end.

1º Integrado Informática Presidente Getúlio Vargas

Segue o programa (base) Figuras Planas em Pascal, que foi apresentado na comemoração do dia da Informática:

Program Areas;
const
PI = 3.14;
var
Area_circulo, Comprimento_circulo, Raio : real;
largura, comprimento, area : real;
Area_triangulo, Base, LadoA, LadoB: real;
x:integer;
areax, aresta : real;


Begin
textbackground (blue);
clrscr;
textcolor (white);
writeln;
writeln('Programa destinado ao cálculo da Área de Figuras Planas ');
writeln;
writeln(' Desenvolvido em pelos alunos do Primeiro ano Informática Integrado ');
writeln;
writeln('Ápos cada operação que você realizar pressione Enter ');
writeln;
writeln;
writeln;
writeln('Pressione ENTER para começar ');
writeln;
READKEY;
clrscr;
writeln;
writeln('Escolha uma operação abaixo:');
writeln;
writeln;
writeln('Digite 1 : para Área de um Círculo;');
writeln;
writeln('Digite 2 : para Área de um Retângulo;');
writeln;
writeln('Digite 3 : para Área de um Triângulo;');
writeln;
writeln('Digite 4 : para Área de um Quadrado.');
writeln;
readln(x);
clrscr;


case x of
1 : Begin
writeln;
writeln( ' Digite o Raio (em metros) : ' );
readln(Raio);
writeln;
Area_circulo := PI * Raio * Raio;
Comprimento_circulo := 2 * PI * Raio;
clrscr;
writeln;
writeln( ' A Área do círculo é de : ', Area_circulo :2:2 ,' Metros quadrados ' );
writeln;
writeln;
writeln(' Comprimento da Circunferencia = ', Comprimento_circulo :2:2,' Metros' );
end;


2 : Begin
writeln;
Writeln (' Digite a Largura (em metros)');
Readln(largura);
writeln;
Writeln(' Digite o Comprimento (em metros)');
Readln(comprimento);
writeln;
writeln;
area := largura * comprimento;
Writeln(' A área do Retangulo é de : ', area :2:2 ,' Metros quadrados ' );
end;


3 : Begin
writeln;
Writeln (' Digite o Lado A do Triângulo (em metros)');
Readln (LadoA);
writeln;
Writeln (' Digite o Lado B do Triângulo (em metros)');
Readln (LadoB);
writeln;
Writeln (' Digite a Base do Triângulo (em metros)');
Readln (Base);
writeln;
writeln;
Area_triangulo := LadoA*LadoB*Base/4;
Writeln (' A área do Triângulo é de : ' , Area_triangulo :2:2,' Metros quadrados ' );
end;


4: Begin
writeln;
Writeln (' Digite o tamannho da aresta lateral (em metros)');
Readln(aresta);
writeln;
areax := aresta * aresta;
writeln;
Writeln(' A área do quadrado é de : ', areax :2:2 ,' Metros quadrados ' );
end;


0: BEGIN;
WRITELN (' -------------------------------------');
WRITELN (' -------------------------------------');
Writeln (' ==> Número digitado NÃO válido <==');
WRITELN (' -------------------------------------');
WRITELN (' -------------------------------------');
end;


5..9: BEGIN;
WRITELN (' -------------------------------------');
WRITELN (' -------------------------------------');
Writeln (' ==> Número digitado NÃO válido <;==');
WRITELN (' -------------------------------------');
WRITELN (' -------------------------------------');
end;
end;
readkey;
End.