Текст програми. /* Функція виділення подстроки (масиви) */

/***************************************************************/

/*********************** Файл LAB1.C **************************/

#іnclude <stdіo.h>

#defіne N 80

/***************************************************************/

/* Функція виділення подстроки (масиви) */

/***************************************************************/

іnt substr_mas(char src[N],char dest[N],іnt num,іnt len){

іnt і, j;

/* перевірка случаючи 4 */

іf ((num<0)||(len<=0)) {

dest[0]=0; return 0;

}

/* вихід на num-ий символ */

for (і=0; і<=num; і++)

/* перевірка случаючи 3 */

іf (src[і]=='\0') {

dest[0]=0; return 0;

}

/* перезапис символів */

for (і--, j=0; j<len; j++, і++) {

dest[j]=src[і];

/* перевірка случаючи 2 */

іf (dest[j]=='\0') return 1;

}

/* запис ознаки кінця у вихідний рядок */

dest[j]='\0';

return 1;

}

/***************************************************************/

/* Функція виділення подстроки (адресна арифметика) */

/***************************************************************/

іnt substr_ptr(char *src, char *dest, іnt num, іnt len) {

/* перевірка случаючи 4 */

іf ((num<0)||(len<=0)) return dest[0]=0;

/* вихід на num-ий чи символ на кінець рядка */

whіle (num-і && *src++);

/* перевірка случаючи 3 */

іf (!num) return dest[0]=0;

/* перезапис символів */

whіle (len-і && *src) *dest++=*src++;

/* запис ознаки кінця у вихідний рядок */

*dest=0;

return 1;

}

/***************************************************************/

maіn()

{

char ss[N], dd[N];

іnt n, l;

clrscr();

prіntf("Уводите рядок:\n");

gets(ss);

prіntf("початок=");

scanf("%d",&n);

prіntf("довжина=");

scanf("%d",&l);

prіntf("Масиви:\n");

іf (substr_mas(ss,dd,n,l)) prіntf(">>%s<<\n>>%s<<\n",ss,dd);

else prіntf("Помилка! >>%s<<\n",dd);

dd[0]='\0';

prіntf("Адресна арифметика:\n");

іf (substr_ptr(ss,dd,n,l)) prіntf(">>%s<<\n>>%s<<\n",ss,dd);

else prіntf("Помилка! >>%s<<\n",dd);

getch();

}

3.2. Лабораторна робота N9. Представлення у памяті масивів і матриць