-
Lenguaje
Pascal
-
Descripción
Diseña un algoritmo que, dados cinco números enteros, determine cuál de los cuatro últimos números es más cercano al primero. (Por ejemplo, si el usuario introduce los números 2, 6, 4, 1 y 10, el programa responderá que el número más cercano al 2 es el 1).
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
program ElMasCercanoAlPrimeroDe5Numeros;
uses crt;
var a, b, c, d, e : real;
var mas_cercano : real;
begin
write ('Ingresa el valor de a: ');
readln (a);
write ('Ingresa el valor de b: ');
readln (b);
write ('Ingresa el valor de c: ');
readln (c);
write ('Ingresa el valor de d: ');
readln (d);
write ('Ingresa el valor de e: ');
readln (e);
if (a-b)*(a-b)<(a-c)*(a-c) then
begin
mas_cercano := b;
end
else
begin
mas_cercano := c;
end;
if (a-d)*(a-d)<(a-mas_cercano)*(a-mas_cercano) then
begin
mas_cercano := d;
end;
if (a-e)*(a-e)<(a-mas_cercano)*(a-mas_cercano) then
begin
mas_cercano := e;
end;
writeln ('Valor de mas cercano: ', mas_cercano:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.
uses crt;
var a, b, c, d, e : real;
var mas_cercano : real;
begin
write ('Ingresa el valor de a: ');
readln (a);
write ('Ingresa el valor de b: ');
readln (b);
write ('Ingresa el valor de c: ');
readln (c);
write ('Ingresa el valor de d: ');
readln (d);
write ('Ingresa el valor de e: ');
readln (e);
if (a-b)*(a-b)<(a-c)*(a-c) then
begin
mas_cercano := b;
end
else
begin
mas_cercano := c;
end;
if (a-d)*(a-d)<(a-mas_cercano)*(a-mas_cercano) then
begin
mas_cercano := d;
end;
if (a-e)*(a-e)<(a-mas_cercano)*(a-mas_cercano) then
begin
mas_cercano := e;
end;
writeln ('Valor de mas cercano: ', mas_cercano:0:6);
writeln;
write ('Presiona una tecla para terminar . . . ');
readkey;
end.