Algoritimos

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 as coordenadas (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 FIM

Resposta:

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 o valor digitado for negativo o'); WriteLn('programa mostrará o menor numero digitado.'); WriteLn(' '); repeat readln(num); if num > 0 then begin if cont = 1 then begin 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: