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

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

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

Рубрика: 

145
begin
s := 'Тяжелый и горячий утюг'; {Исходное содержание
строки}
writeln(s); {Выводим исходную строку}
delete(s, 9, 10);{Удаляем из строки 10 символов, начиная с 9-го,
то есть удаляется подстрока ‘и горячий ’}
writeln(s); {Выводится строка ‘Тяжелый утюг’}
end.
Процедура Insert
Procedure Insert(Source: string; var S: string; Index:Integer);
Вставляет подстроку Source в строку S, начиная с позиции Index.
Пример использования:
S: = 'Жаркий климат';
insert('и влажный ', s, 8);
writeln(s); {Будет выведено ‘Жаркий и влажный климат’}
Процедура Str
Procedure Str(X[:Width[:Decimal]]; var S: string);
Преобразовывает число X в последовательность символов (строку) S в
соответствии с заданными значениями форматирования Width и Decimal.
(Если какие-то параметры указаны в квадратных скобках, то это значит,
что эти параметры могут быть указаны, а могут и не быть указаны).
Пример использования:
В графическом режиме вывод текста производится при помощи
процедур outtext и outtextxy, в которых для вывода можно указывать
только строки. Если возникает необходимость вывода чисел, то
приходится делать примерно так:
K := 1034;
Str(k, s);
OuttextXY(100, 200, s); {Вывод строки s=’1034’, начиная
с точки с координатами X=100, Y=200}

Страницы