Главная Обратная связь

Дисциплины:






Форматный вывод числовых данных. Функции FloatToStrF, FormatFloat.



При выводе вещественных чисел с помощью функции FloatToStr выводится столько десятичных разрядов, сколько их получается при вычислении выводимого значения. Для вывода необходимого пользователю числа десятичных разрядов используются функции FloatToStrF, FormatFloat и процедура Str. При этом число преобразуется в строку с использованием элементов форматирования. Функция FloatToStrF имеет следующий синтаксис:

FloatToStrF (x, <формат>, p, q), где

x– это переменная или выражение вещественного типа

<формат>- название одного из определенных в Delphi форматов. Если используются форматы ffFixed или ffGeneral, то p - это общее количество десятичных цифр в представлении числа, q – количество цифр в дробной части. Если p или qменьше, чем количество цифр в значении числа, то число округляется (целая часть всегда сохраняется). В формате ffGeneral очень большие и очень маленькие числа выводятся в экспоненциальной форме (0.25Е-08).

Примеры: StringGrid1.Cells[2, i ]:= FloatToStrF (y,ffFixed,4,1) 2,87 2,9

StringGrid1.Cells[2, i]:= FloatToStrF (y,ffGeneral,5,2)

34) Одномерные числовые массивы. Их описание, ввод и вывод.

Одномерный массив– это упорядоченная последовательность величин одного типа, имеющих одно имя, но различающихся индексами.Индекс – это выражение целого (порядкового типа), определяющее положение отдельной величины в последовательности. Каждая отдельная величина называется элементом массива.Описание массива может задаваться одним из двух способов.Способ 1(раздел описания переменных):

Var

<идентификатор>: array [Nнач .. Nкон] of< тип элементов>;

Nнач, Nкон– это минимальное и максимальное значение индекса, обязательно константы.Обычно Nнач = 1, тогда Nконэто максимальное число элементов в массиве.

Текст процедуры:

Var

x: array [1 .. 20] of real;

n: byte;

Begin

n := StrToInt (Edit1.Text);

StringGrid1.ColCount :=n;

for i := 1 to n do

x[i] := StrToFloat (StringGrid1.Cells [i-1, 0])

End;вывод массива

label3.Caption := 'Исходный массив';

With StringGrid2 do

Begin

ColCount := n;

Visible := True; (если на одной форме)

for i:=1 to n do

Cells[i-1,0] := FloatToStr (x[i]);

End;

Вычисление суммы и произведения элементов, находящихся на различных местах в массиве. Примеры алгоритмов и их программирование.





sdamzavas.net - 2017 год. Все права принадлежат их авторам! В случае нарушение авторского права, обращайтесь по форме обратной связи...