• 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
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.