Формат 2

Спецификация СД на языке Pascal:

Unit form2;

Interface

Const {определение исключительных ситуаций}

Type

str=array[1..65520] of char; {признак конца строки – символ с кодом 0}

p_str=^str;

string1=record

st:p_str;

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: {тип переменной ошибки}

Спецификация СД на языке C:

#if!defined(__FORM2_H)

#define __FORM2_H

const...; // Определение исключительных ситуаций

typedef struct str

{

char* s; // Признак конца строки - символ '\0'

unsigned max; /* Максимальное количество символов в строке, определяющееся при инициализации */

};

typedef str *string1;

void InitStr(string1 st, unsigned n);

void WriteToStr(string1 st, char *s);

void WriteFromStr(char *s, string1 st);

void InputStr(string1 st);

void OutputStr(string1 st);

int Comp(string1 s1, string1 s2);

void Delete(string1 s, unsigned Index, unsigned Count);

void Insert(string1 Subs, string1 s, unsigned Index);

void Concat(string1 s1, string1 s2, string1 srez);

void Copy(string1 s, unsigned Index, unsigned Count, string1 Subs);

unsigned Length(string1 s);

unsigned Pos(string1 SubS, string1 s);

void DoneStr(string1 s)

int StrError; // Переменная ошибок

//...

#endif