Algoritimos

Disponível somente no TrabalhosFeitos
  • Páginas : 2 (499 palavras )
  • Download(s) : 0
  • Publicado : 27 de agosto de 2012
Ler documento completo
Amostra do texto
Aluno:


1 - Reproduza o pseudocódigo abaixo na linguagem Pascal, utilizando o Pascal Zim!, Onde o objetivo é calcular a distância d entre dois pontos P(x1,y1) e P(x2,y2), A fórmula para isso é:Programa Distancia;
var x1, y1, x2, y2, d: real;
INICIO
Mostre (“Entre com as coordenadas (x,y) do ponto P1: “)
Leia (x1,y1)
Mostre (“Entre com ascoordenadas (x,y) do ponto P2: “)
Leia (x2,y2)
d ← ((x2-x1)^2 + (y2-y1)^2)^(1/2)
Mostre ("A distância dentre os dois pontos é: ", d)
Pare //Pausa para ver os resultados
FIMResposta:


Program calcdistancia;
var x1,y1,x2,y2,d:real;
Begin
WriteLn('Entre com as coordenadas (x,y) do ponto P1: ');
ReadLn(x1,y1);
WriteLn(' ');
TextColor(lightblue);WriteLn('Entre com as coordenadas (x,y) do ponto P2: ');
ReadLn(x2,y2);
d:=sqrt(sqr(x2-x1) + sqr(y2-y1));
TextColor(yellow);
WriteLn(' ');
WriteLn('A distancia entre os dois pontos é: ',d:4:2);Delay(400);
End.






2 - Crie um programa em Pascal para ler N números positivos e mostrar o menor número lido. A leitura deve terminar quando for digitado um valor negativo.Resposta:

Program menornumdigitado;
var i,num,menor,qtd,cont:integer;
Begin
num := 0;
menor := 0;
cont := 1;
WriteLn('Digite valores e pressione a tecla enter,');
WriteLn('quando ovalor digitado for negativo o');
WriteLn('programa mostrará o menor numero digitado.');
WriteLn(' ');
repeat
readln(num);
if num > 0 then
begin
if cont = 1 thenbegin
menor := num;
end;
if num < menor then
begin
menor:= num;
end;
end;
cont := cont + 1;
until num < 0;
WriteLn(' ');writeln('O menor número digitado foi: ',menor);
End.












3 - Crie um programa em Pascal que, leia os nome e as médias de vinte alunos. Depois da entrada dos dados, mostre:...
tracking img