Помогите реализовать СД
1. Реализовать СД строкового типа в виде модуля. Определить и обработать исключительные ситуации.
Unit form; Interface Const {определение исключительных ситуаций} Type St=array[1..65520] of char; String1=record p_st:^st;{указатель на строку} max:word;{максимальное количество символов в строке, определяется при инициализации} N:word {динамическая длина строки} End; Procedure InitStr(var st:string1; n:word); Procedure WriteToStr(var st:string1;s:string); Procedure WriteFromStr(var s:string;st:string1); Procedure InputStr(var st:string1); Procedure OutputStr(const st:string1); Function Comp(s1,s2:string1;var fl:shortint):boolean; Procedure Delete(var S:String1;Index,Count:word); Procedure Insert(Subs:String1;var S:String1;Index:word); Procedure Concat( const S1, S2:string1;var srez:string1); Procedure Copy(S:String1;Index,Count:Word; var Subs:string1); Function Length(S: String1): word; Function Pos(SubS, S: String1): word; Var StrError: {тип переменной ошибки} 1. Procedure InputStr(var st:string1). Ввод строки st с клавиатуры. 2. Procedure OutputStr(const st:string1). Вывод строки st на экран монитора. 3. Procedure InitStr(var st:string1; n: word). Выделение динамической памяти под строку st, содержащую от 0 до n символов. 4. Procedure WriteToStr(var st:string1; s:string). Запись данных в строку st из строки s. 5. Procedure WriteFromStr(var s:string; st:string1). Запись данных в строку s из строки st. 6. Function Comp(s1,s2:string1; var fl:shortint):boolean. Сравнивает строки s1 и s2. Возвращает true если s1=s2 и fl=0, если s1>s2 и fl=1, если s1<s2 и fl=-1. 7. Procedure Delete(var S:String1; Index,Count:Word). Удаляет Count символов из строки S,начиная с позиции Index. 8. Procedure Insert(Subs:String1;var S:String1; Index:Word). Вставляет подстроку SubS в строку S,начиная с позиции Index. 9. Procedure Concat( const S1, S2:string1; var srez:string1). Выполняет конкатенацию строк S1 и S2; результат помещает в srez. 10. Procedure Copy (S:String1;Index,Count:Word; var Subs: String1). Возвращает подстроку Subs из строки S,начиная с позиции Index и длиной Count символов. 11. Function Length(S: String1): Word. Возвращает текущую длину строки S. 12. Function Pos(SubS, S: String1): Word. Возвращает позицию, начиная с которой в строке S располагается подстрока SubS. 2. Разработать программу для решения задачи с использованием модуля, полученного в результате выполнения пункта 1. Заголовок: procedure SrtSet(var s:string;n,l:word;c:char). Назначение: установка l символов строки s, начиная с позиции n, в значение с. Входные параметры: s,c,l,n. Выходные параметры: s. |
Часовой пояс GMT +4, время: 09:36. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.