Лабораторная работа - Функции. Вариант 3

Подождите немного. Документ загружается.

Балтийский государственный технический университет

«Военмех» им. Д.Ф. Устинова

Кафедра И3

«Системы обработки информации и управления»

Лабораторная работа № 7

«ФУНКЦИИ»

Вариант 3

Выполнил:

Студент Трубин Д.В.

Группа И383

Преподаватель:

Панова Т.В.

Санкт-Петербург

2008

Вход: *a, n

Выход: *a

Вход: *a, orig, m, n

Выход: *a

Вход: x Вход: x

Вход: *f(x), a, b, n

Задача 7.1

В матрицах А (7х6) и В (6х7) заменить все отрицательные числа их квадратами.

Листинг программы

Вход: *a, n

Выход: *a

Вход: *a, orig, m, n

Выход: *a

#include <stdio.h>

#include <conio.h>

#dene x 3

#dene y 2

void maschng(int *, int);

void inmas (int *, int);

void outmas (int *, int, int);

void main(void)

{

int a[y][x], b[x][y];

system("cls");

inmas(&a[0][0],y*x);

system("cls");

outmas(&a[0][0],y,x);

maschng(&a[0][0],y*x);

outmas(&a[0][0],y,x);

// inmas(&b[0][0],x*y);

// system("cls");

// outmas(&b[0][0],y,x);

// maschng(&b[0][0],x*y);

// outmas(&b[0][0],x,y);

getch();

}

void maschng(int *a, int m)

{

int i;

for (i=0;i<m;i++)

if (*(a+i)<0)

*(a+i)=*(a+i)**(a+i);

}

void inmas (int *a, int n)

{

int i=0;

for (i=0;i<n;i++)

{

printf("[%d]=",i);

scanf("%d",a++);

}

void outmas (int *a, int m, int n)

{

int i,j;

printf("\n");

Начало InMas

Вход: *a, n

Выход: *a

i=0;n;1

Ввод a[i]

Конец InMas

Начало OutMas

Вход: *a, m, n

Выход: *a

i=0;m;1

j=0;n;1

Конец OutMas

Вывод *a++

Начало MasChng

Вход: *a, m

Выход: *a

i=0;m;1

*(a+i)<0

Конец MasChng

*(a+i)=*(a+i)**(a+i)

Вход: x Вход: x

Вход: *f(x), a, b, n

Задание 7.2

Удалить из матрицы А (5х7) все столбцы, содержащие не менее 2 отрицательных

элементов, а из матрицы В (7х7) – столбцы, содержащие не менее 3 отрицательных

элементов.

Листинг программы

Вход: *a, n

Выход: *a

Вход: *a, orig, m, n

Выход: *a

#include <stdio.h>

#include <conio.h>

#dene x 3

#dene y 4

int delrow(int *, int, int);

void inmas (int *, int);

void outmas (int *, int, int, int);

main(void)

{

int a[x][y]={3,-1,-3,3,-4,-5,-3,7,8,11,12,-13},

b[y][y]={-4,5,6,-7,1,-10,9,-23,65,-2,15,-3,6,-21,43,89};

int i,j;

system("cls");

// inmas(&a[0][0],x*y);

// inmas(&b[0][0],y*y);

outmas(&a[0][0],x,x,y);

printf("\n");

outmas(&a[0][0],x,delrow(&a[0][0],x,2),y);

printf("\n--------\n");

outmas(&b[0][0],y,y,y);

printf("\n");

outmas(&b[0][0],y,delrow(&b[0][0],y,3),y);

getch();getch();

return 0;

}

int delrow (int *a, int m, int p)

{

int i,j,i1,j1,k=0,count=0;

for (i=0;i<m-count;)

{

k=0;

for (j=0;j<y;j++)

if (*(a+i+j*m)<0)

k++;

if (k>=p&&count<m)

{

for(j1=0;j1<y;j1++)

for(i1=i+1;i1<m;i1++)

*(a+i1+j1*m-1)=*(a+i1+j1*m);

count++;

}

else

i++;

}

return m-count;

}

void inmas (int *a, int n)

Вход: x Вход: x

Вход: *f(x), a, b, n

Листинг (продолжение):

Вход: *a, n

Выход: *a

Вход: *a, orig, m, n

Выход: *a

void outmas (int *a, int orig, int m, int n)

{

int i,j;

printf("\n");

for (i=0;i<n;i++)

{

for (j=0;j<m;j++)

printf("%d\t",*(a+i*orig+j));

printf("\n");

}

Начало DelRow

Вход: *a, orig, m, n

Выход: *a

count=0

i=0;m-count;0

k=0

j=0;y;1

*(a+i+j*m)<

k=k+1

k≥p И

count<m

J1=0;y;1

i1=i+1;m;1

*(a+i1+j1*m-1)= *(a+i1+j1*m)

count=count+1

i=i+1

Конец DelRow

Вход: x Вход: x

Вход: *f(x), a, b, n

Задание 7.3

, , N=30, метод прямоугольников

Листинг программы:

Начало InMas

Вход: *a, n

Выход: *a

i=0;n;1

Ввод a[i]

Конец InMas

Вывод *(a+i*orig+j)

i=0;n;1

j=0;m;1

Начало OutMas

Вход: *a, orig, m, n

Выход: *a

Конец OutMas

#include <stdio.h>

#include <conio.h>

#include <math.h>

:oat integr(:oat(*)(:oat),int, int, :oat);

:oat f1(:oat);

:oat f2(:oat);

main(void)

{ :oat eps=0.01, integr0=0, n=30, (*f)(:oat x);

int i,num,a,b,c;

//system("cls");

{

printf("Vvedite koli4estvo funkcij:");

scanf("%d",&num);

} while (num<1||num>2);

for (i=1;i<=num;i++)

{

switch(i)

{

case 1:f=&f1;a=-1;b=4;n=30;break;

case 2:f=&f2;a= 1;b=4;n=30;break;

default:return 1;

}

{

integr0=integr(f,a,b,n);

printf("pri n=%5.0f\t integr=%5.4f\n",n,integr0);

n+=30;

} while(fabs(integr0-integr(f,a,b,n))>eps);

printf("\n%d-j integral: %f\n\n",i,integr0);

}

getch();

return 0;

}

:oat f1(:oat x)

{return 2*x*(x*x+1);}

Вход: x Вход: x

Вход: *f(x), a, b, n

Листинг (продолжение):

:oat f2(:oat x)

{return log(x*x+1);}

:oat integr(:oat(*f)(:oat x),int a, int b, :oat n)

{

:oat dx=(b-a)/n,s=0,x=a;

while(x<b)

{

s+=f(x);

x+=dx;

}

return s*dx;

Начало F1

Возврат F

Вход: x

Начало F2

Возврат F

Вход: x

Начало Integr

Вход: *f(x), a, b, n

x<b

s=s+f(x);

x=x+dx;

Возврат s*dx

Начало main

Ввод num

num<1 или

num>2

i=1;num;1

Кон. main

f=&f1;

a=-1;

b=4;

n=30;

f=&f2;

a=1;

b=4;

n=30;

Приложение.

Таблица тестирования (задание 7.1)

Матрица A

Вывод

Должно быть Получено

2 -5 8

-2 -8 1

Таблица тестирования (задание 7.2)

Матрица A

Вывод

Должно быть Получено

3 1 -3

3 -4 -5

-3 7 8

11 12 -13

Таблица тестирования (задание 7.3)

num

Интегралы

Должно быть Получено

1-й 2-й 1-й 2-й

≈142.8 ≈5.7 142.831512 5.755790

Integr0=integr(f,a,b,n)

Вывод n и integr0

n=n+30

2 25 8

4 64 1

2 25 8

4 64 1

-3