VPF::[Delphi] двумерные массивы задача

sunset69

Дата 1.4.2009, 16:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 27.3.2009

Репутация: нет
Всего: нет

помогите пожалуйста решить задачку
нужно дописать до вида готоой программы, часть кода уже есть.
суть в том что дан двумерный массив запоолняемый числами из нескольких диапазонов, нужно посчитать сумму, ср.зн. и минимальное значение в каждой строке массивы.
user posted image

сам код...

Код


unit TwoDim;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TWeekTemp = array[0..6,0..3] of real; //тип двумерный массив хранит
  //температуры за всю неделю - 7 дней и 4 измерения в сутки.

const
  WeekDayName:array [0..6] of string =
    ('воскресенье','понедельник','вторник','среда','четверг','пятница','суббота');

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    TempData:TWeekTemp; //двумерный массив хранит температуры за всю неделю
  public
    { Public declarations }
    procedure CreateTempData(a,b,c,t:real);
    procedure ShowTempData;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure MinMaxMiddle(const Data:array of real; var Min,Max,Mid:real);
var i:integer;
begin
  //за один проход по массиву нужно отыскать минимальное, максимальное
  //и среднее значение в параметре-массиве Data.
  //????????????
  //????????????
  //????????????
end;

procedure TForm1.CreateTempData(a,b,c,t:real);
var d,h:integer;
begin //эта специально придуманная процедура заполняет массив
  //TempData значениями температуры похожими на "настоящие"
  for d:= 0 to 6 do
    for h:= 0 to 3 do TempData[d,h]:= a*Sqr(d*4+h-b) + c - t*Sqr(h*6 -14);
end;

procedure TForm1.ShowTempData;
var d,h:integer;
//отобразить для пользователя данные о температуре за неделю
begin //with StringGrid1 do begin
  //????????????
  //????????????
end; //end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
//оформить заголовки таблицы и отобразить недельную температуру
begin //with StringGrid1 do begin
  //Cells[0,0]:= '  День\время';
  //????????????
  //????????????
  //????????????
  //????????????
  //????????????
  //????????????
  //????????????
  CreateTempData(0.1,13,-20,0.03);
  ShowTempData;
end; //end;


procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer; Min,Max,Mid:real;
type TWholeWeek = array[0..27] of real;
// подсчитываем статистику
begin //with StringGrid1 do begin
(*
  for i:= 0 to 6 do begin
    MinMaxMiddle(???????,???,???,???);
    StringGrid1.Cells[?,??]:= Format('%8.1g',[Min]);
    //????????????
    //????????????
  end;
  MinMaxMiddle(?????????(TempData),???,???,???);
  //????????????
  //????????????
  //????????????
*)
end; //end;

end.

!
THandle

Модератор: используйте подсветку кода

THandle

Дата 1.4.2009, 17:21 (ссылка)

(нет голосов)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 30
Всего: 372

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »