• Viernes 23 de Agosto de 2019, 06:37

Autor Tema:  Tipos De Datos  (Leído 643 veces)

ALCEST

  • Nuevo Miembro
  • *
  • Mensajes: 8
    • Ver Perfil
Tipos De Datos
« en: Sábado 25 de Agosto de 2007, 23:11 »
0
Me piden que defina tipos para un registro con número y palo de naipe

alguien me recomienda algo mejor q lo siguiente?

Citar
program palo_diamante;
uses
        crt;
type
        rango = 1..13;
        vector=array[rango] of string;
        diamantes = record
                vec_diamantes:vector;
                end;



var
        palo_diamantes:diamantes;
        i:byte;

begin
     clrscr;
     with palo_diamantes do
        begin
            vec_diamantes[1]:='As';
            vec_diamantes[2]:='2';
            vec_diamantes[3]:='3';
            vec_diamantes[4]:='4';
            vec_diamantes[5]:='5';
            vec_diamantes[6]:='6';
            vec_diamantes[7]:='7';
            vec_diamantes[8]:='8';
            vec_diamantes[9]:='9';
            vec_diamantes[10]:='10';
            vec_diamantes[11]:='Valet';
            vec_diamantes[12]:='Dame';
            vec_diamantes[13]:='Roi';
        end;
     writeln('Palo de diamantes: ');
     writeln('---- -- --------- ');
     with palo_diamantes do
        for i:=1 to 13 do
          begin
              write('Carta Nº ',i,': ');
              writeln(vec_diamantes,' de Diamantes');
          end;
     readln;
end.

saludos y gracias!

¡Un error ha ocurrido!

Class 'Geshi' not found