Pasc

Disponível somente no TrabalhosFeitos
  • Páginas : 27 (6642 palavras )
  • Download(s) : 0
  • Publicado : 29 de maio de 2012
Ler documento completo
Amostra do texto
alProgramas em Pascal
Resolução – Lista 01
01. Faça um algoritmo que leia os valores A, B, C e diga se a soma de A + B é menor que C.
program valores;
var
a, b, c, soma:real;
begin
writeln('Digite o valor para a:');
readln(a);
writeln('Digite o valor para b:');
readln(b);
writeln('Digite o valor para c:');
readln(c);
soma:=a+b;
if soma<=c then
begin
writeln('A soma de A + B émenor que C');
readln;
end
else
writeln('A soma de A + B eh maior que C');
readln;
end.
02. Faça um algoritmo que leia dois valores inteiros A e B se os valores forem iguais deverá se somar os dois, caso contrário multiplique A por B ao final do calculo atribuir o valor para uma variável C.
program valores_A_B;
var
a, b:integer;
c:real;
begin
writeln('Digite o valor para a:');readln(a);
writeln('Digite o valor para b:');
readln(b);
if a=b
then begin
c:=a+b;
writeln('A soma de A + B foi atribuida a C:',c:5:2);
readln;
end
else begin
c:=a*b;
writeln('A multiplicacao de A x B foi atribuida a C:',c:5:2);
readln;
end
end.
03. Faça um algoritmo que leia o nome e a três notas de uma disciplina de um aluno e ao final escreva o nome do aluno, sua média e se ele foiaprovado a média é 8.
program Media_alunos;
const
ap=8;
var
nota1, nota2, nota3, media:real;
nome:string;
begin
writeln('Digite o nome do aluno:');
readln(nome);
writeln('Digite a nota1:');
readln(nota1);
writeln('Digite a nota2:');
readln(nota2);
writeln('Digite a nota3:');
readln(nota3);
media:=(nota1+nota2+nota3)/3;
if media >=ap
then begin
writeln('Nome do aluno:',nome);readln;
writeln('A media do aluno eh:',media:5:2,'APROVADO' );
readln;
end
else begin
writeln('Nome do aluno:',nome);
readln;
writeln('A media do aluno eh:',media:5:2,'APROVADO' );
readln;
end
end.
04. Faça um algoritmo que leia 3 números inteiros e imprima o menor deles.
program Numeros_inteiros;
var
n1, n2, n3:integer;
begin
writeln('Digite o primeiro numero:');
readln(n1);writeln('Digite o segundo numeo:');
readln(n2);
writeln('Digite o terceiro numero:');
readln(n3);
if (n1<n2) and (n1<3)
then begin
writeln('O menor numero eh N1:',n1);
readln;
end;
if (n2<n1) and (n2<n3)
then begin
writeln('O menor numero eh N2:',n2);
readln;
end;
if (n3<n1) and (n3<n2)
then begin
writeln('O menor numero eh N3:',n3);
readln;
end ;
end.
05. As vendasparcelas se tornaram uma ótima opção para os lojistas, que a cada dia criam novas promoções para tentar conquistar novos clientes. faça um programa onde o lojista possa entrar com o preço do produto e receba as seguintes informações:
* o valor com 10% de desconto para pagamento à vista
* o valor da prestação para parcelamento sem juros, em 5x
* o valor da prestação para parcelamentocom juros, em 10x, com 20% de acréscimo no valor do produto.
program loja;
var
produto:string;
valorp, vpav, vppar, vpparcd:real;
begin
writeln('Digite o nome do produto:');
readln(produto);
writeln('Digite o valor do produto:');
readln(valorp);
vpav:=valorp-valorp*0.1;
vppar:=valorp/5;
vpparcd:=(valorp*0.2+valorp)/10;
Writeln('O valor com desconto de 10% a vista',vpav:5:2);
readln;Writeln('Valor da prestacao sem juros',vppar:5:2);
readln;
Writeln('Valor da prestacao, com acrescimo de 20%',vpparcd:5:2);
readln;
end.
06. Quando nós brasileiros visitamos os EUA, o primeiro impacto é a temperatura, que é medida em Fahrenheit. faça um algoritmo que ajude os turistas, onde seja informada a temperatura em Fahrnheit e seja mostrada a temperatura em graus centígrados.
Fórmula:C/5 = (°F - 32)/9
program temperatura;
var
temp, temp1, tempc:real;
begin
writeln('Digite a temperatura em Fahrenheit:');
readln(temp);
tempc:=((temp-32)/9);
temp1:=tempc*5;
Writeln('A temperatura em graus centígrados',temp1:5:2);
readln;
end.
07. Desenvolva um algoritmo que calcule o consumo de combustível de um automóvel em uma determinada viagem. O programa deve solicitar as...
tracking img