Формат 1

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

Unit form1;

Interface

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

Type string1=array[1..256] of char;

{признак конца строки–символ с кодом 0}

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

#define __FORM1_H

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

typedef char string1[256];

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

void WriteToStr(string1 st, char *s);

void WriteFromStr(char *s, string1 st);

void InputStr(string1 s);

void OutputStr(string1 s);

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