Turbo Pascal (задача)

[pergeot]

Помогите, пожалуйста, решить данную задачу:
Для определения эффективности работы хлебного киоска вычисляют разницу между стоимостью поступившего хлеба и суммой выручки за сутки.
Составить программу определения самого неэффективного из 10 киосков в городе и построить диаграмму эффективности.

Буду очень благодарен!!!

[IT-man]

Стучи в аську сделаю за вознаграждение!

[pergeot]

аська у тебя там указана?
это она ...[шесть]...

[RUSt88]

не знаю как на turbo pascal, но на делфи можно так (код немного сырой, там чуть-чуть подправить, рисует на форме графики, данные считывает из текстового файла)

var
  Form1: TForm1;
  fac: array[0..3] of array[0..5] of integer;

implementation

{$R *.dfm}

function DrawGraphik(): byte;
var
  dc: HDC;
  i, j, x, y, k, l: Integer;
begin
  dc := Form1.Canvas.Handle;
  for i := 0 to 3 do begin
    x := 10; y := 350 - fac[i, 0];
    MoveToEx(dc, x, y, nil);
    form1.Canvas.Pen.Color := clwhite;
    for j := 0 to 5 do begin
      x := x + 100; y := 350 - fac[i, j];
      LineTo(dc, x, y);
      MoveToEx(dc, x, y, nil);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  F: TextFile;
  i, j, cout1, cout2: integer;
  s, res: string;
begin
  AssignFile(F, 'info.txt');
  Reset(F);
  cout1 := 0;
  cout2 := 0;
  while not EOF(F) do begin
    Readln(F, s);
    j := Length(s);
    for i := 1 to j do begin
      case s[i] of
        '0', '1', '2', '3', '4', '5', '6', '7', '8', '9':
        begin
          res := res + s[i];
          fac[cout1, cout2] := StrToInt(res);
        end;
      else
        inc(cout2);
        res := '';
      end;
    end;
    inc(cout1);
    res := '';
    cout2 := 0;
  end;

  CloseFile(F);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  DrawGraphik();
end;

[pergeot]

Сообщение от pergeot

Помогите, пожалуйста, решить данную задачу:
Для определения эффективности работы хлебного киоска вычисляют разницу между стоимостью поступившего хлеба и суммой выручки за сутки.
Составить программу определения самого неэффективного из 10 киосков в городе и построить диаграмму эффективности.

Буду очень благодарен!!!

(язык только Паскаль или С++)
мы остальные не изучали