Дана база данных некоторого акционерного предприятия. Поля : ФИО Акционера, список акций(кол-во, стоимость каждого вида акций)Сост

[ANTON1994]

Дана база данных некоторого акционерного предприятия. Поля : ФИО Акционера, список акций(кол-во, стоимость каждого вида акций)Составить программу позволяющую выводить :1) Все данные об акционерах
2)Держателей акций определённой стоимости
3) Список акционеров имеющих наибольшее кол-во акций ( написать с использованием процедур ввода и вывода( тоесть с подпрограммами).

[Stilet]

Дана база

Давай базу )

[ANTON1994]

uses crt;
const vid: array[1..3] of integer = (100, 200, 300);

  n = 3;
type zap = record ;
    fio: string[10];
    rez: byte;
    kolvo: array[1..3] of integer;
    st: integer;
  end;
  mas = array[1..n] of zap;
var a: mas;

procedure vvod(var a: mas);
var i, j, fio, st, kolvo: byte;
begin
  for i := 1 to n do begin
    writeln('Введите данные', i, 'zap');
    with a[i] do begin
      write('Fio '); readln(fio);
      write('Введите количество акций первого вида '); readln(kolvo[1]);
      write('Введите количество акций второго вида '); readln(kolvo[2]);
      write('Введите количество акций третьего вида '); readln(kolvo[3]);
      st := 0;
      for j := 1 to 3 do
        st := st + vid[j] * kolvo[i];
    end; end; end;

procedure print(a: mas);
var i: byte;
begin
  for i := 1 to n do
    writeln(a[i].fio: 10, a[i].st: 5);
end;

procedure Max(a: mas);
var max: real; i: integer;
begin
  max := a[1].st;
  for i := 2 to n do
    if a[i].st > max then max := a[i].st;
  for i := 1 to n do
    if a[i].st = max then writeln(a[i].fio, a[i].st: 8);
  readln;
end;
begin clrscr;
  vvod(a);
  print(a);
  max(a);
  readln
end.

похожая программка, но здесь выводится 1) все данные об акционерах
2)держатели акций определённого вида
3) акционер с максимальной суммой
как сделать что бы выводил список акционеров с наибольшим количеством акций???




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

кстати, в данном коде явная ошибка!
стоимость акций у владельца расчитывается неверно.

      st := 0;
      for j := 1 to 3 do
        st := st + vid[j] * kolvo[i];

должно быть: st + vid[j] * kolvo[j]

и ещё. стоимость у Вас в записи - целочисленное значение (это, на мой взгляд, спорно, я бы сделал вещественное, ну это ваше дело). А когда Вы ищете акционеров с максимальной стоимостью акций - Вы берёте переменную max вещественного типа. Это допустимо, не не аккуратно! Предпочительно, когда переменные ОДНОГО типа..

как сделать что бы выводил список акционеров с наибольшим количеством акций???

имеется в виду суммарное количество акций у одного акцонера? Или какого-то определённого вида? Или что?

А вообще-то, так используйте функцию max.
только переделайте чуток. Например, если нужно выдать всех акционеров, у которох наибольшее количество акций всех видов, то:

procedure Max(a: mas);
var MaxSumA: longint; i: integer;
begin
  MaxSumA := a[1].kolvo[1] + a[1].kolvo[2] + a[1].kolvo[3];
  for i := 2 to n do 
    if (a[i].kolvo[1] + a[i].kolvo[2] + a[i].kolvo[3] ) > MaxSumA 
       then MaxSumA := a[i].kolvo[1] + a[i].kolvo[2] + a[i].kolvo[3] ;
  for i := 1 to n do
    if (a[i].kolvo[1] + a[i].kolvo[2] + a[i].kolvo[3] ) = MaxSumA 
       then writeln(a[i].fio, a[i].st:8,' ', a[i].kolvo[1]:5, ' ' , a[i].kolvo[2]:5, ' ' , a[i].kolvo[3]:5);
  readln;
end;

[ANTON1994]

нужно вывести список акционеров имеющих наибольшее кол-во акций определённого вида... и всё таки как это сделать?? и можно полностью в программе?

[Serge_Bliznykov]

ну, примерно так:

....

procedure MaximalnoAkciyPoTipu(a: mas; VidA : integer);
var MaxSumA: longint; i: integer;
begin
  MaxSumA := a[1].kolvo[VidA];
  for i := 2 to n do 
    if a[i].kolvo[VidA] > MaxSumA 
       then MaxSumA := a[i].kolvo[VidA];
  for i := 1 to n do
    if a[i].kolvo[VidA] = MaxSumA 
       then writeln(a[i].fio, a[i].st:8,' akciy tipa ',VidA,' : ', a[i].kolvo[VidA]:5, ' ' );
  readln;
end;

var Tip : integer;
begin 
  clrscr;
  vvod(a);
  print(a);
  repeat
    WriteLn;
    Write('Vvedite tip akciy (1..3): ');
    ReadLn(Tip);
    if (Tip<1) or (Tip>3) then WriteLn('Oshibka! Tip dolgen byt ot 1 do 3! Poprobyete eshe raz!');
  until (Tip>=1) and (Tip<=3);
  MaximalnoAkciyPoTipu( a, Tip );
  readln
end.

[ANTON1994]

большое спасибо)) очень сильно помогли))