Подсчет стоимости заказа (поиск минимума, максимума, среднего значения). Использование массивов

Цель работы — создать программу, выполняющую подсчет стоимости заказа с использование массивов.

Массив — это упорядоченная совокупность конечного числа данных одного типа.

Массив обозначается одним именем. Простейшим примером массива может служить линейная таблица. Значения, образующие линейную таблицу, являются элементами массива, а их порядковые номера в таблице называются индексами. Можно сказать, что одномерный массив соответствует понятию вектора. Индекс определяет положение элемента массива относительно его начала. Нельзя путать понятия «индекс» и «тип индекса». Тип индекса используется в раздел описания массива, а индекс указывается в разделе операторов для обозначения конкретных элементов массива. При этом индекс должен быть того же типа, что и описание типа индекса.

В качестве индекса может использоваться выражение, частным случаем которого является константа или переменная. Элемент массива иначе называется переменной с индексом. В отличие от нее, переменная без индекса называется простой переменной.

Элементы массива могут стоять как в левой части оператора присваивания, так и в выражениях. Над элементами массива можно производить операции, которые допустимы для данных его базового типа.

Выбор отдельной компоненты одномерного массива осуществляется указанием идентификатора массива, за которым в квадратных скобках следует индексное выражение. Индексное выражение должно давать значения, лежащие в диапазоне, определяемом типом индекса.

Например:

м [1], М [2], …, м [N].

Примеры описаний массива:

var.

а, с: array [1. 100] of real;

b: array [1. 100] of integer;

vek: array [1901. 2000] of integer; god: array [-553. -1] of integer; name: array [1. 5] of string (10);

Задача. Подсчет стоимости заказа

На форму поместить компоненты: Memo, Label, Edit, Button (рис. 59).

Рис. 59. Окно проекта

Листинг программы

unit Unitl;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,.

Dialogs, StdCtrls;

type

TForml = class (TForm).

Label5: TLabel;

Memol: TMemo;

Buttonl: TButton;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Editl: TEdit;

Memo2: TMemo;

Labell: TLabel;

Label2: TLabel;

procedure ButtonlClick (Sender: TObject); procedure Button2Click (Sender: TObject); procedure Button4Click (Sender: TObject); procedure Button3Click (Sender: TObject); private

{ Private decLarations }.

public

{ PubLic decLarations } end;

var

Fonml: TFonml; n: integer;

implementation

{$R *.dfm}

procedure TForml. ButtonlClick (Sender: TObject); var

i: integer; s: real; begin

s := 0;

n := Memol.Lines.Count; for i := 1 to n do

s := s + StrToFloat (Memol.Lines[i — 1]); Editl. Text := FloatToStr (s); end;

procedure TForml. Button2Click (Sender: TObject); var

i: integer; max, k: real; st, st_max: string; begin

max := StrToFloat (Memol.Lines[0]);

stjnax := Memo2. Lines[0];

n := Memol.Lines.Count;

for i := 1 to n do

begin

к := StrToFloat (Memol.Lines[i — 1]); st := Memo2. Lines[i — 1]; if max <= к then begin

max := k; stjnax := st; end; end;

Edit2.Text := FloatToStr (max) + ' ' + stjnax; end;

procedure TForml. Button4Click (Sender: TObject); var

i: integer; min, k: real; st, stjnin: string; begin

min := StrToFloat (Memol.Lines[0]); stjnin := Memo2. Lines[0]; n := Memol.Lines.Count;

for i := 1 to n do begin

к := StrToFloat (Memol.Lines[i — 1]); st := Memo2. Lines[i — 1]; if min >= к then begin

min := k; stjnin := st; end; end;

Edit4.Text := FloatToStr (min) + ' ' + stjnin; end;

procedure TForml. Button3Click (Sender: TObject); var

i: integer; s, m: real; begin

s := 0;

n := Memol.Lines.Count; for i := 1 to n do

s := s + StrToFloat (Memol.Lines[i — 1]); m := s / n;

Edit3.Text := FloatToStr (m); end;

end.

Результат работы программы показан на рис. 60.

Рис. 60. Окно разработанной программы