Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 18.11.2012, 23:00   #1 (permalink)
ikris
Новичок
 
Регистрация: 11.06.2012
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите реализовать СД

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.
ikris вне форума   Ответить с цитированием

Старый 18.11.2012, 23:00
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Я отправлю вам похожие топики, они могут вам помочь

Как мне реализовать метод inject?
Пуск двигателя на определенное время, остановка. Как это реализовать?
Как лучше реализовать домашнюю сеть?
Как реализовать функцию устройства, применив датчик Холла?
Реализовать конечный автомат по разбору строки (сделал, но есть ошибки)
Помогите реализовать идею

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 23:09.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.