2) Elabore um programa em que receba dez valores reais, calcule a média desses valores, e ao final indique quantos valores estão acima da média. (valor 2,0)

3) Desenvolva um programa que receba código (número inteiro) e preço de 10 produtos e ao final mostre os 10 produtos ordenados por preço decrescente. (valor 2,0)

var M:Array[1..2,1..2] of Real;
    i,j:integer;
    det:Real;
 Begin
   for i:=1 to 2 do
   begin
     for j:=1 to 2 do
     begin
       write('Digite o elemento da posicao ',i,' ',j,':');
       readln (M[i,j]);
     end;
    end;

  assign(arquivo,'dados.txt');
  rewrite(arquivo);

Type 
Tipo_Aluno_Antigo = RECORD
    nome: String;
    nota1: Real;
    nota2: Real;
    faltas: integer;
end;

Tipo_Placa = RECORD
    letras:String[3];
    numero:Integer;
end;

Tipo_Carro = RECORD
    modelo:String;
    placa:Tipo_Placa;
end;

Tipo_Aluno = RECORD
    nome: String;
    notas:array [1..4] of Real;
    faltas: integer;
end;

Revisão da linguagem Pascal. Com exercícios e soluções.

Vetores ou agregado homogêneo de dados.

...
var v: array [1..5] of integer;
...
 repeat
    emOrdem:=true;
    for i:=1 to 4 do
    begin
      if v[i]>v[i+1] then
      begin
        emOrdem:=false;
        aux:=v[i];
        v[i]:=v[i+1];
        v[i+1]:=aux;
      end;
    end;
  until emOrdem;
 ...

Program Tabuada ;
var n,i:integer;
Begin
   write ('Digite um numero:');
   readln (n);
   for i:=1 to 10 do
   begin
     writeln (n,' x ',i,' = ',n*i);   
   end;
End.

Procedimentos e Funções

procedure tabuada(x:integer);
var i:integer;
begin
   writeln ('Tabudada do ',x);
   for i:=1 to 10 do
   begin
     writeln (x,' * ',i,' = ',x*i);
   end;
end;

function somanumero(x:integer):integer;
var i,soma:integer;
begin
   soma:=0;
   for i:=1 to x do
   begin
      soma:=soma+i;
   end;
   somanumero:=soma;
end;

A linguagem PASCAL foi desenvolvida pelo professor Niklaus Wirth no ano de 1972 em Genebra, Suíça. O nome da linguagem, Pascal, foi uma homenagem ao filósofo e matemático Blaise Pascal ( 1623-1662 ), inventor da primeira calculadora mecânica do mundo (a Pascalina). O desejo de Wirth era dispor, para o ensino de programação, de nova linguagem que fosse simples, coerente e capaz de incentivar a confecção de programas claros e facilmente legíveis, favorecendo a utilização de boas técnicas de programação.

A linguagem Pascal se tornou amplamente conhecida e utilizada com o lançamento da mundialmente famosa série de compiladores Turbo Pascal pela Borland, em 1985, devido a uma combinação de simplicidade e poder.

O compilador Pascalzim, cujo desenvolvimento iniciou no Departamento de Ciências da Computação da Universidade de Brasília, é fruto de vários anos de pesquisa e trabalho na área de algoritmos, tradutores e linguagens de programação. Foi adotado como ferramenta de apoio ao ensino e aprendizagem da linguagem Pascal pelos alunos matriculados no curso de Introdução à Ciência da Computação nesta Instituição, e começou a ser utilizado no primeiro semestre do ano de 2000.

No segundo semestre de 2001,e nos semestres que se seguiram, a ferramenta foi utilizada pelos meus alunos do Instituto de Educação Superior de Brasília (IESB) na disciplina "Algoritmos e Programação Estruturada".

A ferramenta foi exaustivamente testada, mas ainda assim não se encontra livre de erros de implementação. A correção destes será efetuada tão breve quanto sua descoberta, levando à disponibilidade de versões mais atualizadas do compilador.

O compilador implementa um subconjunto da linguagem Pascal e contém as estruturas de dados, funções e comandos mais utilizados por iniciantes no estudo dessa linguagem. O arquivo de ajuda que acompanha o produto especifica as instruções suportadas.