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

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

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

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

Кафедра И3

«Информационные системы и компьютерные технологии»

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

«Функции»

Вариант 13

Выполнил:

Студент Тихонов А.Ю.

Группа И383

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

Снижко Е.А.

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

2008

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

Цель работы – научится использовать функции для выполнения однотипных действий над различными

данными, правильно задавать параметры функций, передавать указатели на функции в качестве параметров.

Постановка задачи

Написать три программы согласно индивидуальному варианту задания. Для первой и второй программы

функции ввода и вывода массивов описывать отдельно, не объединяя с обработкой данных. Можно сохранить

эти функции в отдельном файле и использовать в отдельном файле в обеих программах, подключив этот файл с

помощью директивы #include.

В третьей программе определить функцию Integral() для приближенного вычисления определённого

интеграла вида указанным методом. Используя эту функцию для вычисления значений двух

интегралов, передавая подынтегральную функцию в функцию Integral() в качестве параметра.

Формула Ньютона :

Задание

Вариант 13

1. Отсортировать нечётные сроки матрицы A(6х7) в порядке убывания, а чётные – в порядке возрастания.

2. Найти , где и – минимальные элементы матриц Y(9x12) и Q(5x10), а и –

максимальные элементы заданных матриц.

3. , , N=15, метод Ньютона.

Решение

Пример №1

Задание:

Отсортировать нечётные сроки матрицы A(6х7) в порядке убывания, а чётные – в порядке возрастания.

Код программы:

#include<stdio.h>

#include<conio.h>

#deAne y 4

#deAne z 4

void in(Goat *,int,int);

void funcNon(Goat *,int,int);

void out(Goat *,int,int);

int main(void)

{

Goat mas[y][z];

clrscr();

in(&mas[0][0],y,z);

funcNon(&mas[0][0],y,z);

out(&mas[0][0],y,z);

return 0;

}

void in(Goat*a,int x,int u)

{

int i,j;

prinZ("MaCCuB:\n");

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

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

{

prinZ("MAS[%d][%d]=",i,j);

scanf("%f",a++); }

}

void out(Goat*b,int t,int r)

{

int i,j;

prinZ("\n");

prinZ("IIoJIy4eHo:\n");

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

{ for(j=0;j<r;j++)

prinZ("%.2f\t",b[i*t+j]);

prinZ("\n");

}

void funcNon(Goat*d,int h,int g)

{

int i,j,q,w=0;

Goat k;

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

{

w=w++;

if(w%2==0)

for(q=0;q<g-1;q++)

{

for(j=0;j<g-1;j++)

if(d[i*h+j]>d[i*h+j+1])

{ k=d[i*h+j];

d[i*h+j]=d[i*h+j+1];

d[i*h+j+1]=k;

}

j=0;

}

else

for(q=0;q<g-1;q++)

{

for(j=0;j<g-1;j++)

if(d[i*h+j]<d[i*h+j+1])

{ k=d[i*h+j];

d[i*h+j]=d[i*h+j+1];

d[i*h+j+1]=k;

}

j=0;

}

Блок схема:

main

In(mas,y,z)

FuncXon(mas,y,z)

out(mas,y,z)

конец

i=0,n,1

Void out

i=0,m,1

In(mas,y,z)

Return 0;

Float*a,int n, int m

Int I, j;

i=0,n,1

Void in

i=0,m,1

In(mas,y,z)

Return 0;

Float*a,int n, int m

Int I, j;

Тестирование:

Делители

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

1 2 3 4

4 3 2 1

1 2 3 4

4 3 2 1

1 2 3 4

4 3 2 1

1 2 3 4

4 3 2 1

1 2 3 4

Вывод: программа работает правильно.

Void funcXon

i=0,h,1

w=w++;

w%2==0

q=0,g-1,1

i=0,g-1,1

d[i*h+j]>d[i*h+j+1]

K=d[i*h+j]

d[i*h+j]= d[i*h+j+1]

d[i*h+j+1]=k

j=0

q=0,g-1,1

i=0,g-1,1

j=0

d[i*h+j]<d[i*h+j+1]

K=d[i*h+j]

d[i*h+j]= d[i*h+j+1]

d[i*h+j+1]=k

Return 0;

Float*d , int h, int g

Int I, j, q, w=0

Float k

Пример №2

Задание:

Найти , где и – минимальные элементы матриц Y(9x12) и Q(5x10), а и –

максимальные элементы заданных матриц.

Код программы:

#include<stdio.h>

#deAne k 9

#deAne l 12

#deAne m 5

#deAne n 10

void in(Goat *,int);

Goat min(Goat *,int,int);

Goat max(Goat *,int,int);

int main(void)

{

Goat m1[k][l],m2[m][n];

clrscr();

in(&m1[0][0],k*l);

in(&m2[0][0],m*n);

prinZ("\nCyMMA=%f", ( min(&m1[0][0],k,l)

+min(&m2[0][0],m,n) )

/ ( max(&m2[0][0],m,n)-max(&m1[0][0],k,l) ) );

return 0;

}

void in(Goat*a,int x)

{

int i;

prinZ("MaCCuB:\n");

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

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

}

Goat min(Goat*b,int y,int z)

{

int i,j;

Goat min;

prinZ("\n");

min=b[0];

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

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

if(b[i*y+j]<min)

min=b[i*y+j];

prinZ("min=%.2f",min);

return min;

}

Goat max(Goat*b,int y,int z)

{

int i,j;

Goat max;

prinZ("\n");

max=b[0];

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

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

if(b[i*y+j]>max)

max=b[i*y+j];

prinZ("max=%.2f",max);

return max;

}

Блок схема:

начало

In(m1,k*l)

In(m2,m*n)

конец

m1[k][l]

m2[m][n]

min

I=0,y,1

min=b[0]

J=0,z,1

b[i*y+j]<m

Return min

min=b[i*y+j]

b[y][z]

I,j,min

max

I=0,y,1

max=b[0]

J=0,z,1

b[i*y+j]>m

Return max

max=b[i*y+j]

b[y][z]

I,j,min

I=0,y,1

a++

Return 0

a[y*z]

Тестирование:

Делители

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

1,2,3,4

5,6,7,8

Сумма = 1.5 Сумма = 1.5

2,2,2,2

4,4,4,4

Сумма = 2.0 Сумма = 2.0

Вывод: программа работает правильно.

Пример №3

Задание:

, , N=15, метод Ньютона.

Код программы:

#include <stdio.h>

#include <conio.h>

#include <math.h>

Goat integ(Goat(*f)(Goat),int,int,int);

Goat f1(Goat);

Goat f2(Goat);

int main (void)

{Goat s,a,b,(*p)(Goat);

int n,k,i;

do{prinZ("\nInput kolvo f\n");

scanf("%d",&k);}while(k>2||k<1);

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

{switch (i)

{case 1: a=1;b=5;p=f1;break;

case 2: a=-1;b=3;p=f2;break;}

n=15;

{s=integ(p,a,b,n);

n*=2;

prinZ("integral=%f\tn=%d\n",s,n);}

while(n<7000);

prinZ("\n");}

getch();

return 0;}

Goat integ(Goat(*f)(Goat),int a,int b,int n)

{Goat h,s=(f(a)+f(b))/2;

Goat i;

int j=2;

h=(Goat)(3*(b-a))/(8*n);

for(i=a+h;i<=b-h;i+=h)

{ if(j%3!=0)

s+=3*f(i);

else s+=2*f(i);

j++;

}

return s*=h;}

Goat f1(Goat x)

{return cos(x)/(1+pow(sin(x),2));}

Goat f2(Goat x)

{return x*pow(2.7,(x+1));}

Блок схема: