|
|
||
|
|
|
(с) Все права защищены.
По всем интересующим вопросам прошу писать электронный адрес
TURBO PASCAL |
| Новости |
Практическое задание N 1. 43
1. Создать "бегущую
строку" с
использованием функции копирования.
Строку вводить оператором Read(S); c
пробелом в конце строки.
Длина строки n:= Length(s);
Выводить строку оператором Write(Sc); где Sc:=
Copy(S, L1, L2).
2. Создать "бегущую
строку" с
использованием функции копирования при "j<=n"
Sc:=Copy(S, L1, L2); а после "else" c процедурой
удаления Delete(Sc, L3,
L4);. Строку вводить
оператором Read(S); c пробелом в конце строки.
Выводить оператором Write(Sc);
Длина строки n:=Length(s);
1. Создать "бегущую
строку" с
использованием функции копирования.
Строку вводить оператором Read(S); c
пробелом в конце строки.
Длина строки n:= Length(s);
Выводить строку оператором Write(Sc); где Sc:=
Copy(S, L1, L2).
2. Создать "бегущую
строку" с
использованием функции копирования при "j<=n"
Sc:=Copy(S, L1, L2); а после "else" c процедурой
удаления Delete(Sc, L3,
L4);. Строку вводить
оператором Read(S); c пробелом в конце строки.
Выводить оператором Write(Sc);
Длина строки n:=Length(s); |
(с) Все права защищены. По всем интересующим вопросам прошу писать электронный адрес |
