Основы программирования на языке Turbo Pascal. Беляева И.В. - 148 стр.

UptoLike

Составители:

Рубрика:

148

{Демонстрация “безопасного” ввода

на примере ввода одномерного массива}

var

a: array[1..10] of integer; {Массив}

n: integer; {Количество элементов в массиве}

i: integer; {Счетчик}

begin

{Безопасный ввод N}

ReadInt('Введите n=', n, 1, 10);

{Безопасный ввод элементов массива}

for i:=1 to n do

ReadInt('Введите a[' + IntToStr(i) + ']=',a[i],10,99);

{Вывод элементов для контроля}

for i:=1 to n do

write(a[i],' ');

writeln;

end.

Функция Length

function Length(S: String): Integer;

Возвращает текущую длину строки.

Пример:

S := ’Иван Иванович’;

D := Length(S); {В строке S содержится 13 символов,

поэтому D = 13}