Согласие на обработку персональных данных.

15.11.2020
Новые видео и статья Процедура Str.

25.10.2020
Добавлен курс Как стать веб-разработчиком.

23.10.2020
Новые видео и статья Как вывести одинарную кавычку в Паскале.

21.10.2020
Новые видео и статья Комментарии в HTML.

19.10.2020
Новые видео и статья Дерево элементов DOM.



Раздел: Стандартные функции Паскаля

Процедура Str

Процедура Str в Паскале преобразует число или перечисление в строку. Синтаксис:

procedure Str(var X : TNumericType; var S : string);

Процедура Str возвращает строку, представляющую значение X, которое может быть любым числовым или перечисляемым типом. Фактическое объявление процедуры Str не соответствует синтаксису Паскаль и должно быть

procedure Str(var X : TNumericType [:NumPlaces [:Decimals]]; 
              var S : String);

где необязательные спецификаторы NumPlaces и Decimals управляют форматированием строки:

  • NumPlaces задаёт общую ширину строки
  • Decimals задаёт количество десятичных знаков после символа десятичного разделителя

Процедуру Str также можно использовать для преобразования значения перечисляемого типа в строковое представление объявленного перечисления. Это означает, что будет работать следующее:

type TMyEnum = (One);

var s : string;

begin
  Str(One, s);
  Writeln(s);
end.

Эта программа выведет на экран слово One. То же самое сделает и следующая программа:

type TMyEnum = (One);

var s : string;
    E : TMyEnum;

begin
  E := One;
  Str(E, s);
  Writeln(s);
end.

Преобразование числа может быть выполнено, например, так:

Str(150, s);
Writeln(s);

Если вы хотите преобразовать вещественное число и задать определённое количество знаков после запятой, то это можно сделать так:

Str(Pi:0:4, s);
Writeln(s);

Примеры вывода показаны на рисунке:

Использование процедуры Str

Если хотите, можете с помощью процедуры Str создать собственную функцию преобразования вещественных чисел в строку с заданным количеством знаков после запятой. Функция может быть, например, такой:

//****************************************************************
// Функция преобразует вещественное число в строку
// с указанным количеством знаков после запятой
// ВХОД:  х - число; n - количество знаков после запятой
// ВЫХОД: строковое представление числа
//****************************************************************
function MyFloatToStr(x : single; n : byte) : string;
var st : string;
begin
  Str(x:0:n, st);
  Result := st;
end;

Здесь с помощью спецификатора Decimals мы задаём количество знаков после запятой. В программе функцию можно использовать так:

Writeln(MyFloatToStr(Pi*2, 3));

При этом на экран будет выведена строка 6.283

Спецификатор NumPlaces тоже может пригодиться, например, при выводе таблиц. С его помощью мы можем задать одинаковую ширину строки, и на экране вывод будет занимать всегда одинаковое заданное количество знакомест, независимо от того, сколько цифр у нас в числе. Пример:

for i := 1 to 16 do
  begin
    Str(i:3, s);
    if ((i mod 4) = 0) then WriteLn(s)
    else Write(s);
  end;

На экран будет выведена такая ровная таблица:

Вывод таблицы с помощью процедуры Str


Как стать программистом 2.0 Как стать программистом 2.0

Эта книга для тех, кто хочет стать программистом. На самом деле хочет, а не просто мечтает. И хочет именно стать программистом с большой буквы, а не просто научиться кулебякать какие-то примитивные программки… Подробнее...
Инфо-МАСТЕР ®
Все права защищены ©
e-mail: mail@info-master.su

Яндекс.Метрика