Pascal

 

 Criámos vários programas em linguagem Pascal, um para calcular a média das alturas inseridas pelo utilizador, outro para determinar a média das notas, um ainda para escrever a tabuada de um número escolhido, novamente, pelo utilizador, mais um para determinar raízes, vários para ordenar um certo número de valores e alguns outros. Destes, iremos mostrar dois.

______________________________________________________________________

Este primeiro é respetivo ao da tabuada.

Eis o código:

Program Tabuada;
Var n,i,resultado:integer;
Begin
Write ('Vamos ver a tabuada de um número à tua escolha.');
Writeln ('Qual queres? ');
Readln (n);
For i:=1 to 10 Do
Writeln (n,' * ',i,' = ',n*i);
End.

______________________________________________________________________

Este segundo é o respetivo ao da média das notas.

Eis o código:

Program Calcular_media ;
Var i,nota:integer;
Soma:integer;
Media:real;
n:integer;
Begin
Writeln ('Olá, este programa serve para calcular a tua média escolar.');
Writeln;
Writeln ('Primeiro, quantas disciplinas tens?');
Readln (n);
Soma:=0;
For i:=1 to n do
Begin
Writeln ('Diz-me a nota da tua disciplina número ',i,':');
Readln (nota);
Soma:=soma+nota;
End;
media:=soma/n;
Writeln ('Bem, a tua média neste momento é:',media:5:3);
End.