Trabalho de linguagem de Programação

...

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

...