Pascal

Disponível somente no TrabalhosFeitos
  • Páginas : 6 (1421 palavras )
  • Download(s) : 0
  • Publicado : 1 de abril de 2013
Ler documento completo
Amostra do texto
Trabalho da lista de exercícios em Pascal:
1) Faça um algoritmo que solicite ao usuário dois números e exiba o resultado da soma dos números lidos.

program Untitled;
uses crt;
var n1,n2:integer;
soma:integer;
begin
write('Digite um numero:');
readln(n1);
write('Digite outro numero:');
readln(n2);
soma:=n1+n2;
writeln('a soma eh;',soma);
readkey;
end.

2) Faça um algoritmoque solicite ao usuário dois números e exiba o resultado da soma dos números lidos.

program Untitled;
uses crt;
var n1,n2:integer;
soma,subtracao,mult:integer;
divisao:real;
begin
write('Digite um numero:');
readln(n1);
write('Digite outro numero:');
readln(n2);
soma:=n1+n2;
subtracao:=n1-n2;
mult:=n1*n2;
divisao:=n1/n2;
writeln('a soma eh;',soma);
writeln('a subtracaoeh;',subtracao);
writeln('a multiplicacao eh;',mult);
writeln('a divisao eh;',divisao:0:0);
readkey;
end.

3) Faça um algoritmo que solicite ao usuário um número qualquer e exiba o seu dobro.

Program Untitled;
uses crt;
var n1:integer;
soma:integer;
begin
write('Digite um numero:');
readln(n1);
soma:=n1+n1;
writeln('o dobro eh;',soma);
readkey;
end.

4)Escrever um algoritmopara determinar o consumo médio de um automóvel sendo fornecidos a distância total percorrida pelo automóvel e o total de combustível gasto

program Untitled;
uses crt;
var n1,n2:integer;
divisao:real;
begin
write('Digite a distancia percorrida:');
readln(n1);
write('Coloque os litros de gasolina:');
readln(n2);
divisao:=n1/n2;
writeln('km;',divisao:0:0);
readkey;
end.

5)Faça um programa que troque o valor de A e B.

program Untitled;
uses crt;
var n1,n2,A,B:integer;
begin
write('O valor de A eh:');
readln(n1);
write('O valor de B eh:');
readln(n2);
writeln;
A:=n2;
B:=n1;
writeln('o valor trocado eh;',A,B);
readkey;
end.

6)Faça um Programa que mostre a mensagem "Alo mundo" na tela.
program Untitled;
uses crt;
begin
write('Alo mundo');readkey;
end.

7) Faça um Programa que peça um número e então mostre a mensagem O número informado foi [número]
program Untitled;
uses crt;
var n1:integer;
begin
write('Digite um numero:');
readln(n1);
writeln('o numero digitado foi:',n1);
readkey;
end.

8) Faça um Programa que peça dois números e imprima a soma.
program Untitled;
uses crt;
var n1,n2:integer;
soma:integer;
beginwrite('Digite um numero:');
readln(n1);
write('Digite outro numero:');
readln(n2);
soma:=n1+n2;
writeln('a soma eh;',soma);
readkey;
end.

9) Faça um Programa que peça as 4 notas bimestrais e mostre a média.
program Untitled;
uses crt;
var n1,n2,n3,n4:integer;
soma:integer;
divisao:real;
begin
write('Digite a nota da 1 prova:');
readln(n1);
write('Digite a nota da 2prova:');
readln(n2);
write('Digite a nota da 3 prova:');
readln(n3);
write('Digite a nota da 4 prova:');
readln(n4);
soma:=n1+n2+n3+n4;
divisao:=soma/4;
writeln('a média eh:',divisao:0:0);
readkey;
end.

10)Faça um Programa que converta metros para centímetros.
program Untitled;
uses crt;
var n1:integer;
multi:integer;
begin
write('Digite a metragem:');
readln(n1);multi:=n1*100;
writeln('em centimetros eh:',multi);
readkey;
end.

11) Escrever um algoritmo que leia o nome de um vendedor, o seu salário fixo e o total de vendas efetuadas por ele no mês (em dinheiro). Sabendo que este vendedor ganha 15% de comissão sobre suas vendas efetuadas, informar o seu salário no final do mês.

program Untitled;
uses crt;
var nome:string;
n1,n2,com,n3:real;
beginwrite('Digite o nome do vendedor: ');
readln(nome);
write('Digite seu salario fixo: ');
readln(n1);
write('Digite total de vendas: ');
readln(n2);
com:=n2*15/100;
n3:=n1+com;
writeln('Comissao: ',com:0:00);
writeln('Salario final: ',n3:0:00);
readkey;
end.

12)Faça um Programa que calcule a área de um quadrado, em seguida mostre o dobro desta área para o usuário....
tracking img