Описать процедуру, присваивающую параметру среднюю цену из непустого прейскуранта

@yuppi · Регистрация: 22.01.2012

Студворк — интернет-сервис помощи студентам

Писала программу, но понимаю, что там очень много сделано не так, как требуется. Я только учусь и многие примитивные вещи для меня пока тяжело даются. Помогите, пожалуйста, исправить. Буду вам очень признательна. Надо срочно.

Задание:

Delphi
1
2
3
4
5
6
type cena = record
                 r,c: integer;
                 end;
       arr = array [1..5] of cena;
var p: arr;
     mincena: cena;

Описать процедуру max (p, mincena), присваивающую параметру mincena среднюю цену из непустого прейскуранта p.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids;
 
type
  cena = record
    t: string;
    r,c: integer;
    end;
  arr = array [1..5] of cena;
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    StringGrid2: TStringGrid;
    Label6: TLabel;
    Label7: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  p: arr;
  mincena: cena;
  i: integer;
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  i:=0;
  StringGrid1.Cells[0,0]:='N';
  StringGrid1.Cells[1,0]:='Товар';
  StringGrid1.Cells[2,0]:='Руб.';
  StringGrid1.Cells[3,0]:='Коп.';
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  i:=i+1;
  StringGrid1.Cells[0,i]:=IntToStr(i);
  StringGrid1.Cells[1,i]:=Edit1.Text;
  StringGrid1.Cells[2,i]:=Edit2.Text;
  StringGrid1.Cells[3,i]:=Edit3.Text;
  p[i].t:=Edit1.Text;
  p[i].r:=StrToInt(Edit2.Text);
  p[i].c:=StrToInt(Edit3.Text);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
type
  cena1 = record
    r1,c1: integer;
end;
var
  mincena: cena1;
  k,rub,kop: integer;
begin
  for k:=1 to i do
    rub:=(StrToInt(StringGrid1.Cells[2,1])+StrToInt(StringGrid1.Cells[2,2])+StrToInt(StringGrid1.Cells[2,3])+StrToInt(StringGrid1.Cells[2,4])+StrToInt(StringGrid1.Cells[2,5])) div 5;
   for k:=1 to i do
    kop:=(StrToInt(StringGrid1.Cells[3,1])+StrToInt(StringGrid1.Cells[3,2])+StrToInt(StringGrid1.Cells[3,3])+StrToInt(StringGrid1.Cells[3,4])+StrToInt(StringGrid1.Cells[3,5])) div 5;
  StringGrid2.Cells[0,0]:=IntToStr(rub);
  StringGrid2.Cells[1,0]:=IntToStr(kop);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
end;
 
end.

Описать процедуру, присваивающую параметру среднюю цену из непустого прейскуранта

Помогите со следующими вопросами:
1. Как записать массив в цикле, когда мы рассчитываем rub и kop? А то я тут расписала ерунды, понимаю, укоротить можно, но уже голова кругом, никак не соображу.
2. Не могу понять, как вставить процедуру max, ну чтобы как в задание говорится.
3. Как сделать, чтобы TEdit3, куда копейки вводятся, можно было вводить только двухзначные числа, а то околесица получается. 906 копеек, например.
4. И вообще как сделать, чтобы копейки к рублям прибавлялись? Ведь 100 копеек = 1 рубль, а у меня они только в своей ячейке записываются.
5. И ещё (чисто для себя), как сделать, чтобы при запуске программы в ячейках StringGrid1 уже стояли значения по умолчанию?

@paxan86 · 01.02.2012, 19:26

antikiler ЖЖёшь!!

D

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@paxan86 51 / 46 / 8 Регистрация: 18.05.2011 Сообщений: 497
	01.02.2012, 19:26
	antikiler ЖЖёшь!! D 0