PASCAL – Programa de cálculo de Áreas
Esta é uma compilação de programas feitos na linguagem de programação PASCAL quando estava a frequentar o Curso Tecnológico de Informática na Escola Secundária de Rio Maior (2002/2003) – Nível Básico. Usem, partilhem e distribuam à vontade. – Podem fazer download de um compilador de PASCAL compatível com Windows 10 em – https://sourceforge.net/projects/windowsfreepascalide/
Jorge Colaço
“It is named in honor of the French mathematician, philosopher and physicist Blaise Pascal”
Read more in: Wikipédia
Cálculo de uma área em PASCAL
program area;
uses crt;
var a:integer;
L1:integer;
L2:integer;
begin
clrscr;
textcolor(1+128);
textbackground(0);
writeln('______________________');
writeln('CALCULO DE AREAS');
writeln('introduza o valor do lado 1');
writeln('______________________');
readln(L1);
writeln('introduza o valor do lado 2');
writeln('______________________');
readln(L2);
a:=L1*L2;
writeln('AREA - O resultado e:',a);
writeln('Powered by will');
readln
end.
uses crt;
var a:integer;
L1:integer;
L2:integer;
begin
clrscr;
textcolor(1+128);
textbackground(0);
writeln('______________________');
writeln('CALCULO DE AREAS');
writeln('introduza o valor do lado 1');
writeln('______________________');
readln(L1);
writeln('introduza o valor do lado 2');
writeln('______________________');
readln(L2);
a:=L1*L2;
writeln('AREA - O resultado e:',a);
writeln('Powered by will');
readln
end.
