Exercício
1
program
Rectang;
uses
crt;
Var Comp,Larg,Area:Integer;
begin
write
('Introduza a medida em comprimento: ');
readln
(Comp);
write
('Introduza a medida da largura: ');
readln (Larg);
Area:=Comp*Larg;
writeln
('A area do rectangulo ',char(130),' de: ',Area);
readln;
end.
Exercício
2
program
Inteiros;
Uses
Crt;
Var
N1, N2, Soma :Integer;
begin
writeln
('Este programa diz qual e o m',char (160),'ximo dos integer, pede 2 n',char
(163),'meros e soma-os');
writeln;
writeln
('O m',char(160),'ximo dos integer e: ',Maxint);
write
('Introduza um n',char(163),'mero inteiro: ');
readln
(N1);
write
('Introduza outro n',char(163),'mero: ');
readln
(N2);
Soma
:= N1+N2;
writeln
('A soma de ',N1,' com ',N2,' ',char(130),' de ',Soma);
readln;
end
Exercício
3
program
Reais;
uses
crt;
Var
r1,r2,produto:Real;
begin
writeln
('Este programa diz como ficaria o produto de 30.85*45.75 com e sem parametros
de formata',char(135),char(132),'o');
writeln;
r1:=30.85;
r2:=45.75;
produto:=r1*r2;
writeln
('Sem parametros de formatacao');
writeln
('Produto = ', produto);
writeln
('Com parametros de formatacao');
writeln ('produto = ',produto :8 :2);
readln;
end.
Exercício
4
program
Chars_1;
uses
crt;
Var C:Char;
cdc,S:String;
begin
writeln
('Este programa mostra qual ',char (130), 'o output de um caracter e de uma
cadeia de caracteres');
writeln;
writeln (char(65));
writeln (ord ('z'));
S:=
'cadeia de caracteres';
writeln
('-->',S);
readln;
end.
Exercício
5
program
gramas_por_CM;
uses
crt;
var
peso,altura,grpcm:Real;
begin
writeln
('Este programa calcula as gramas por centimetro');
writeln
('dados o peso e a altura');
write
('Insira o seu peso = ');
readln
(peso);
write
('Agora insira a sua altura = ');
readln
(altura);
grpcm:=
(peso*1000)/(altura*100);
writeln
('As suas gramas por CM s',char(132),'o de ',grpcm :8 :2);
readln;
end.
Exercício
6
program
prioridade_operaores;
uses crt;
const A=10;
B=11;
begin
writeln
('Este programa diz quais sinais de calculo ',char(130),' que o computador
calcula primeiro');
writeln
('Sendo A = 10 e B = 11');
writeln;
writeln ('A+B*5=',A+B*5);
writeln ('(A+B)*5 = ', (A + B) * 5);
readln;
end.
Exercício 7
program functions;
uses crt;
var
A,B:Real;
begin
writeln
('Este programa diz qual ',char (130),' o valor absoluto de -1.25, o valor
arredondado e truncado de 1.74');
writeln;
A := -1.25;
B := 1.74;
writeln ('Abs(-1.25) = ', Abs(A):5:2);
writeln;
writeln ('Round(1.74) = ', Round(B));
writeln;
writeln ('Trunc(1.74) = ',Trunc (B));
readln;
end.
Exercício 8
program Functions;
Uses crt;
var
a,b:Real;
begin
writeln
('Este programa diz qual ',char (130),' o quadrado de 3, a raiz quadrada de 9, o
Seno de 45 e oCo-seno de 0, utilizando os comandos predefinidos do pascal');
writeln;
a:=3;
B:=9;
writeln
('O Quadrado de 3 = ',SQR(A):5:1);
writeln;
writeln
('A Raiz Quadrada de 9 =',SQRT(B):5:1);
writeln;
writeln ('O Seno de 45 = ',Sin(45):5:1);
writeln;
writeln
('O Co-seno de 0 = ',Cos(0):5:1);
readln;
end.
Exercício
9
program
funcoes2;
uses crt;
var a,b:Real;
begin
writeln
('Este programa diz quais s',char(132),'o o maior integer, o caracter ASCII do
n',char(163),'mero 65, o
n',char(163),'mero ASCII do caracter A');
writeln
('diz qual ',char(130),' o caracter ASCII antes de A e depois de A');
writeln;
writeln ('Caracter ASCII n',char (163),'mero
65',Char(65));
writeln;
writeln
('N',char(163),'mero ASCII do caracter A: ',Ord('A'));
writeln;
writeln
('Antes do A esta: ',Pred('A'));
writeln;
writeln
('Depois do A esta: ',Succ ('A'));
writeln;
writeln ('O maior Integer e: ',Maxint);
readln;
end.
Exercício
10
program
username;
uses
crt;
var
nome:String;
begin
writeln
('Este programa pede o seu nome e de seguida mostra-o no ecr',char (132));
writeln;
write
('Insira o seu nome: ');
readln
(nome);
writeln;
writeln
('O seu nome ',char(130),' ',nome);
readln;
end.
Exercício
11
program
numeros;
uses
crt;
var
n1,n2:integer;
begin
writeln
('Este programa pede dois n',char (163),'meros inteiros e de seguida
mostra-os');
writeln;
write
('Insira um n',char(163),'mero: ');
readln
(n1);
write
('Insira outro n',char(163),'mero: ');
readln
(n2);
writeln
('Os n',char(163),'meros inseridos foram ',n1,' e ',n2);
readln;
end.
Exercício
12
program
varios;
uses
crt;
var
nome,morada:string;
telef:integer;
begin
writeln
('Este programa pede-lhe o nome a morada e o n',char(163),'mero de telefone de
um aluno e apresenta-os no
ecr',char(132));
writeln;
write
('Insira o nome do aluno: ');
readln
(nome);
write
('Insira a morada do aluno: ');
readln
(morada);
write
('Insira o n',char(163),'mero de telefone do aluno: ');
readln
(telef);
writeln
('O aluno ',nome,' cujo n',char(163),'mero de telefone ',char(130),' ',telef,'
mora em ',morada);
readln;
end.
Exercício
13
program
somas;
uses
crt;
var
n1,n2,soma:integer;
begin
writeln
('Este programa calcula a soma de 2 n',char (163),'meros inseridos por si');
writeln;
write
('Insira um numero: ');
readln
(n1);
write
('Insira outro numero: ');
readln
(n2);
soma:=n1+n2;
writeln
('A soma de ',n1,' com ',n2,' da um resultado de ',soma);
readln;
end.
Exercício
14
program
terca_parte;
uses
crt;
var
n1,tercapt:real;
begin
writeln
('Este programa calcula a ter',char(135),'a parte de um n',char(163),'mero
inserido por si');
writeln;
write
('Insira um n',char(163),'mero: ');
readln
(n1);
tercapt:=n1/3;
writeln
('a terca parte de ',n1 :0 :2,' ',char(130),' de ',tercapt :0 :2);
readln;
end.
Exercício
15
program
raiopi;
uses
crt;
var
v,r:real;
begin
writeln
('Este programa calcula o volume de uma esfera utilizando a seguinte formula');
writeln;
writeln ('
4 ');
writeln ('V = --- * 3.14 * r^3');
writeln ('
3 ');
writeln;
write ('Insira o raio: ');
readln
(r);
v:=((4/3)*3.14)*r*r*r;
writeln
('O volume da esfera com raio de ',r :3 :2,' ',char(130),' de ',V :3 :2);
readln;
end.
Exercício
16
program
pap;
uses crt;
var pkwh,qkwh,preco:real;
begin
writeln
('Este programa calcula o pre',char(135),'o de luz a pagar utilizando alguns
dados que lhe ir',char(132),'o ser
pedidos');
writeln;
write
('Insira o preco dos kwh: ');
readln
(pkwh);
write
('Insira a quantidade de kwhs consumidos: ');
readln (qkwh);
preco:=pkwh*qkwh;
writeln
('O preco a pagar ',char(130),' de ',preco :8 :3);
readln;
end.
Exercício
17
program
media_aritmetica;
uses
crt;
var
n1,n2,media:Real;
begin
writeln
('Este programa calcula a m',char(130),'dia aritm',char(130),'tica entre 2
n',char(248),'s inseridos por si');
writeln;
write
('Insira um n',char(163),'mero: ');
readln
(n1);
write
('Insira outro n',char(163),'mero: ');
readln
(n2);
media:=(n1+n2)/2;
writeln
('A m',char(130),'dia aritm',char(130),'tica = ',media :5 :2);
readln;
end.
Exercício
18
program
divisoes;
uses
crt;
var
n1,n2,quociente,resto:integer;
begin
writeln
('Este programa calcula o divisor, o divid',char (136),'ndo o quociente e o
resto da divis',char(132),'o entre os 2
n',char(163),'meros inseridos por si');
writeln;
write
('Insira um n',char(163),'mero: ');
readln
(n1);
write
('Insira outro n',char(163),'mero: ');
readln
(n2);
resto:=n1
MOD n2;
quociente:=n1
DIV n2;
writeln
('Divid',char(136),'ndo= ',n1);
writeln ('Divisor= ',n2);
writeln ('Quociente= ',quociente);
writeln ('Resto= ',resto);
readln;
end.
Exercício
19
program
media_ponderada;
uses
crt;
var AC,RC,SO,PRSI,MED:real;
begin
Writeln
('Este programa calcula a sua m',char (130),'dia ponderada apartir dos dados
fornecidos por si');
writeln
('Cada nota, tem um peso diferente. Este programa meteu as notas em ordem por
peso');
writeln;
write
('Insira a sua nota a AC --> ');
readln
(AC);
write
('Insira a sua nota a RC --> ');
readln
(RC);
write
('Insira a sua nota a SO --> ');
readln
(SO);
write
('Insira a sua nota a PRSI --> ');
readln (PRSI);
MED:=(AC*1+RC*2+SO*3+PRSI*4)/10;
writeln
('A sua m',char(130),'dia ponderada ',char(130),' de ',MED :3 :2);
readln;
end.
Exercício
20
program
reajuste;
uses crt;
var S,SCR:Real;
begin
writeln
('Este programa calcula como ficaria o seu saldo de telemovel se sofresse de
um reajuste de 1%');
writeln;
write
('Insira o seu saldo aqui: ');
readln (S);
SCR:=S+0.01*S;
writeln
('O seu Saldo com o reajuste de 1% ',char(130),' de ',SCR :6 :2);
readln;
end.
Exercício
21
program
prar;
uses
crt;
var
raio,perimetro,area:real;
begin
writeln
('Este programa calcula o perimetro e a ',char (160),'rea de um circulo');
writeln;
write
('Insira o raio do circulo: ');
readln
(raio);
perimetro:=2*3.14*raio;
area:=3.14*raio*raio;
writeln
('O perimetro do circulo ',char(130),' de ',perimetro :3 :2);
writeln;
writeln ('A area do circulo ',char(130),' de ',area :3
:2);
readln;
end.
Exercício
22
program
diametro_da_circunfrencia;
uses crt;
var d,c:real;
begin
writeln
('Este programa calcula a circunfr',char (136),'ncia apartir do seu diametro');
writeln;
write
('Insira o diametro da circunfr',char (136),'ncia: ');
readln
(d);
c:=3.14*d;
writeln
('A circunfr',char (136),'ncia ',char (130),' de: ',c :0 :2);
readln;
end.
Exercício
23
program
engordar_rox_sox;
uses crt;
var pg,pgeng:real;
begin
writeln
('Este programa diz-lhe qual seria o seu peso em gramas se engordasse 12%');
writeln;
write
('Insira o seu peso em gramas: ');
readln (pg);
pgeng:=pg+0.12*pg;
writeln
('Se voce engordasse 12% o seu peso em gramas seria de ',pgeng :0 :2);
readln;
end.
Exercício
24
program
dnl;
uses
crt;
var
d:real;
n:integer;
l:char;
begin
writeln
('Este programa apresenta-lhe uma quantidade de dinheiro, um n',char
(163),'mero');
writeln
('e uma letra, anteriormente inserida por si');
writeln;
write
('Insira uma quantidade de dinheiro: ');
readln
(d);
write
('Insira um n',char (163),'mero: ');
readln
(n);
write
('E por fim, insira uma letra: ');
readln
(l);
writeln;
writeln
('A quantidade de dinheiro inserida foi: ',d :0 :2);
writeln;
writeln
('O n',char (163),'mero inserido foi: ',n);
writeln;
writeln
('A letra inserida foi: ',l);
readln;
end.
Exercício
25
program
area_circulo;
uses crt;
var r,area:real;
begin
writeln
('Este programa calcula a area de um circulo apartir do raio(info. dada pelo
user)');
writeln
('Para tal ',char (130),' utilizada a seguinte formula:');
writeln ('Area = pi*r',char (253));
writeln;
write
('Insira o Raio do circulo: ');
readln
(r);
area:=
3.14*r*r;
writeln
('A ',char (160),'rea do circulo ',char (130),' de ',area :0 :2);
readln;
end.
Exercício
26
program
expressao_matematica;
uses crt;
var x,y,result:integer;
begin
Writeln
('Este programa calcula a seguinte express',char (132),'o matem',char
(160),'tica:');
writeln;
writeln ('Y',char (253),' (6Y + 9)');
writeln ('-----------');
writeln (' 7 +
3X ');
writeln;
write
('Insira o valor de X: ');
readln
(x);
write
('Insira o valor de Y: ');
readln (y);
result:=(y*y*(6*y+9)) DIV 7+3*x;
writeln
('O resultado da express',char(132),'o matem',char(160),'tica ',char(130),' de:
',result);
readln;
end.
Exercício
27
program
uber_conta;
uses crt;
var x1,x2,x3,y:real;
begin
writeln
('Este programa calcula o valor de Y apartir da seguinte formula:');
writeln;
writeln ('
X2 1 ');
writeln ('Y = X1 + ------- + 2 (X1 - X2) + --- X1 ');
writeln ('
X3 + X1 4 ');
writeln;
write
('Insira o valor de x1: ');
readln
(x1);
write
('Insira o valor de x2: ');
readln
(x2);
write
('Insira o valor de x3: ');
readln (x3);
y:=x1+(x2)/(x3+x1)+2*(x1+x2)+(x1/4);
writeln
('O resultado da express',char(132),'o ',char (130),' de =',y:8:2);
readln;
end.
Exercício
28
program
prestacao;
uses
crt;
var
prest,valor,taxa,tempo:real;
begin
writeln('Este
programa calcula apartir do valor da sua presta',char (135),char (132),'o
utilizando a seguinte formula: ');
writeln;
writeln
('Presta',char (135),char (132),'o = Valor+(Valor(Taxa/100)Tempo');
writeln;
write
('Insira o valor a pagar: ');
readln
(valor);
write
('Insira a taxa a pagar: ');
readln
(taxa);
write
('Insira o tempo que tem para pagar: ');
readln
(tempo);
prest:=valor+(valor*(taxa/100)*tempo);
writeln
('A presta',char(135),char(132),'o que tem a pagar ',char(130),' de: ',prest :7
:2);
readln;
end.
Exercício
29
program
contaz;
uses
crt;
var
n1,n2,produto,soma,sub,divis:real;
begin
writeln
('Este programa calcula a soma, a subtrac',char (135),char (132),'o, o produto
e a divis',char (132),'o entre 2 n',char (248),'s inseridos por si');
writeln;
write
('Insira um n',char(163),'mero: ');
readln
(n1);
write
('Insira um n',char(163),'mero que n',char(132),'o seja 0: ');
readln
(n2);
soma:=n1+n2;
sub:=n1-n2;
divis:=n1/n2;
produto:=n1*n2;
writeln
('A soma de ',n1 :0 :0,' com ',n2 :0 :0,' ',char (130),' de ',soma :3 :0);
writeln
('A subrac',char (135),char (132),'o de ',n1 :0 :0,' com ',n2 :0 :0,' ',char
(130),' de ',sub :3 :0);
writeln
('A divis',char (132),'o de ',n1 :0 :0,' com ',n2 :0 :0,' ',char (130),' de
',divis :3 :2);
writeln
('O produto de ',n1 :0 :0,' com ',n2 :0 :0,' ',char(130),' de ',produto :3 :0);
readln;
end.
Exercício
30
program
restaurante;
uses
crt;
var
despesa,gorgeta:real;
begin
writeln
('Este programa calcula o valor de uma gorgeta de 10% do valor da sua
refei',char (135),char (132),'o');
writeln;
write
('Insira a despesa que tem a pagar: ');
readln
(despesa);
gorgeta:=despesa+0.10*despesa;
writeln
('O pre',char (135),'o a pagar com a gorgeta de 10% ',char (130),' de ',gorgeta
:0 :2);
readln;
end.
Exercício
31
program
coca_cola;
uses crt;
var vol,r,alt:real;
begin
writeln
('Este programa calcula o volume de uma lata de coca-cola cujo seu raio e
altura ',char (130),'inserida por si');
writeln;
write
('Insira o valor do raio da lata de coca-cola: ');
readln
(r);
write
('Insira a altura da lata de coca-cola: ');
readln
(alt);
vol:=3.14*r*r*alt;
writeln
('O Volume da lata de coca-cola ',char (130),' de ',vol :0 :2);
readln;
end.
Exercício
32
program
raizes;
uses crt;
var n1,rzn1,qdn1:real;
begin
writeln
('Este programa calcula o quadrado e a raiz quadrada do n',char (163),'mero
inserido pelo util--izador');
writeln;
write
('Insira um n',char (163),'mero: ');
readln
(n1);
qdn1:=SQR(n1);
rzn1:=SQRT
(n1);
writeln
('A raiz quadrada de ',n1 :0 :0,' ',char (130),' ',rzn1 :0 :2,' e o quadrado de
',n1 :0 :0,' ',char (130),' ',qdn1 :0 :0);
readln;
end.
Exercício
33
program
fracao;
uses crt;
var n1,int,frac,arr:real;
begin
writeln
('Este programa Calcula apartir de um n',char (163),'mero dado pelo utilizador,
a parte inteiraa frac',char (135),'ion',char (160),'ria e o arredondamento
desse n',char (163),'mero');
writeln;
write
('Insira um n',char (163),'mero: ');
readln (n1);
int:=trunc(n1);
frac:=n1-trunc(n1);
arr:=round(n1);
writeln
('A parte inteira de ',n1 :0 :2,' ',char(130),' ',int :3 :0);
writeln
('A parte fraccion',char (160),'ria de ',n1 :0 :2,' ',char (130),' ',frac :0
:2);
writeln
('Quando arredondamos ',n1 :0 :2,' obtemos ',arr :0 :0);
readln;
end.
Exercício
34
program
temperaturas;
uses crt;
var F,C:integer;
begin
writeln
('Este programa diz a partir dos graus Centigrados que temos neste momento,
a temperatura em graus Fahrenheit' );
writeln;
writeln
('A forma para fazer tal calculo ',char (130),' a seguinte:');
writeln;
writeln ('
9C+160');
writeln ('F=--------');
writeln ('
5');
writeln;
write
('Insira a temperatura actual em graus centigrados: ');
readln (C);
F:=(9*C+160) div 5;
writeln
('A temperatura actual em
graus Fahrenheit ',char (130),' de ',F);
readln;
end.
Exercício
35
program
quadrados;
uses
crt;
var
n1,n2,qd,dq:real;
begin
writeln
('Este programa calcula o quadrado da diferen',char (135),'a do primeiro valor pelo
segundo e tambem, a diferen',char
(135),'a dos quadrados');
writeln;
write
('Insira um n',char (163),'mero: ');
readln
(n1);
write
('Insira outro n',char (163),'mero: ');
readln
(n2);
qd:=SQR(n1-n2);
dq:=SQR(n1)-SQR(n2);
writeln
('O Quadrado da diferen',char (135),'a de ',n1 :0 :0,' e ',n2 :0 :0,' e de ',qd
:0 :0);
writeln
('A Diferenca de ',n1 :0 :0,' com ',n2 :0 :0,' ',char (130),' de ',dq :0 :0);
readln;
end.
Exercício
36
program
zero_horas;
uses crt;
var m,t,hora:integer;
const h=60;
begin
writeln
('Este programa diz-lhe quantos minutos passaram desde as 0 Horas');
writeln;
write
('Insira as horas que s',char (132),'o neste preciso momento: ');
readln
(hora);
write
('Insira os minutos que s',char (132),'o neste preciso momento: ');
readln
(m);
t:=m+h*hora;
writeln
('Passaram se ',t,' minutos desde as 0 horas');
readln;
end.
Exercício
37
program
trocas;
uses crt;
var a,b,aux:integer;
begin
writeln
('Este programa troca o primeiro valor pelo segundo');
writeln;
write
('Insira o primeiro valor: ');
readln
(a);
write
('Insira o segundo valor: ');
readln (b);
aux:=a;
a:=b;
b:=aux;
writeln ('A = ',a,' B = ',b);
readln;
end.
Exercício
38
program
quadrado;
uses
crt;
var
lado,area:integer;
begin
writeln
('Este programa calcula a ',char(160),'rea de um quadrado apartir da seguinte
formula');
writeln;
writeln
('Area=Lado*Lado sendo "Lado"
inserido por si');
writeln;
write
('Insira o tamanho do lado do quadrado: ');
readln
(lado);
area:=lado*lado;
writeln
('A ',char (160),'rea do quadrado ',char (130),' de ',area);
readln;
end.
Exercício
39
program
triangulo;
uses crt;
var base,alt,area:real;
begin
writeln
('Este programa calcula a ',char(160),'rea do tri',char(131),'ngulo apartir da
sua altura e base');
writeln;
write
('Insira a altura do tri',char(131),'ngulo: ');
readln
(alt);
write
('Insira a base do tri',char(131),'ngulo: ');
readln
(base);
area:=base*alt;
writeln
('A ',char(160),'rea do tri',char(131),'ngulo ',char(130),' ',area :0 :2);
writeln;
writeln ('
/\ ');
writeln (' /
\ ');
writeln ('/____\
');
readln;
end.
Exercício
40
program
numerossss;
uses
crt;
var
n1,n2,n3,soma,prod:integer;
begin
writeln
('Este programa calcula o produto e a soma de 3 n',char(163),'meros inseridos
por si');
writeln;
write
('Insira um n',char(163),'mero: ');
readln
(n1);
write
('Insira o segundo n',char(163),'mero: ');
readln
(n2);
write
('Insira o ter',char(135),'eiro n',char(163),'mero: ');
readln
(n3);
soma:=n1+n2+n3;
prod:=n1*n2*n3;
writeln
('A soma dos 3 n',char(163),'meros ',char (130),' de ',soma,' e o seu produto
',char(130),' de ',prod);
readln;
end.
Exercício
41
program
media_nota;
uses crt;
var ntp,nt,nr,med:real;
begin
writeln
('Este programa calcula a m',char (130),'dia tendo em conta que a nota do
trabalho pr',char(160),'tico conta
50%, a do teste 30% e a do relat',char(162),'rio conta 20%');
writeln;
write
('Insira a nota do trabalho pr',char(160),'tico: ');
readln
(ntp);
write
('Insira a nota do teste: ');
readln
(nt);
write
('Insira a nota do relat',char(162),'rio: ');
readln (nr);
med:=ntp*0.5+nt*0.3+nr*0.2;
writeln
('A m',char(130),'dia ',char(130),' de ',med :0 :2);
readln;
end.
Exercício
42
program
divisoes2;
uses
crt;
var
n1,n2,quociente,resto:integer;
begin
writeln
('Este programa calcula o divisor, o divid',char (136),'ndo o quociente e o
resto da divis',char(132),'o entre os 2
n',char(163),'meros inseridos por si');
writeln;
write
('Insira um n',char(163),'mero: ');
readln
(n1);
write
('Insira outro n',char(163),'mero: ');
readln
(n2);
resto:=n1
MOD n2;
quociente:=n1
DIV n2;
writeln
('Divid',char(136),'ndo= ',n1);
writeln ('Divisor= ',n2);
writeln ('Quociente= ',quociente);
writeln ('Resto= ',resto);
readln;
end.
Exercício
43
program
comida_do_bar;
uses
crt;
const
bolos=0.75;
sandes=0.35;
sumos=0.80;
cafe=0.40;
var
montap:real;
nbolos,nsandes,nsumos,ncafe:integer;
begin
writeln
('Este programa calcula o montante a pagar dependendo do que voce pede num
bar');
writeln
('A tabela de pre',char (135),'os ',char (130),' a seguinte: ');
writeln
('Bolos --> 0.75 euros');
writeln
('Sandes --> 0.35 euros');
writeln ('Sumos --> 0.80 euros');
writeln ('Cafe --> 0.40 euros');
writeln;
write
('Insira a quantidade de bolos que comeu: ');
readln
(nbolos);
write
('Insira a quantidade de sandes que comeu: ');
readln
(nsandes);
write
('Insira a quantidade de sumos que bebeu: ');
readln
(nsumos);
write
('Insira a quantidade de caf',char(130),'s que bebeu: ');
readln
(ncafe);
montap:=nbolos*bolos+nsandes*sandes+nsumos*sumos+ncafe*cafe;
writeln
('O montate a pagar ',char (130),' de ',montap :0 :2,'euros');
readln;
end.
Exercício
44
program v1;
uses
crt;
var
l,c,a:real;
begin
writeln
('Este programa calcula a ',char(160),'rea de uma sala');
writeln
('Para tal ',char(130),' necess',char (160),'rio que insira o comprimento e
largura da sala');
writeln;
write
('Insira a largura da sala: ');
readln
(l);
write
('Insira o comprimento da sala: ');
readln (c);
a:=l*c;
writeln
('A ',char(160),'rea da sala com ',l :0 :2,' de largura e ',c :0 :2,' de
comprimento ',char (130),' de ',a :0 :2);
readln;
end.
Exercício
45
program
v2;
uses
crt;
var
l,c,a:real;
begin
writeln
('Este programa calcula uma ',char(160),'rea rect',char(131),'ngular');
writeln
('Ap',char (162),'s inserir cada valor prima a tecla enter');
writeln;
writeln
('Insira a largura e o comprimento');
readln (l,c);
a:=l*c;
writeln
('A ',char(160),'rea ',char(130),' de ',a:0 :2,'m',char(253));
readln;
end.
Exercício
46
program
testesss;
uses crt;
var t1,t2,t3,m:real;
begin
writeln
('Este programa calcula a sua m',char(130),'dia de 3 testes');
writeln;
write
('Insira a nota do primeiro teste: ');
readln
(t1);
writeln;
write
('Insira a nota do segundo teste: ');
readln
(t2);
writeln;
write
('Insira a nota do terceiro teste: ');
readln (t3);
writeln;
m:=(t1+t2+t3)/3;
writeln
('A sua m',char (130),'dia dos testes ',char(130),' de : ',m :0 :1);
readln;
end.
Exercício
47
program
expressao_matematica;
uses crt;
var x,y,result:integer;
begin
Writeln
('Este programa calcula a seguinte express',char (132),'o matem',char
(160),'tica:');
writeln;
writeln ('Y',char (253),' (6Y + 9)');
writeln ('-----------');
writeln (' 7 +
3X ');
writeln;
write
('Insira o valor de X: ');
readln
(x);
write
('Insira o valor de Y: ');
readln (y);
result:=(y*y*(6*y+9)) DIV 7+3*x;
writeln
('O resultado da express',char(132),'o matem',char(160),'tica ',char(130),' de:
',result);
readln;
end.
Exercício
48
program
viagem;
uses crt;
var kinic,kfim,gasol,gcem:real;
begin
writeln
('Este programa calcula os litros de gasolina gastos aos 100 KMs');
writeln;
write
('Insira os quilometros que o autocarro marcava ao inicio da viagem: ');
readln
(kinic);
write
('Insira os quilometros que o autocarro marcava no fim da viagem: ');
readln
(kfim);
write
('Insira a gasolina que meteram no autrocarro: ');
readln
(gasol);
gcem:=100*(gasol/(kfim-kinic));
writeln
('A gasolina gasta aos 100 KMs ',char (130),' de ',gcem :0 :2);
readln;
end.
Exercício
49
program
empregada;
uses crt;
var hpd,dph,dps,dqnt,salm,sald,salqd,saldm:real;
nome:string;
begin
writeln
('Este programa pede o seu nome e calcula quanto ganharia num dia, em 30 dias,
em 15 dias e em 60 dias');
writeln;
write
('Insira o seu nome: ');
readln
(nome);
writeln;
write
('Insira as horas que trabalha por dia: ');
readln
(hpd);
writeln;
write
('Insira quanto ganha por hora: ');
readln
(dph);
writeln;
write
('Insira quantos dias trabalha por semana: ');
readln (dps);
writeln;
dqnt:=7-dps;
salm:=hpd*dph*(30 - dqnt);
sald:=hpd*dph;
salqd:=hpd*dph*(15 - dqnt);
saldm:=hpd*dph*(60 - dqnt);
writeln
('Cara ',nome);
writeln
('Por cada dia, ganha = ',sald :0:2);
writeln
('Por 15 dias, ganha = ',salqd :0:2);
writeln
('Por 30 dias, ganha = ',salm :0:2);
writeln
('Por 60 dias, ganha = ',saldm :0:2);
readln;
end.
Exercício
50
program
divisoes_v123;
uses crt;
var x,y,result,int:real;
begin
writeln
('Este programa calcula o n',char (163),'merador e o denominador de uma
frac',char(135),char(132),'o e depois
transforma o resultado num n',char(248),' decimal');
writeln
('Para isso ',char (130),' vamos necessitar que complete esta
divis',char(132),'o: ');
writeln;
writeln (' X ');
writeln ('---');
writeln (' Y ');
writeln;
write ('Insira o n',char (163),'merador (X): ');
readln (x);
write ('Insira
o denominador (Y): ');
readln (y);
result:= x / y;
int:=
ABS (result);
writeln
('O resultado da divis',char (132),'o entre ',x :0 :2,' e ',y :0 :2,' ',char
(130),' de ',int :0 :2);
writeln;
writeln;
writeln (' ',x
:0 :2);
writeln ('
------- = ',int :0 :2);
writeln (' ',y
:0 :2);
readln;
end.
Exercício
51
program
catetos;
uses crt;
var cat,cat2,hipt2,hipt:real;
begin
writeln
('Este programa calcula o valor da hip',char(162),'tenusa',char(253));
writeln;
write
('Insira o valor de um dos catetos: ');
readln
(cat);
write
('Insira o valor do outro cateto: ');
readln (cat2);
hipt2:=(cat*cat)+(cat2*cat2);
hipt:=SQRT(hipt2);
writeln
('O valor da hip',char(162),'tenusa',char (253),' ',char (130),' de : ',hipt :0
:2);
readln;
end.
Sem comentários:
Enviar um comentário