Void main()
{
int n;
long f;
cout<<"Vvedit n ";
cin>>n;
f=factorial(n);
cout<<"factorial ("<<n<<") ="<<f;
getch();
}
//14 Для даного х обчислити значення функції: F(x)
#include <math.h>
#include <iostream.h>
#include <conio.h>
#include <vcl.h>
Void main()
{
float x,y;
cout<<"Vvedit x \n"; cin>>x;
if (x>3) y=1/(pow(x,3)+6);
else y=x*x-3*x+9;
cout<<"\n F(x)= "<<y;
getch ();
}
//15 Знайти найбільше із трьох чисел a,b,c.
//Використовуючи підпрограму знаходження найбільшого двох чисел
#include <iostream.h>
#include <vcl.h>
#include <conio.h>
#include <math.h>
int maximum( int, int, int ); // прототип функции
Int main()
{
int a, b, c;
cout<<"Vvedit 3 cilyh chysla: \n";
cin>>a>>b>>c;
// а,b,с аргументи для
// виклику функції maximum
cout<<"Maksymalne znachennaj: "<<maximum(a, b, c)<<endl;
return 0;
}
// Опис функції maximum
// х, у , z являються параметрами для
// опису функції maximum
int maximum( int x, int y, int z )
{
int max = x;
if (y > max)
max = y;
if ( z > max )
max = z;
cout<<"Naybilshe chyslo "<<max;
getch();
}
//16. Знайти добуток значень елементів масиву з 10 чисел, кратних числу 5
//17 Знайти значення функції у=4х^2-2x+3 від -4 до 2 з кроком 0,5
#include <conio.h>
#include <iostream.h>
#include <vcl.h>
#include <math.h>
Void main()
{
float x,h=0.5,y;
float a=-4, b=2+h/2; //Щоб не втратити останнього значення (х=2)
//додаємо деяку зміщення наприклад h/2
cout<<"x y\n";
for(x=a;x<=b;x+=h)
{
y=4*pow(x,2)-2*x+3; //Обчислення У
cout<<x<<"\t"<<y<<"\n";
}
getch();
}
//18 Знайти кількість відємних елементів в кожному рядку двовимірного масиву, який складається із 7 рядків і 5 стовпців
#include <vcl.h>
#include<iostream.h>
#include<conio.h>
#include<iomanip.h>
Int main()
{
int ryad=7; int stovp=5;
//Уведення розмірності масиву
cout<<"Vvedit kilkistt' ryadkiv:(7) "; cin>>ryad; //7
cout<<"Vvedit kilkistt' stovpciv:(5) "; cin>>stovp; //5
//виділення памяті під масив
int i,j;
int k=100;
//уведення масиву
int mas[7][5];
randomize(); //ініціалізація генератора випадкових чисел
for(i=0; i<ryad; i++)
for(j=0; j<stovp; j++)
mas[i][j]=random(k)-40;
//Виведення масиву
for (i=0; i<ryad; i++)
{
for(j=0; j<stovp; j++)
cout<<setw(4)<<mas[i][j]<<" ";
cout<<endl;
}
int col1=0; int col2=0; int col3=0; int col4=0; int col5=0;
for(i=0; i<ryad; i++)
for(j=0; j<stovp; j++)
if(mas[1][j]<0) //перевірка
col1++;
cout<<col1;
if(mas[2][j]<0) //перевірка
col2++;
cout<<" "<<col2;
if(mas[3][j]<0) //перевірка
col3++;
cout<<" "<<col3;
if(mas[4][j]<0) //перевірка
col4++;
cout<<" "<<col4;
if(mas[5][j]<0) //перевірка
col5++;
cout<<" "<<col5;
cout<<endl;
getch(); return 0;
}
//19 Знайти найдовше слово в масиві який складається із 7 слів
#include <conio.h>
#include <vcl.h>
#include <iostream>
#include <string>
#include <sstream>
using namespace std;
int main(int argc, char *argv[])
{
cout << "Vvedit masyv vykorystovuucht TAB: ";
string s;
getline(cin, s);
int max_length = 0;
string max_word;
istringstream iss(s);
while (iss >> s)
{
if (max_length < s.length())
{
max_length = s.length();
max_word = s;
}
}
cout << "slovo " << max_word
<< " maye naybilshu dovjynu = "
<< max_length << endl;
getch();
return 0;
}
//20 Знайти найменший елемент в масиві із 7 цілих чисел
#include <iostream.h>
#include <conio.h>
#include <vcl.h>
main()
{
const int n=7; //Розмірність масиву
float a[n]; //Оголошення масиву
for(int i=0; i<n; i++)
{
cout<<"Vvedit' "<<i<<" element:\t";
cin>>a[i]; //Уведення елементів масиву
}
float Min, Max;
Min=Max=a[0]; //Ініціалізація 1-им елементом масиву
//порівняння з поточним елементом
for(int i=1; i<n; i++)
if(a[i]>Max)
Max=a[i]; //Поточний максимальний елемент
else if(a[i]<Min)
Min=a[i]; //Поточний мінімальний елемент
cout<<"\nMin element=\t"<<Min<<"\nMax element=\t"<<Max<<endl;
getch();
return 0;
}
//---------------------------
//21 Знайти суму додатніх елементів масиву із 5 дійсних чисел
#include <vcl.h>
#include <iostream.h>
#include <conio.h>