//1. В масиві із шести цілих чисел знайти кількість відємних елементів
//Inform lehan 10-12 st.83
#include <vcl.h>
#include<iostream.h>
#include<conio.h>
int main()
{
const int n=6; //розмірність масиву
int x[n]; //оголошення масиву
for (int i=0; i<n; i++)
{
cout<<i<<" element:\t";
cin>>x[i]; //уведення елементів масиву
}
//підрахунок відємних елементів
int col=0;
for(int i=0; i<n; i++)
if(x[i]<0) //перевірка
col++;
cout<<endl;
for(int i=0; i<n; i++)
cout<<x[i]<<"\t"; //друк елементів масиву
cout<<"\nvidjemnyh elementiv:\t"<<col<<endl;
getch(); return 0;
}
{2. В тексті подвоїти задану букву}
program z1;
uses crt;
var a,c:string; i,k:integer; b:char;
begin
clrscr;
writeln('Vvedit ryadok (a) ');
readln(a);
writeln('Vvedit symvol podvoennya (b) ');
readln(b);
c:='';
for i:=1 to length(a) do
begin
if a[i]=b then c:=c+b+b else c:=c+a[i];
end;
writeln('Ryadok z podvoenym symvolom ');
writeln(c);
readkey;
end.
//3. Визначте чи є трикутник зі сторонами a,b,c рівнобедреним
#include <vcl.h>
#include <iostream.h>
#include <conio.h>
#include <math.h>
//---------------------------------------------------------------------------
Int main()
{
unsigned short int a,b,c;
cout<<"Vvedit dovjynu storony a ";
cin>>a;
cout<<"Vvedit dovjynu storony b ";
cin>>b;
cout<<"Vvedit dovjynu storony c ";
cin>>c;
if (a==b & b==c) cout<<"Trykutnyk rivnostoronnij";
else
if (a==b || a==c || b==c) cout<<"Trykutnyk rivnobedrenyj";
else cout<<"Trykutnyk riznostoronnij";
getch(); return 0;
}
//4. Визначте чи є уведене слово паліндромом
#include <vcl.h>
#include <stdio.h>
#include <string.h>
#include <iostream.h>
#include <conio.h>
void main()
{
char sword[256];
int jc;
int ipal;
printf("Enter Word: ");
scanf("%s",sword);
for(jc=0,ipal=1;jc<strlen(sword)/2;jc++)
{
if(sword[jc]!=sword[strlen(sword)-1-jc])
{
ipal=0;
break;
}
}
if(ipal)
printf("YES - vvedene slovo PALINDROM\n");
else
printf("NO - vvedene slovo ne PALINDROM\n");
getch();
}
//5. Дано координати трьох вершин трикутника.
//Визначити полощу та перимерт трикутника.
#include <vcl.h>
#include <iostream.h>
#include <conio.h>
#include <math.h>
Void main()
{
double x1,y1,x2,y2,x3,y3; //оголошуємо змінні та вводимо дані
cout<<"Vvedit koordynaty tochky A "; cin>>x1>>y1;
cout<<"Vvedit koordynaty tochky B "; cin>>x2>>y2;
cout<<"Vvedit koordynaty tochky C "; cin>>x3>>y3;
float a,b,c,s,p; //оголошуємо додаткові змінні
//обчислюємо довжини сторін-----------------------------------
a=sqrt(pow((x3-x2),2)+pow((y3-y2),2));
b=sqrt(pow((x1-x3),2)+pow((y1-y3),2));
c=sqrt(pow((x1-x2),2)+pow((y1-y2),2));
p=(a+b+c);
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<"Perymetr trykutnyka ="<<p<<"\n";
cout<<"Ploshcha trykutnyka ="<<s;
getch(); //return 0;
}
//---------------------------------------------------------------------------
//6. Дано масив з 20 цілих чисел, заповнений випадковими числами від (-40 до 90)
#include <vcl.h>
#include <iostream.h>
#include <conio.h>
Void main()
{
const int n=20; //Розмірність масиву
int M[n];
int i; //Оголошення масиву
int k=130; //кількість чисел від -40 до 90 буде 90+40=130
randomize(); //ініціалізація генератора випадкових чисел
for(i=0; i<n; i++)
M[i]=random(k)-40; //Кожному елементу присвоюється деяке
//випадкове значення з проміжку -40,90
for (i=0; i<n; i++)
cout<<M[i]<<"\t";
getch();
}
//7. Переставте в оберненому порядку частину масиву між елементами з номерами k1 I k2 включно
//8. Дано натуральне число n. Обчислити 1+1/2+1/3+...+1/n
#include <iostream.h>
#include <conio.h>
#include <vcl.h>
#include <stdio.h>
Void main()
{
int n; //кількість членів ряду
float i; //номер елемента ряду. Якщо оголосити як int
//то буде відсікання дробової частини
float elem; //значення елементу ряду
float summ=0; //сума елементів ряду
cout<<"Obchyslennja chastkovoi sumy rajdu ";
cout<<"1+1/2+1/3+...+1/n\n\n";
cout<<"Vvedit' kilkist sumuemyh chleniv rajdu ";
cin>>n;
summ=0;
for (i=1; i<n; i++){
elem=1/i;
summ+=elem;
}
cout<<"Summa pershyh "<<n<<" chleniv rajdu "<<summ;
getch();
}
//9. Дано натуральнi числa m,n. знайти m!+n!/(m+n)!
#include <iostream.h>
#include <conio.h>
#include <vcl.h>
main()
{
int n,m,nm,i;
long double Fn,Fm,Fnm,Res;
Fn=1;Fm=1;Fnm=1; //Початкове значення змінної
cout<<"Vvedit n ";
cin>>n;
cout<<"Vvedit m ";
cin>>m;
for (i=2; i<=n; i++)
Fn=Fn*i;
cout<<"\nFactorial po n ="<<Fn; //Вимагає введення числа
for (i=2; i<=m; i++)
Fm=Fm*i;
cout<<"\nFactorial po m ="<<Fm;
nm=n+m;
for (i=2; i<=nm; i++)
Fnm=Fnm*i;
cout<<"\nFactorial po nm ="<<Fnm;
Res=(Fm+Fn)/Fnm;
cout<<"\nZnachenna vyrazu m!+n!/(m+n)! ="<<Res;
getch();
}
//10. Дано рядок що містить 20 символів. Підрахувати кількість цифр у рядку
#include <iostream.h>
#include <conio.h>
#include <vcl.h>
#include <stdio.h>
#include <string.h>