Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Приложение К





Исходный код программы 6.

1) Mai.cpp

#include "my.h"

void main()

{

clrscr ();

int *B;

int N;

B=input(&N);

output (B,N);

long s1=0,s2=0;

s1=sum23(B,N);

s2=sumBol(B,N);

invert(B,N);

output(B,N);

output (s1,s2);

free(B);

}

int* input(int *pN)

{

printf ("\nVvedite kolichestvo elementov massiva\n");

scanf ("%d",pN);

int *A;

A=(int*)malloc((*pN)*sizeof(int));

printf ("\nVvedite elementy massiva\n");

for (int i=0;i<*pN;i++)

scanf("%d",&(A[i]));

return A;

}

void output (int A[],int N)

{ printf("\n");

for (int i=0;i<N;i++)

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

if (!getch())

getch();

}

void output(long s1,long s2)

{

printf ("\ns1= %d", s1);

printf ("\ns2=%d",s2);

if (!getch())

getch();

}

2) Calc.cpp

#include "my.h"

long sum23 (int A[],int N)

{

long s=0;

for (int i=0;i<N;i++)

{

if ((A[i]%2==0)||(A[i]%3==0))

s+=A[i];

}

return s;

}

long sumBol (int A[],int N)

{

long sum=0;

for (int i=0;i<N-1;i++)

{

if (A[i]>A[i+1])

sum+=A[i];

}

return sum;

}

void invert (int A[],int N)

{

int iMax=0,max=A[0];

int buf;

for (int i=0;i<N;i++)

{

if (max<A[i])

{

max=A[i];

iMax=i;

}

}

i=0;

if (iMax!=N-1)

{

iMax++;

for (iMax;i<(N-iMax)/2+1;iMax++)

{

buf=A[N-1-i];

A[N-1-i]=A[iMax];

A[iMax]=buf;

i++;

}

}

}

3) Test.cpp

#include "my.h"

void test ()

{

int A[6]={5,6,4,3,2,1};

long s;

s=sum23(A,6);

if (s!=15)

{

printf("error function sum23");

exit(1);

}

s=0;

s=sumBol(A,6);

if (s!=15)

{

printf("error function sumBol");

exit(1);

}

invert (A,6);

int j=0;

for (int i=2;i<6;i++)

{

if (A[i]!=j)

{

printf("error function sumBol");

exit(1);

}

}

}


 







Дата добавления: 2015-08-12; просмотров: 328. Нарушение авторских прав; Мы поможем в написании вашей работы!




Обзор компонентов Multisim Компоненты – это основа любой схемы, это все элементы, из которых она состоит. Multisim оперирует с двумя категориями...


Композиция из абстрактных геометрических фигур Данная композиция состоит из линий, штриховки, абстрактных геометрических форм...


Важнейшие способы обработки и анализа рядов динамики Не во всех случаях эмпирические данные рядов динамики позволяют определить тенденцию изменения явления во времени...


ТЕОРЕТИЧЕСКАЯ МЕХАНИКА Статика является частью теоретической механики, изучающей условия, при ко­торых тело находится под действием заданной системы сил...

Сущность, виды и функции маркетинга персонала Перснал-маркетинг является новым понятием. В мировой практике маркетинга и управления персоналом он выделился в отдельное направление лишь в начале 90-х гг.XX века...

Разработка товарной и ценовой стратегии фирмы на российском рынке хлебопродуктов В начале 1994 г. английская фирма МОНО совместно с бельгийской ПЮРАТОС приняла решение о начале совместного проекта на российском рынке. Эти фирмы ведут деятельность в сопредельных сферах производства хлебопродуктов. МОНО – крупнейший в Великобритании...

ОПРЕДЕЛЕНИЕ ЦЕНТРА ТЯЖЕСТИ ПЛОСКОЙ ФИГУРЫ Сила, с которой тело притягивается к Земле, называется силой тяжести...

Ваготомия. Дренирующие операции Ваготомия – денервация зон желудка, секретирующих соляную кислоту, путем пересечения блуждающих нервов или их ветвей...

Билиодигестивные анастомозы Показания для наложения билиодигестивных анастомозов: 1. нарушения проходимости терминального отдела холедоха при доброкачественной патологии (стенозы и стриктуры холедоха) 2. опухоли большого дуоденального сосочка...

Сосудистый шов (ручной Карреля, механический шов). Операции при ранениях крупных сосудов 1912 г., Каррель – впервые предложил методику сосудистого шва. Сосудистый шов применяется для восстановления магистрального кровотока при лечении...

Studopedia.info - Студопедия - 2014-2025 год . (0.011 сек.) русская версия | украинская версия