Тема 13: Перечисляемые типы данных

Варианты ответа

5000.00 patnc: 9.0E+0002
3800.00 patnc: 7.5E+0002
3000.00 patnc: 7.5E+0002
5000.00 patnc: 7.5E+0002
3000.00 patnc: 9.0E+0002
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении

type ned = (pn,vt,sr,ct,pt,sb,vs);
Tdox = array [ned] of real;
const doxod: Tdox = (1200,800,1350,750,
900,0,0);
dni: array [ned] of string[5] = ('poned',
'vtorn','sreda','cetvg','patnc',
'subta','voskr'); var den: ned; s:real;
begin s:=0; for den:= pn to vs do 
if den >= sr then s:=s+doxod[den];
 write(s:0:2, dni[pt]:6,':',doxod[pt]:8);
 readln;
end.

Варианты ответа

160 3
195.00 3
160.00 4
160 4
195.00 4
Программа вызовет
ошибку при выполнении
Программа вызовет
ошибку при компиляции

type tovar = (baton,kolbas,vodka,
seledka);
const cena: array [tovar] of real = 
(20,150,120,70);
var kupil: array[tovar] of real; s:real; 
i:tovar;
begin for i:= baton to seledka do 
kupil[i]:=0; kupil[baton]:=2; 
kupil[vodka]:=1; kupil[seledka]:=0.5;
s:=0; for i:= baton to seledka do 
s:=s+kupil[i]*cena[i];
write(s:0:2, byte(seledka):2); readln;
end.

Варианты ответа

2 3
3 4
0 2
1 3
1 2
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении

type ned = (pn,vt,sr,ct,pt,sb,vs);
var den,pervoe,data: byte;
   den_ned: array[1..31] of ned;
begin pervoe:= byte(sr);
for data:=1 to 31 do 
   begin den:= (data+pervoe-1) mod 7;
     den_ned[data]:= ned(den);
   end;  write(byte(den_ned[21]):2,
   byte(den_ned[8]):2); readln;
end.

Варианты ответа

3 5
2 4
vt pt
0 4
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении
1 5

type ned = (pn,vt,sr,ct,pt,sb,vs);
var den: ned;
begin den:=vt;
 write(byte(succ(den)):5,
   byte(ord(den)+3):5); readln;
end.

Варианты ответа

0 4
black blue
1 5
Программа вызовет
ошибку при компиляции
Программа вызовет
ошибку при выполнении
0 0
black black

type color = (black,white,red,green,
blue,yellow);
var c: color;
begin c:= color(ord(red)+2);
 write(black:5, c:5);  readln;
end.