Язык программирования Pascal. Строки и записи. Васильев В.В - 20 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

20
var m,w: nomera; {массивы с накопленными частотами}
m_im,w_im:imena; {массивы имен}
k1,k2:integer; {количество мужчин и женщин}
procedure how_many (const a: imena; k:integer;
var b: nomera);
var i,j:integer;
begin
for i:=1 to k do b[i]:=0;
for i:=1 to k do
for j:=1 to i do
if a[i]=a[j] then inc(b[i]);
end; {how_many}
procedure print (const a: imena; b: nomera; k:integer);
var max:integer;
begin
max:=b[1];
for i:=2 to k do
if b[i]>max then max:=b[i];
for i:=1 to k do
if b[i]=max then write(a[i],' ');
writeln
end;{print}
begin {name}
{Формирование массивов имен}
k1:=1; k2:=1;
for i:=1 to n do
with sp[i] do
if pol='м'
then
begin m_im[k1]:=im; inc(k1) end
else
begin w_im[k2]:=im; inc(k2) end;
k1:=k1-1; k2:=k2-1;
{Подсчет частоты употребления имен}
how_many(m_im,k1,m);
how_many(w_im,k2,w);
{Печать распространенных имен}
writeln('Распространенные мужские имена:');
print(m_im,m,k1);
writeln('Распространенные женские имена:');
print(w_im,w,k2);
end; {name}
Begin (* Student_*)
Textbackground(7); Textcolor(blue); Clrscr;
{заполнение массива из записей}
for i:=1 to n do

Страницы