ATIVIDADE_SUPLEMENTAR

Prévia do material em texto

1
	ATIVIDADE SUPLEMENTAR
	
	Polo:
	Curso: Sistemas de Informação
	Período:
1º
	
	Disciplina: Técnicas de Programação I
	Nota:
	
	Professor(a): Andrea Cristina Oliveira Alves
	Valor: 
	
	Aluno(a): Letícia Rosa Camargo
	Data: 14/04/2015
.
Dados três valores A, B e C, em que A e B são números reais e C é um caractere, pede-se para imprimir o resultado da operação de A por B se C for um símbolo de operador aritmético; caso contrário deve ser impressa uma mensagem de operador não definido. 
Program atv1 ;
	var A, B: real;
	var C: char;
Begin
 writeln('Digite o valor de A:');
 readln(A);
 writeln('Digite o valor de B');
 readln(B);
 writeln('Digite C:');
 readln(C);
 
 case C of
 '+': writeln(A+B);
 '*': writeln(A * B);
 '/': writeln(A / B);
 '-': writeln(A - B);
 
 else
 	writeln('Operador não definido.')
	end;
	readln();
End.
Faça um algoritmo para ler o código e o preço de 15 produtos, calcular e escrever: - o maior preço lido - a média aritmética dos preços dos produtos
program produtos;
var codigo, media, soma, maior, menor: real;
 i: integer;
		valor: array [1 .. 15] of real;
 produto: string;
begin
 for i := 1 to 15 do
 begin
 WriteLn('Digite o codigo do produto');
 readln(codigo);
 writeln('Digite o nome do produto');
 readln(produto);
 writeln('Digite o valor do produto');
 readln(valor[i]);
 end;
 soma := valor[1] + valor[2] + valor[3] + valor[4] + valor[5] + valor[6] + valor[7] + valor[8] + valor[9] + valor[10] + valor[11] + valor[12] + valor[13] + valor[14] + valor[15];
 writeln('A soma dos produtos é de:', soma);
 media := soma / 15;
 writeln('A média dos produtos é de:', media);
	menor := valor[1];
	for i:=1 to 15 do
		begin
		if(valor[i] > maior) then
	maior := valor[i];
	end;
	if (valor[i] < menor) then
	begin
		menor := valor[i];
	end;
	writeln('O maior preço lido dos produtos é de:', maior);
	writeln('O menor preço lido dos produtos é de:', menor);
	readln;
end.
Escreva um algoritmo para ler 2 valores e se o segundo valor informado for ZERO, deve ser lido um novo valor, ou seja, para o segundo valor não pode ser aceito o valor zero e imprimir o resultado da divisão do primeiro valor lido pelo segundo valor lido. (utilizar a estrutura REPITA e depois reescreva utilizando enquanto).
REPEAT
Program Pzim ;
	var valor1, valor2, divisao: real;
Begin
	writeln('Digite o primeiro valor:');
	readln(valor1);
	repeat
		writeln('Digite o segundo valor:');
		readln(valor2);
		until(valor2<>0);
		writeln('A divisão entre os valores é de:', valor1/valor2); 
End.
WHILE
	Program Pzim ;
	var valor1, valor2, divisao: real;
	label inicio;
	label fim;
Begin
	writeln('Digite o primeiro valor:');
 readln(valor1);
 writeln('Digite o segundo valor:');
 readln(valor2);
 inicio: while(valor2 <> 0) do
 	begin
 		writeln('A divisão entre os valores é de:', valor1/valor2);
 		readln();
 		goto fim;
 	end;
 	while(valor2 = 0) do
 		begin
 			writeln('Digite o segundo valor:');
 			readln(valor2);
 			goto inicio;
 	end;
 	fim: readkey;
End.
Escreva um algoritmo para ler valores de produtos comprados por um cliente. Leia os nomes e valores dos produtos até que o cliente digite zero no valor do produto. Mostre então a soma total de sua compra.
Program atv4 ;
	var produto: string;
	 valor, soma: real;
Begin
	 repeat
	 	writeln('Digite o produto:');
	 	readln(produto);
	 	writeln('Digite o valor do produto:');
	 	readln(valor);
	 	soma := soma + valor;
	 	until(valor=0);
	 	writeln('O valor total é: ',soma);
End.
Elabore um algoritmo que dada a idade de N nadadores classifica-os em uma das seguintes categorias: 
infantil A = 5 - 7 anos 
infantil B = 8-10 anos 
juvenil A = 11-13 anos 
juvenil B = 14-17 anos 
adulto = maiores de 18 anos
program idade;
	var idade: real;
Begin
	repeat
	writeln('Digite a idade do nadador:');
	readln(idade);
	
	begin
	 if(idade >= 5) and (idade <=7) 
	 then begin
	 writeln('O nadador é da categoria INFANTIL A.');
	 end
	 else
	 if(idade >= 8) and (idade <= 10) 
	 then begin
		writeln('O nadador é da categoria INFANTIL B.');
		 end
	 else
		 if(idade >= 11) and (idade <= 13) 
		 then begin
		 writeln('O nadador é da categoria JUVENIL A.');
		 end
		 else
		 if(idade >= 14) and (idade <= 17) 
			then begin
		 	 writeln('O nadador é da categoria JUVENIL B.');
		 end
		else
		if(idade >= 18) 
		 then begin
		writeln('O nadador é da categoria ADULTO.');
	end;
			end;
			until(idade = 0);
End.
Elabore um algoritmo que leia idade e sexo de N pessoas. No final, mostre quantos homens, quantas mulheres e a idade média entre os homens e idade média entre as mulheres.
Program atv5 ;
	 var opcao: char;
	 		 idade, media_homens, media_mulheres, soma_homens, quant_homens, quant_mulheres, soma_mulheres: real; 
Begin
		repeat
 writeln('Digite o sexo (M ou F/ para sair digite S):');
 readln(opcao);
 if(opcao='M') then
 	begin
 	writeln('Digite a idade:');
 	readln(idade);
 	quant_homens := quant_homens + 1;
 	soma_homens := soma_homens + idade;
 	end
 	else
 		if(opcao='F') then
 			begin
 				writeln('Digite a idade:');
 				readln(idade);
 				quant_mulheres := quant_mulheres +1;
 				soma_mulheres := soma_mulheres + idade;
			end;
			until(opcao='S');
 media_homens := soma_homens / quant_homens;
 media_mulheres := soma_mulheres / quant_mulheres;
 writeln('A quantidade de homens é de:', quant_homens, ' e a média de idades é de:', media_homens);
 writeln('A quantidade de mulheres é de:', quant_mulheres, ' e a média de idades é de:', media_mulheres);
End.