-
Lenguaje
Pascal
-
Descripción
Pide al usuario 10 nombres, los guarda en un arreglo, ordena el arreglo en orden alfabético con el método de la burbuja y muestra el arreglo ordenado.
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
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
program prog_nombres;
uses crt;
var i, j, n : integer;
var nombres : array[0..9] of string;
var nombre : string;
var tecla : char;
begin
n := sizeof (nombres) div sizeof (string) - 1;
for i := 0 to n do
begin
write ('Ingrese el nombre ', i+1, ': ');
readln (nombres[i]);
end;
for i := 1 to n do
for j := 0 to n - i do
if nombres[j] > nombres[j+1] then
begin
nombre := nombres[j];
nombres[j] := nombres[j+1];
nombres[j+1] := nombre;
end;
writeln (#10#13'Nombres ordenados:'#10#13);
for i := 0 to n do
writeln ('Nombre ', i+1, ': ', nombres[i]);
write (#10#13'Presione una tecla para terminar . . . ');
tecla := readkey;
end.
uses crt;
var i, j, n : integer;
var nombres : array[0..9] of string;
var nombre : string;
var tecla : char;
begin
n := sizeof (nombres) div sizeof (string) - 1;
for i := 0 to n do
begin
write ('Ingrese el nombre ', i+1, ': ');
readln (nombres[i]);
end;
for i := 1 to n do
for j := 0 to n - i do
if nombres[j] > nombres[j+1] then
begin
nombre := nombres[j];
nombres[j] := nombres[j+1];
nombres[j+1] := nombre;
end;
writeln (#10#13'Nombres ordenados:'#10#13);
for i := 0 to n do
writeln ('Nombre ', i+1, ': ', nombres[i]);
write (#10#13'Presione una tecla para terminar . . . ');
tecla := readkey;
end.