Практична робота № 11.3

Тема. Побудова алгоритмів з використанням вказівників

Мета . Навчитися використовувати динамічну пам'ять, вказівники та динамічні змінні.

Завдання 

За даними, що містяться в таблиці створіть програму для розрахунку максимальної ціни за одиницю вказаної продукції. Вхідні дані - список цін. Вихідні дані - значення максимальної ціни в гривнях.

Розв'язати задачу з використанням вказівників.

Розв'язання

Type Tmass = array [0..199] of real; 

procedure TForm1.Button1Click(Sender: TObject);
var Mass:^TMass;
    i,count:integer; 
    max:real; 
begin
    new(Mass); 
    count:= Memo1.Lines.Count; 
    for i := 0 to count - 1 do begin
        Mass^[i]:=StrToFloat(Memo1.Lines[i]);
    end;
    max:= Mass^[ 0];
    for i := 1 to count - 1 do begin
        if Mass^[i]>max then max:= Mass^[i];
    end;
    Label2.Caption := FloatToStrF(max,ffFixed, 6,2);
    Dispose(Mass) 
end;