Kód: Vybrať všetko

type chrup=(zdravy,pokazeny,zaplombovany,chyba);
var zuby:chrup;
zuby:=0{zdravy} ATakDalej...

Kód: Vybrať všetko

type chrup=(zdravy,pokazeny,zaplombovany,chyba);{vytvoris type zdravy=0..chyba=3}
var zuby:array[1..32] of chrup;{deklarujes typ do premennej}
BEGIN{uz sa s tym len hrajkas}

for a:=1 to 32 do begin
 zuby[a]:=random(4);{od nula po 3(od zdraveho po strateny..)}
 textcolor(15); if zuby[a]=pokazeny then textcolor(4);{1-kaz}
 write(' ',zuby[a]); if a=16 then writeln;
                          end;

END.

Kód: Vybrať všetko

program zubny_obraz;
uses crt;
type chrup=(zdravy,pokazeny,zaplombovany,chyba);
var zuby:array[1..32] of chrup;
var a:integer;
begin
  for a:=1 to 32 do
  begin
    zuby[a]:=random(4);
    textcolor(15); if zuby[a]=1 then textcolor(4);
    write(' ',zuby[a]); if a=16 then writeln;
  end;
  readln;
end.

Kód: Vybrať všetko

zuby[a]:=random(4);

Kód: Vybrať všetko

uses crt;
type chrup=(zdravy,pokazeny,zaplombovany,chyba);{vytvoris type zdravy..chyba}

var zuby:array[1..32] of chrup;{deklarujes typ do premennej}
    a,b,c:byte;
BEGIN   clrscr;

for a:=1 to 32 do begin
 b:=random(4);
case b of
 0:zuby[a]:=zdravy;
 1:zuby[a]:=pokazeny;
 2:zuby[a]:=zaplombovany;
 3:zuby[a]:=chyba;
end; {od nula po 3(od zdraveho po strateny..)}
{teraz vypis}
 textcolor(15); if zuby[a]=pokazeny then begin textcolor(4); inc(c); end;{1-kaz}

case zuby[a] of
 zdravy:write('zdravy ');
 pokazeny:write('pokazeny ');
 zaplombovany:write('zaplombovany ');
 chyba:write('chyba ');
end;
 {       alebo takto
case zuby[a] of
 zdravy:write('0 ');
 pokazeny:write('1 ');
 zaplombovany:write('2 ');
 chyba:write('3 ');
end;                   }
if a=16 then writeln;
                  end;
write('kazov je ',c);

END.