Trabalho de linguagem de Programação
Por: Francisco Adriano Pereira Freire • 21/2/2016 • Trabalho acadêmico • 3.765 Palavras (16 Páginas) • 629 Visualizações
[pic 1]
UNIVERSIDADE ABERTA DO BRASIL
Outubro de 2015
Curso: Licenciatura em Informática
Disciplina: PCC - Algoritmos e Programação
- Escreve um código com duas variáveis strings: uma contendo uma frase e outra contendo uma palavra. E imprima na tela o número de vezes que a palavra ocorre na frase.
R.
Program atividade2_q1;
var
frase, palavra: string;
quantidade: integer;
// Programa para verificar a quantidade de vezes que uma palavra aparece numa frase
function contadorPalavra(frase, palavra: String):
integer;
var
t, i: integer;
p: string;
begin
contadorPalavra:= 0;
t:= length(frase);
p:= '';
for i:= 0 to t-1 do
begin
if (frase[i] <> char(32)) then
begin
p:= p + frase[i];
if (p = palavra) then
contadorPalavra:= contadorPalavra + 1;
end
else
p:= '';
end;
end;
begin
writeln('Digite uma frase: ');
readln (frase);
writeln('Digite uma palavra e quantas vezes ela aparece na frase : ');
readln(palavra);
quantidade:= contadorPalavra(frase, palavra);
writeln(quantidade);
readln;
End.
- Elabore um algoritmo para ler a descrição do produto, a quantidade adquirida e o preço unitário. Calcular e escrever o total (total = quantidade adquirida * preço unitário), o desconto e o total a pagar (total a pagar = total - desconto). Considere que para:
- Quantidade <= 5, o desconto será respectiva de 2%;
- Quantidade > 5 e quantidade <=10, o desconto será de 3%
- Quantidade > 10, terá 5% de desconto;
R.
Program atividade2_q2;
uses crt;
var
descricaoprod : string;
qtd_adquirida,precouni,total, total_apagar, desconto : real;
Begin
clrscr;
writeln ('Entre com a descricao do produto: ');
read (descricaoprod);
writeln ('Digite a quantidade adquirida: ');
read (qtd_adquirida);
writeln ('Qual o valor do produto?: ');
read (precouni);
total := qtd_adquirida * precouni;
clrscr;
begin
if (qtd_adquirida <= 5) then;
begin
desconto := (total * 0.98);
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 2% , valor: R$ ',desconto:0:2);
writeln (' ');
end;
if (qtd_adquirida >= 5 )and (qtd_adquirida <= 10)then
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);
...