Trabalho de linguagem de Programação
Por: SonSolimar • 18/10/2017 • 1.527 Palavras (7 Páginas) • 513 Visualizações
...
end;
if (qtd_adquirida >= 5 )and (qtd_adquirida
begin
desconto := (total * 0.97);
writeln (' ');
writeln ('Descricao do produto: ',descricaoprod);
writeln ('A quantidade de produto na cesta: ',qtd_adquirida:0:2);
writeln ('O preço por unidade: ',precouni:0:2);
writeln (' ');
writeln ('A sua compra custou : R$ ', total:0:2);
writeln ('A sua compra com desconto de 3% , valor: R$ ',desconto:0:2);
writeln (' ');
end;
if (qtd_adquirida >= 11) then
begin
desconto := (total * 0.95);
writeln (' ');
writeln ('Descricao do produto: ',descricaoprod);
writeln ('A quantidade de produto na cesta: ',qtd_adquirida:0:2);
writeln ('O preço por unidade: ',precouni:0:2);
writeln;
writeln ('A sua compra custou : R$ ', total:0:2);
writeln ('A sua compra com desconto de 5% , valor: R$ ',desconto:0:2);
writeln (' ');
end;
end;
readkey;
End.
- Escreva um programa que irá receber 10 valores inteiros e irá colocar em dois vetores (vet1 e vet2) com 5 elementos cada.. Após a recepção desses valores, você deverá somar o primeiro elemento do vet1 com o quinto elemento de vet2 e armazenar na primeira posição de vet 1; somar o segundo elemento do vet1 com o quarto elemento de vet2 e armazenar na segunda posição de vet 1; e assim por diante. Ao fim do processo, imprima os valores armazenados em vet1.
R.
program atividade2_q3;
uses crt;
Var
v1 : array[1..5] of real;
v2 : array[1..5] of real;
cont : integer;
Begin
clrscr;
//Laço para colocar valores nos vetores
for cont:= 1 to 5 do
begin
Writeln('Digite um valor para v1');
readln(v1[cont]);
end;
For cont:= 1 to 5 do
begin
Writeln('Digite um valor para vetor2');
readln(v2[cont]);
end;
//Soma dos vetores
v1[1] := v1[1]+v2[5];
v1[2] := v1[2]+v2[4];
v1[3] := v1[3]+v2[3];
v1[4] := v1[4]+v2[2];
v1[5] := v1[5]+v2[1];
Writeln('A soma da Posisão 1 Vetor1 + Posicao 5 Vetor2 eh: ',v1[1]:0:1);
Writeln('A soma da Posicao 2 Vetor1 + Posicao 4 Vetor2 eh: ',v1[2]:0:1);
Writeln('A soma da Posicao 3 Vetor1 + Posicao 3 Vetor2 eh: ',v1[3]:0:1);
Writeln('A soma da Posicao 4 Vetor1 + Posicao 2 Vetor2 eh: ',v1[4]:0:1);
Writeln('A soma da Posicao 5 Vetor1 + Posicao 1 Vetor2 eh: ',v1[5]:0:1);
Readkey;
end.
- Faça um algoritmo que leia o nome, o sexo, a altura e a idade de uma pessoa. Calcule e mostre nome e o seu peso ideal de acordo com as seguintes características da pessoa:
[pic 2]
R.
Program atividade2_q4;
uses crt;
//Calcular o peso ideal de uma pessoa
var
nome, sexo: string;
var
idade, altura, peso : real;
Begin
clrscr;
write ('Qual seu nome? ');
readln (nome);
writeln ('Qual o Sexo da pessoa?');
write ('Masculino ou Feminino: ');
readln (sexo);
write ('Digite a sua altura: ');
readln (altura);
write ('Digite sua idade: ');
readln (idade);
clrscr;
Begin
if (sexo = 'Masculino') then
Begin
if (altura > 1.71) and (idade
begin
peso
...