Скачать книгу

перед началом программы (до begin) используя инициацию var:

      var

      x,y:Integer;

      m: Double;

      n: Float;

      str1:String; // Строковая переменная.

      Mas: array [1…100] of String; // Массив одномерный из 100 строк, начало с 0

      Ar: array [0..9] of array [0..9] integer; // Многомерный массив, начало с 0.

      D: array of real; // Динамический массив

      MyChar: Char; // Тип для хранения простого символа.

      R: TRect; //Область, ограниченную R. Left, R. Up, R. Right, R.Down.

      Численные значения: Word, Integer, Doable, Float, Real; учитывая, что точность составляет 5—6 знаков, обычно используют Integer для целочисленных и Double для чисел с запятой, которые могут быть представлены также в формате Е: 3.14E+2 = 3.14E+00 = 3.14; 23.5Е-2 = 0.235. Для округления числа «x» удобно использовать Round (x), округляющий до ближайшего целого; также можно использовать для выделения целой части Trunk (x) и дробной части Frac (x).

      Для ряда функций нужно добавить пакет math в User начала программы. Доступны многие математические функции, в том числе: абсолютное значение abs (х), квадрат sqr (x) и корень квадратный из х: sqrt (x); для степенной функции преобразование: xn = exp (n*ln (x); корень n-й степени из x = exp (1/n*lnx). Имеется также функция возведения XY: Power (x,y):

      var

        Z: Real;

      begin

        Z:= Power (0.25, 0.5); {Z:= 0.5}

      end;

      Функция получения вероятного числа: Random (n), по умолчанию пустые скобки () – вероятное число от 0 до 1; при «n» целочисленном – целочисленное значение от 0 до «n-1».

      Символы представлены типом Char: Type: Char = #0..#255; Char:= «3». Код символа можно узнать по функции Chr (n). Код ANSI: #0…255. UNICODE: первые 256 символов = ANSI. Chr (66) = B; Char (67) = C.

      var

        myChar: Char;

      begin

         myChar:= «G»; // Назначение из символьной константы

         ShowMessage («Символ G = ' + myChar); //Получаем «Символ G = G»

        myChar:= #65; // Назначение из целочисленной константы

         ShowMessage («#65 = ' + myChar); // Получаем «#65 = А»

      end;

      Присваивание значения требует двоеточия перед равенством: n:= 10; обычное равенство (=) используется в булевых значениях сравнения (true/false): if n = 10 then… Неравенство: X <> Y.

      Массивы: важная часть программ для накопления данных. Могут быть:

      – одномерные: Mas: array [1…100] of String; // все начинаются с 0.

      – многомерныe: Ar: array [0..9] of array [0..9] of integer;

      – динамический массив: D: array of real.

      Перед использованием динамического массива устанавливается его длина (начинается с 0): setLeangth (D,20). Закрытие массива: D_M: =nil. элементы массива начинаются с 0, исключая строковой массив, начинающийся с 1.

      Доступ к массиву по его индексу: n:= D [21]; соответственно: D [21]:= n. Для заполнения массива обычно применяется конструкция цикла:

      for n:= 1 to 100 do

      begin

      D [n]:= n-1; //Нумерует компоненты массива D [100], начиная с 0

      end;

      Можно найти максимальное и минимальное значение и среднее по массиву: MaxIntVal (D); MinVal (D): double); Mean (D):double), копировать массив в другой с определенного компонента: D:= copy (D, 0, 20) и др.

      Строки: ShortString: 255 символов и занимает в памяти 2 байта; String = AnsiString: 1031 символ. AnsiString

Скачать книгу