1º Integrado Informática

Trabalho pesquisa em dupla (8pts). Não será aceito trio, entrega dia 11/11/11. A correção será minuciosa.

* O trabalho deve ser manuscrito e com capa em papel almaço;
* Deverá conter as seguintes definições, nesta ordem:
Lógica;
Algoritmo (e suas formas de representação);
Pseudocódigo (exemplo);
Linguagem Computador;
Variável (definição, tipos, atribuição de valores);
Operadores Lógico e Aritméticos (Tipo de uso, exemplo);
Comandos (Portugol e Pascal - pequenos exemplos - bem limpo);
Write, Read, If, Case, For, While, Repeat, Array;
Function e Procedure;

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.