Comandos read/readln
Os comandos read e readln são usados para ler o valor de uma variável de um dispositivo de
entrada de dados. A diferença entre os dois comandos é que o comando readln processa uma
quebra de linha após a leitura do valor de uma variável, enquanto o read não o faz.

Comando readkey; {espera o utilizador pressionar uma tecla – "Pausa"}

Isto e muito mais para um bom início em Introdução à linguagem Pascal (acesso rápido mos links do blogue)

Estudar fora do país?

Sim, nas instituições da Global University Systems!

Clicar para aceder Introdução à Programação

Para visualizar, clique em Planificação 1º Período

Apresentação

Enviar uma mensagem para correio.aluno@gmail.com, com a seguinte informação:

• Apresentação (não esquecer de mencionar a turma)
• Conhecimentos de informática
• Qual é a utilização que fazes do computador
• As expectativas da disciplina

Criar uma pasta na drive Google, com o seguinte nome: 12º Turma  AI  nome, como exemplo: "12ºD AI Ana Silva"

Partilhar a pasta criada com o seguinte endereço: correio.aluno@gmail.com

Bom ano letivo! 😊

PS:

Se tiveres fome, pede para ir comer fora da sala, recomenda-se que não se coma dentro da sala de aula.

Antes de saires da sala, encerra a sessão do teu computador.

Misturar duas caras

How to Blend Two Faces in Adobe Photoshop Cs6

Pasta com Photoshop versão portátil

A nota do teste irá fazer média com a nota do trabalho de recuperação, pois há trabalhos que não foram realizados individualmente.
Esta situação só acontece quando a nota do teste é inferior à nota do trabalho entregue. Alunos que obtiveram boa nota no teste e por essa razão não realizaram trabalho, ficam com a boa nota do teste.

Consultar aqui os  Critérios de avaliação

Exemplos de exercícios em Visual Basic

Para aceder ao Manual, clicar aqui Manual Visual Basic

Programa no Visual Basic que leia dois números inteiros e faça a sua soma.

Programa no Visual Basic que leia uma frase e reescreva em letras maiúsculas e em letras minúsculas.

Para aceder ao enunciado da Ficha Nº 1, clicar aqui

Para aceder à resolução da Ficha Nº 1, clicar aqui

Aceder ao link https://visualstudio.microsoft.com/pt-br/

Escolher a opção Community 2017

Introdução à Programação Orientada por Objectos

Para aceder ao conteúdo da apresentação clicar aqui, para o formato PDF clicar aqui

Para aceder ao Manual, clicar aqui Manual Visual Basic

Ficheiro para instalar o VB

Para aceder ao ficheiro de instalação,clicar aqui

Visualizar o processo de instalação aqui

Enunciado Programa Calculadora

Com recurso ao CASE elabore uma calculadora que permita efetuar as operações entre 2 números, operações de + - X e /. Consoante a opção do utilizador.

Restruture o algoritmo para que, na divisão, alerte o utilizador no caso de b=0, indicando que não é possível dividir por 0.

Restruture o algoritmo para que, permita ao utilizador continuar a fazer cálculos. O programa apenas termina se o utilizador escolher a opção sair.

Para aceder à solução, clicar aqui

Programa Calculadora

Duas versões diferentes...

Program casex; Label 1; Var Menu : Integer; A,B: Real; Sair : Char; Begin 1:Clrscr; Writeln ('Escolha uma opção:'); Writeln ('1 - Adição'); Writeln ('2 - Subtração'); Writeln ('3 - Multiplicação'); Writeln ('4 - Divisão'); Writeln ('5 - Sair'); Readln (Menu); Case Menu Of // ADIÇÃO 1 : Begin Clrscr; Writeln ('Digita 2 números:'); writeln(); Write ('Número 1: '); Readln (A); Write ('Número 2: '); Readln (B); Writeln (A:6:1, ' + ',B:6:1,' = ',A+B:6:1); Writeln ('Pressiona qualquer tecla para voltar ao menu...'); Readkey; Goto 1; End; // SUBTRAÇÃO 2 : Begin Clrscr; Writeln ('Digita 2 números:'); writeln();  Write ('Número 1: '); Readln (A); Write ('Número 2: '); Readln (B); Writeln (A:6:1, ' - ',B:6:1,' = ',A-B:6:1); Writeln ('Pressiona qualquer tecla para voltar ao menu...'); Readkey; Goto 1; End; // MULTIPLICAÇÃO 3 : Begin Clrscr; Writeln ('Digita 2 números:'); writeln(); Write ('Número 1: '); Readln (A); Write ('Número 2: '); Readln (B); Writeln (A:6:2, ' X ',B:6:2,' = ',A*B:6:2); Writeln ('Pressiona qualquer tecla para voltar ao menu...'); Readkey; Goto 1; End; // DIVISÃO 4 : Begin Clrscr; Writeln ('Digita 2 números:'); writeln();  Write ('Número 1: '); Readln (A); Write ('Número 2: '); Readln (B); If B=0 Then Writeln ('Man... Digitaste um zero, não dá para fazer a divisão...') Else Writeln (A:6:2, ' : ',B:6:2,' = ',A/B:6:2); Writeln ('Pressiona qualquer tecla para voltar ao menu...'); Readkey; Goto 1; End; // SAIR 5 : Begin Clrscr; Writeln ('Tens a certeza que queres sair? S/N'); Readln (Sair); If (Sair='S') or (Sair='s') Then Halt; If (Sair='N') or (Sair='n')Then Goto 1; End; Else Writeln ('Esse número não existe no menu!'); Readkey; Goto 1; End; End.

program calculadora; Label 1,2;  var x,y,op: integer; YN : Char; begin 1:Clrscr; writeln(' Escolha uma das opções abaixo: '); writeln(' 1. Soma '); writeln(' 2. sub '); writeln(' 3. mult '); writeln(' 4. div '); writeln(' 5. Sair '); write(' Digite a opção desejada: '); readln(op); if op=5 then   goto 2; write(' Digite o valor do primeiro Numero '); readln(x); write(' Digite o valor do segundo Numero '); readln(y); CASE op OF 1: begin writeln(' Opção Selecionada: 1. Soma '); writeln(' A soma dos dois números é: ', (x+y)); writeln(' prima uma tecla para voltar ao menu '); readln(); Goto 1; end; //fim caso 1 2: begin writeln(' Opção Selecionada: 2. Subtração '); writeln(' A subtração dos dois números é: ', (x-y)); writeln(' prima uma tecla para voltar ao menu '); readln(); Goto 1; end; //fim caso 2 3: begin writeln(' Opção Selecionada: 3. Multiplicação '); writeln(' A multiplicação dos dois números é: ', (x*y)); writeln(' prima uma tecla para voltar ao menu '); readln(); Goto 1; end; //fim caso 3 4: begin writeln(' Opção Selecionada: 4. Divisão '); if(y=0)then  begin    writeln(' Não existe divisão por zero. ');    writeln(' prima uma tecla para voltar ao       menu ');    readln();    Goto 1;  end //fim IF else   begin    writeln(' A divisão dos dois números é: ', (x/y):3:2);    writeln(' prima uma tecla para voltar ao    menu ');    readln();    Goto 1;   end; //fim else end;//fim caso 4 5: begin 2:ClrScr; Write('Are you sure?(Y/N)'); YN := Readkey; If (YN = 'y') or (YN = 'Y') Then Halt;  If (YN = 'n') or (YN = 'N') Then Goto 1;  end; //fim caso 3 else writeln(' Opção Inválida. '); end; //fim switch/case readln(); end. //fim programa principal

Para aceder ao ficheiro em Pascal, clicar aqui

Programa Calculadora

Com recurso ao CASE elabore uma calculadora que permita efetuar as operações entre 2 números, operações de + - X e /. Consoante a opção do utilizador.

Restruture o algoritmo para que, na divisão, alerte o utilizador no caso de b=0, indicando que não é possível dividir por 0.

Restruture o algoritmo para que, permita ao utilizador continuar a fazer cálculos. O programa apenas termina se o utilizador escolher a opção sair.

Para aceder à solução, clicar aqui

Programas Notas

Elabora um programa que indique a nota qualitativa de um determinado aluno, tendo por base a nota quantitativa. O programa deve mostrar uma mensagem de "parabéns" no caso de o aluno ter sucesso ou "Tenta de novo" para o caso de insucesso.

//M.insuf <19
//insuf entre 20 e 50
//suf entre 50 e 75
//bom entre 75 e 90
// M.BOM >90

• Restruture o programa para que alerte o utilizador no caso de o valor introduzido ser superior a 100 ou inferior a 0.
• Restruture o programa para que, caso se verifique o ponto anterior, dê oportunidade ao utilizador de reintroduzir a nota.

Ficha de Trabalho nº7

Aceder ao conteúdo da ficha aqui

Estuturas de repetição

Estruturas de Repetição --> controlada no Início: while...do

Exemplo de um programa com a estrutura de repetição While.

O programa calcula o somatório de todos os números não nulos introduzidos pelo utilizador; o zero é utilizado para finalizar a introdução dos números.

  

Programa Seleção Multipla

Programa com comando de seleção múltipla case...of

O que fazem estes programas em Pascal?

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.