Формат 4

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

Unit form4;

Interface

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

Type string1=record

St:array[1..1024] of char;

N:word{динамическая длина строки}

End;

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(__FORM4_H)

#define __FORM4_H

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

typedef struct str

{

char s[1024];

unsigned N; // Динамическая длина строки

};

typedef str *string1;

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);

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

//...

#endif