TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Algoritmo

Tese: Algoritmo. Pesquise 862.000+ trabalhos acadêmicos

Por:   •  26/5/2013  •  Tese  •  377 Palavras (2 Páginas)  •  551 Visualizações

Página 1 de 2

1) Escreva um algoritmo que armazene o valor 10 em uma variável A e o valor 20 em uma variável B. A seguir (utilizando apenas atribuições entre variáveis) troque os seus conteúdos fazendo com que o valor que está em A passe para B e vice-versa. Ao final, escrever os valores que ficaram armazenados nas variáveis.real: A, B, C

A ← 10

B ← 20

C ← A

A ← B

B ← C

escreva ("O valor de A é:" , A)

escreva ("O valor de B é:" , B)

2) Escreva um algoritmo para ler as dimensões de um retângulo (base e altura), calcular e escrever a área do retângulo.A, B, AUX: numerico

A <- 10

B <- 20

AUX <- 0

AUX <- A

A <- B

B <- AUX

escreva "O valor de A é: ", A, " e ", "O valor de B é: ", B

fim

O valor de A é: 20 e O valor de B é: 10

3) Faça um algoritmo que leia a idade de uma pessoa expressa em anos, meses e dias e escreva a idade dessa pessoa expressa apenas em dias. Considerar ano com 365 dias e mês com 30 dias.um algoritmo que leia a idade de uma pessoa expressa em anos, meses e dias e escreva a idade dessa pessoa expressa apenas em dias. Considerar ano com 365 dias e mês...

4) Escreva um algoritmo para ler o número total de eleitores de um município, o número de votos brancos, nulos e válidos. Calcular e escrever o percentual que cada um representa em relação ao total de eleitores.program semnome;

uses Crt;

{ Função :}

{ Autor :}

{ Data : 24/03/2013}

{ Seção de Declarações}

var

eleitorestotal,votosbrancos,nulos, validos,porbra,pornulos,porvalidos : real;

begin

writeln('Digite o numero total de votos');

readln(eleitorestotal);

writeln('Digite o numero total de votos brancos');

readln(votosbrancos);

writeln('Digite o numero total de votos nulos');

readln(nulos);

writeln('Digite o numero total de votos validos');

readln(validos);

if (votosbrancos<>0) then begin

porbra:=(votosbrancos*100)/eleitorestota…

end else begin

porbra:=0;

end;

if (nulos<>0) then

...

Baixar como (para membros premium)  txt (2.7 Kb)  
Continuar por mais 1 página »
Disponível apenas no TrabalhosGratuitos.com