Naeel Maqsudov » 08 апр 2004, 04:07
vitalik, используйте теги
code при оформлении текста программ в письмах.
Код: Выделить всё
program p1;
type
Imea=(anea,mariya,irina,petea,vanea,sereja,iura,igori,lena);
TSexRange = (m,f);
THeightRange = 140..200;
Date=Record
sex: TSexRange;
height: THeightRange;
end;
TGrupe = Array[Imea]of date;
var
ave_height, num_girls: Integer;
i: Imea;
Grupe: TGrupe;
begin
{начало ИНИЦИАЛИЗАЦИИ}
randomize;
for i := Low(imea) to High(Imea) do
with Grupe[i] do begin
if random(2)=0 then sex:=m else sex:=f;
height:=random(60)+140;
end;
{конец ИНИЦИАЛИЗАЦИИ}
ave_height := 0;
num_girls := 0;
for i := Low(imea) to High(Imea) do
with Grupe[i] do
if sex = f then begin
Inc(ave_height, height);
Inc(num_girls);
end;
if num_girls>0 then begin
ave_height := ave_height div num_girls;
writeln('Средний рост = ', ave_height)
end else
writeln('Нет ниодной женщины.');
readln;
end.
Без ИНИЦИАЛИЗАЦИИ будет деление на ноль.
Тут для инициалицации берутся случайный пол и случайный рост.
[b]vitalik[/b], используйте теги [b]code[/b] при оформлении текста программ в письмах.
[code]
program p1;
type
Imea=(anea,mariya,irina,petea,vanea,sereja,iura,igori,lena);
TSexRange = (m,f);
THeightRange = 140..200;
Date=Record
sex: TSexRange;
height: THeightRange;
end;
TGrupe = Array[Imea]of date;
var
ave_height, num_girls: Integer;
i: Imea;
Grupe: TGrupe;
begin
{начало ИНИЦИАЛИЗАЦИИ}
randomize;
for i := Low(imea) to High(Imea) do
with Grupe[i] do begin
if random(2)=0 then sex:=m else sex:=f;
height:=random(60)+140;
end;
{конец ИНИЦИАЛИЗАЦИИ}
ave_height := 0;
num_girls := 0;
for i := Low(imea) to High(Imea) do
with Grupe[i] do
if sex = f then begin
Inc(ave_height, height);
Inc(num_girls);
end;
if num_girls>0 then begin
ave_height := ave_height div num_girls;
writeln('Средний рост = ', ave_height)
end else
writeln('Нет ниодной женщины.');
readln;
end.
[/code]
Без ИНИЦИАЛИЗАЦИИ будет деление на ноль.
Тут для инициалицации берутся случайный пол и случайный рост.