Решено Сборник решенных задач

[Whispering]

Спойлер: C++

Составить программу которая бы просила верно ввести пароль. Поставить ограничение на n попыток.
#include <iostream>
using namespace std;
int main()
{
    setlocale(0,"Rus");
    int password,value=5000,n;
    for (n=3; n>0; n--) { 
        cout<<"У вас есть "<<n<<" попыток ввести пароль."<<endl;
        cin>>password;
        if (password==value) { 
            cout<<"Вы верно ввели пароль."<<endl;
            break;
        }
    }
    if (n==0) cout<<"Вы исчерпали свои попытки."<<endl;
    system("pause");
    return 0;

C++ как обратиться к переменной, имя (НЕ Адрес) которой записано в другой переменной
#include <iostream>
#include <vector>
#include <conio.h>

using namespace std;

int main(){
int x,y;
cout<<"Enter X"<<"\n";
cin>>x;
x=y;
cout << "x=y , y= " << y << "\n";
}

Мы вводим расстояние в метрах в зависимости от номера. Получить расстояние в мм (1), в см (2), в дм (3), в км (4)

#include <iostream>
using namespace std;
int a;
double n;
int main(){
setlocale(LC_ALL, "Russian");
cout<<"Введите количество метров"<<endl;
cin>>n;
cout<<"Переводим метры в"<<endl<<"1.ММ"<<endl<<"2.СМ"<<endl<<"3.DM"< <endl<<"4.KM"<<endl;
cin>>a; 
switch(a)
{
case 1:
cout<<n<<" М это "<<n*1000<<" ММ";
break;
case 2:
cout<<n<<" М это "<<n*100<<" СМ";
break;
case 3:
cout<<n<<" М это "<<n*10<<" ДМ";
break;
case 4:
cout<<n<<" М это "<<n/1000<<" КМ";
break;
}
}

Как узнать, является ли sqrt(x) числом типа int?
#include <iostream>
#include <math.h>

using namespace std;
int main(){
setlocale(LC_ALL, "Russian");
int a;
cin>>a;
if((sqrt(a) >= -2147483648LL && sqrt(a) <= 2147483647LL)) {

cout<< ((int)sqrt(a) == sqrt(a) ? "int" : "вещественное") <<endl;
}
else 
{
cout<< ((int)sqrt(a) == sqrt(a) ? "целое" : "вещественное") <<endl;
}
cout<<sqrt(a);
}

Выделить минимальное и максимальное значение в массиве каким-нибудь цветом отличающимся от остальных элементов массива. Вывести массив на экран.
#include <iostream>
#include <string>
#include <cstdlib>
#include <windows.h>
using namespace std;
int main(){
const int n = 20,i=0;
int A[n],max=A[0],min=A[0];
for (int i = 0; i < n; i++)
{
(A[i] = rand() % 10);

}
for (int i = 0; i < n; i++) 
if (min>A[i])
min = A[i];
if (max<A[i])
max = A[i];

for (int i = 0; i < n; i++) 
cout << A[i] << endl;
SetConsoleTextAttribute( GetStdHandle( STD_OUTPUT_HANDLE ),
FOREGROUND_GREEN );
cout << "Min:" << min << endl;
cout << "Max:" << max << endl;

}

Программа получает на вход количество чисел в последова- тельности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Ко- личество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — количество чисел, кратных 4.

#include<iostream> 
#include<stdlib.h> 
using namespace std; 
int main() 
{ 
int N,v=0; 
int i; 
int* m; 
loop:
cout << "N="; cin >> N; 
if ((N<=0) or (N>1000)) {
cout<<"0<N<1000, Enter again"<<endl; 
goto loop; }
else 
{

m=new int[N]; 
int* p=&m[0]; 
for(i=0;i < N;i++) *p++=rand() % 30000; 
for(--p,i=0;i < N;i++) cout << *p-- << '\t'; 
cout << endl; 
for(i=0;i < N;i++) {
if (i%4==0) v++;
}
cout << "Number of elements of multiple 4: " << v << endl;
delete [] m; } 
}

Надо чтобы он выводил перевернутый треугольник в заданном размере, например в размере 3 он будет выглядеть так:
***
**
*

#include <stdio.h>

int main( void )
{
int i, j, n = 8, k;
for( i = 0; i < n; i++ )
{
j = 0;
k = ( i <= n / 9 ) ? ( i ) : ( n - i );
while ( j < k )
{
printf( " *" );
j++;
}
printf( "\n" );
}

/*Организовать беспрерывный ввод чисел с клавиатуры, пока пользователь не введёт 0.
После ввода нуля, показать на экран количество чисел, которые были введены,
их общую сумму и среднее арифметическое.
#include <iostream>
#include <vector>
#include <conio.h>

using namespace std;

int main(){
int n=0, t=0, r=0;
do
{
cout << "Enter N: ";
cin >> n;
cout << "\n";
t++;
r += n;
} while (n != 0);
cout << "\nN entered " << t << " times";
cout << "\nSum of N = " << r << "\n";
}

Даны 2 числа. Создать калькулятор для 2 чисел. Вводите 2 числа и номер действия. 1 - сложение, 2 - вычитание, 3 -умножение, 4 - деление.#include <iostream>
#include <conio.h>

using namespace std;

int main()
{
int a, b, c;
cout << "Enter A: ";
cin >> a;
cout << "Enter B: ";
cin >> b;
cout << "1 + 2 - 3 * 4 /";
cin >> c;
switch (c)
{
case 1: {cout << "The answer is: " << a + b;getch();break;}
case 2: {cout << "The answer is: " << a - b;getch();break;}
case 3: {cout << "The answer is: " << a * b;getch();break;}
case 4: {cout << "The answer is: " << a / b;getch();break;}
}

}

Ввожу число (Например 25);
И мне консоль выдаёт следующее:
Ваше число 25;
При этом, такое проворачивать можно было много раз; 
То есть, если ввожу 15 - мне пишет ваше число 15, ввожу чуть ниже 21 - мне пишет ваше число 21;
#include <iostream>

int main()
{
long a;
L1:
std::cout<<"Enter A"<<std::endl;
std::cin>>a;
std::cout<<"A="<<a<<std::endl;
goto L1;
return 0;
}

Посчитать сумму элементов столбцов матрицы
#include <iostream>

int main()
{
int const ROW = 3;
int const COL = 2;
int matrix[ROW][COL] =
{
{1, 2},
{3, 4},
{5, 6}
};

for (int i=0; i<ROW; ++i)
{
for (int j=0; j<COL; ++j)
std::cout << "[" << i << "]" << "[" << j
<< "] == " << matrix[i][j] << "\t";
std::cout << std::endl;
}

for (int j=0, sum=0; j<COL; ++j)
{
sum = 0;
for(int i=0; i<ROW; ++i)
sum += matrix[i][j];
std::cout << "\nElement sum of column " << j
<< " = " << sum << ".\n";
}

return 0;
}

Знайти суму чисел даної послідовності, які мають більше двох дільників, не враховуючи 1 та самого числа

#include <iostream>
#include <cstdlib>
#include <cmath>
using namespace std;

int main() {
int p,n,summ=2;
double k;
int f=0;
cout<<"From 1 to N, Enter N"<<endl;
cin>>n;
for (int i=3; i<n+1; i++)
{
if (i%2!=0);
{
k=sqrt(i);
p=ceil(k);
f++;


for (int j=2; j<=p; j++)
{
if (i%j==0)
{
f++;
}
}
if (f<2)
{
summ+=i;
}
f=0;
}
}
cout<<"total amount of numbers including "<<n<<" = "<<summ<<endl;
system("pause");
return 0;
}

написать программу которая считывает прямоугольника и круга с площадью S, P и проверить входит ли прямоугольник в круг, или круг в прямоугольник, или не входят вообще

#include <iostream>
#include <math.h>
int main()
{
double a,b,S,P,diag,r; 
std::cout<<"Enter S(A,B) and P"<<std::endl;
std::cin>>a>>b>>P;
S=a*b;
diag=S/sqrt(2.);
r=sqrt(P/M_PI);
if(r>diag)
std::cout<<"Triangle in circle"<<std::endl;
else if(r<S)
std::cout<<"Circle in triangle"<<std::endl;
else
std::cout<<"NO"<<std::endl;
}

Задача. Нужно найти все натуральные числа на отрезке [a;b] которые делятся на все свои цифры. Например. a=13, b=20. Вывод: 15.
#include <stdio.h>
int isValueDivOnItsDigits(int val);

int main()
{
int n = 0;
int i = 0;
printf("n = ");
if(!scanf("%d",&n))
printf("Input error\n");
else
{
for(i = 0; i < n; i = i + 1)
{
printf("Value : %d ", i);
if(isValueDivOnItsDigits(i))
printf("YES\n");
else
printf("NO\n");
} 
}
return 0;
}

int isValueDivOnItsDigits(int val)
{
int buf = val;
int iRet= 0;
int dig = 0; 
do
{
dig = buf % 10;
if(dig != 0)
{
if(val % dig == 0)
iRet = 1;
buf = buf / 10;
}
else
iRet = 0;
}
while(iRet == 1 && buf);
return iRet;
}

Как сделать так, чтобы когда код до ходил до конца, заново не выскакивало сообщение о том, что нужно ввести пароль с логином?
#include <string.h>
#include <stdio.h>
#include <conio.h>

const char sLOGIN[] = "login";
const char sPASSW[] = "password";

int main()
{

char sLogin[32];
char sPassw[32];
printf("Enter login : ");
scanf("%s",sLogin);
if(strcmp(sLogin,sLOGIN) != 0)
{
printf("Incorrect login\r\n");
main();//ìîæíî goto
}
printf("Enter password : ");
scanf("%s",sPassw);
if(strcmp(sPassw,sPASSW) != 0)
{
printf("Incorrect password\r\n");
main();
}
printf("LOGIN PASSWORD - OK\r\n");
printf("Press any key to continue\r\n");
getch();
}

как суммировать два числа на c++ как строка например 5+5=55

#include <iostream>
using namespace std;

int main() 
{
int x = 0;
int e = 0;

cout << "Enter X,E: ";
cin >> x;
cin >> e;

cout << x<<e;

system("pause");
return 0;
}

Не понимаю как сделать так, чтобы меня возвращало заново ввести данные е, х, если я задаю им значения за их пределом.
#include <iostream>
using namespace std;

int main() 
{
int x = 0;
int e = 0;
while(true)
{
cout << "Enter X,E: ";
cin >> x;
cin >> e;
if(x!=0 or e>0)
{
cout << "ERROR. Enter again\n";
cin.clear();
while (cin.get() != '\n');
}
else break;
}

cout << x << endl;
cout << e << endl;

system("pause");
return 0;
}

Как инвертировать число? Есть число 3 в десятичной системе (0011) Должно получиться 1100, т. е. 12.
#include <iostream> 
#include <cstring>
#define size 50

int main()
{

char str [size];
char str2[size];

std::cin.get(str,size);

for(unsigned int i=0;i<strlen(str);i++)
{
str2[i] = str[strlen(str)-i-1];
std::cout<<str2[i];
}
return 0;
}

Есть программа, в которой сказано что х=6.02*y, и когда программа запускается, он мне считает как х=6*y. Как сделать так что бы эти 2 сотые не пропадали?
#include <iostream>

int main ()
{
double x=6.02, y;
double rezult;

while (1)
{
std::cout << "y=";
std::cin >> y;
rezult=x*y;
std::cout << "Result: " << rezult;
std::cout << std::endl << std::endl;
}
system ("pause");
return 0;
}

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

#include <iostream>
#include <conio.h>
#include <iomanip>
#include <time.h>
#include <clocale>
#include <cstdlib>
using namespace std;

int main()
{
setlocale(LC_ALL,"Russian");
srand(time(NULL));
const size_t n = 5;

int i,max,a[n];

cout<<" Ìàññèâ: ";
for (size_t i = 0; i < n; ++i)
{
a[i] = rand() % 100;
cout << setw(4) << a[i];
}
max=a[0];

for(i=1;i<n;i++) 
{ 
if(max<a[i]) max=a[i]; 
}
cout<<"\n\n max="<<max<<endl;



for (int i = 0; i < n; i++)
{
if ( (a[i] != max)) 
cout << a[i] << " ";
}
getch();
return 0; 
}

как сделать ввод от пользователя, используя массивы char? В Интернете я видел функцию gets()
#include <stdio.h>
#include <string.h>
int main(void)
{
char str[80];
gets(str);
printf("Length is %d", strlen(str));
return 0;
}

1.Из массива Р, содержащего 10 элементов, сформировать массив Т по правилу:
a. Т (к) =к*Р (к), где к – чётные, Т (к) =Р (к) /к, где к – нечётные.

2. В массиве, содержащем 10 элементов, умножить на заданное число максимальный отрицательный элемент.
#include<iostream>

int main(){
int n=10, m=0;
int * M=new int[n];
for(int i=0;i<n;++i){
std::cin >> M[i];
if(M[i]%2)
++m;
}


if(m){
int * N=new int[m];
for(int i=0, j=0;i<n;++i)
if(M[i]%2)
std::cout << (N[j++]=M[i]) << " ";
delete [] N;
}else
std::cout << "Error";

delete [] M;
std::cout << std::endl;

system("pause");
return 0;
}

#include <iostream>

using namespace std;

int main(int argc, char* argv[])
{
setlocale(0, "");
const int n = 10;
int i = 0, mas[n];
int min = 0;
int m = 0;
cout << "Enter * digit: \n";
cin >> m;
cout << "Enter 10 digits: \n";

for (i = 0; i < n; i++)
{
cin >> mas[i];
if (mas[min] > mas[i]) 
min = i;
}
cout << "Minimal Element: " << mas[min] << "\n";
cout << "Minimal Element *: " << mas[min]*m << "\n";
system ("pause>>void");
return 0;
}

int num1;
float num2;
cin >> num1;

если num1 имеет плавающую точку, то num1 = num2

иначе если num1 не имеет плавающую точку, то num1 остается num1
#include <iostream>

int main() {
double d = 0.0;
double c = 5;
for(;;) {
if (!(std::cin >> d)) break;
std::cout << d << std::endl;
}
std::cout << c << std::endl; 
}

факториал числа в c++
обязательно нужно что бы вводимое число не превышало 12.
#include <iostream>
using namespace std;

long double fact(int N)
{
if(N < 0) // если отрицательное число
return 0; // возвращаем 0
if (N == 0) // если ввели 0
return 1; // возвращаем факториал от 0
else 
return N * fact(N - 1); //рекурсия
}

int main()
{
int N;
cout << "Enter digit: ";
cin >> N;
if (N>=13) cout << "N=<13"; else // условие
cout << "Factorial " << N << " = " << fact(N) << endl << endl; // fact(N) - call function
return 0;
}

определить принадлежит ли точка с координатами x y закрашенной области
#include <iostream>

using namespace std;

int main()
{
double x,y;
cout<<"x : ";
cin>>x;
cout<<"y : ";
cin>>y;
if ((x>1) && (y>-2)) // Измените математическое условие на свое.
cout<<"Dot in Area"<< endl;
else
cout<<"Dot out Arena"<< endl;
return 0;
}

Дано значение температуры T в градусах Фаренгейта. Определить значение этой же температуры в градусах Цельсия. Температура по Цельсию TC и температура по Фаренгейту TF связаны следующим соотношением: 
TC = (TF – 32)•5/9.
#include <iostream>
using namespace std;
int main()
{ float T;
cout<<"Enter TF ";
cin>>T;
cout<<"TC "<<(T-32)*5/9<<"\n";
system("pause");
return 0;
}

Дана переменная типа String="Hello_World!"
Нужно создать массив типа Char={H,e,l,l,o,_,W,o,r,l,d,!}
#include<iostream>
#include<string>
#include<sstream>
#include<algorithm>
int main(int argc, char **argv){ 
std::string text="H e l l o W o r l d !";
std::replace(text.begin(), text.end(), ' ', ' ');
std::istringstream is(text);
std::string word;
while (is >> word) std::cerr<<word<<std::endl;
return 0;
}

Спойлер: Java

Пока пусто

Спойлер: Pascal

На интервале от 1 до 300 посчитать количество всех чисел, делящихся на 16 без остатка.
var n:=0;i,x: integer; 
begin 
writeln('Введите 1...x диапазон'); 
readln(x); 
for i:=1 to x do  
if i mod 16 = 0  
then n:=n+1;  
writeln('Количество чисел кратных 16 на промежутке 1...',x,' равно ',n); 
end.

Нужно составить программу, которая из 3-х любых чисел построит их в порядке возрастания. У меня только получалось найти большее
const 
d=1000;
var
i, j, k, m: integer;
S: array[1..d] of integer;
begin

writeln('Введите количество чисел');
readln(m);
randomize;
writeln;
write ('Исходный массив: ');
for i := 1 to m do begin
S[i] := random(d);
write (S[i]:4);
end;
writeln; writeln;
for i := 1 to m-1 do
for j := 1 to m-i do
if S[j] > S[j+1] then begin
k := S[j];
S[j] := S[j+1];
S[j+1] := k
end;
write ('Отсортированный массив: ');
for i := 1 to m do
write (S[i]:4);
writeln;
readln
end.

С клавиатуры вводится пять чисел, определить сумму минимального и максимального числа.
var
i,n : integer;
a : array [1..1000] of real;

min, max : real;
begin
writeln('Количество чисел для ввода:');
readln(n);
for i := 1 to n do
begin
Write('Введите число номер ' , i ,' = ');
Readln(A[i]);
end;
max := A[1]; min := A[1];
for i := 1 to n do
begin
if min > A[i] then min := A[i];
if max < A[i] then max := A[i];
end;
Writeln; 
Writeln('Ответ: ', min:0:3, ' + ', max:0:3, ' = ', min+max:0:3); 
end.

Сумма средних чисел четырехзначного числа
var a,b,c,d:integer;
i:integer;
label loop;
begin
loop:
randomize;
write('input = ');
readln(i);
if (i>=1000) and (i<=9999) then
begin
a:=i div 1000;
b:=(i div 100) mod 10;
c:=(i mod 100) div 10;
d:=i mod 10;

writeln('number: ',i,' |1dig: ',a,'|',' |2dig: ',b,'|',' |3dig: ',c,'|',' |4dig: ',d,'|');
writeln('sum 2+3dig: ',b+c);
end 
else 
begin
writeln('Enter 4digit number');
goto loop;
end 
end.

составить программу которая в зависимости от порядкового номера (1,..,12) месяца выводит на экран его название (январь,... декабрь)var x:integer;
label loop;
begin
loop:
Writeln('Month №');
readln(x);
if (x>=1) and (x<=12) then
begin
case x of
1: writeln('January');
2: writeln('February');
3: writeln('March');
4: writeln('April');
5: writeln('May');
6: writeln('June');
7: writeln('July');
8: writeln('August');
9: writeln('September');
10: writeln('October');
11: writeln('November');
12: writeln('December');
end
end
else
begin
Writeln('Write valid number!');
goto loop;
end;
readln
end.

Дан массив из N элементов. Все элементы массивы расположить в обратном порядке.
var
a:array[1..100]of integer;
i,n:integer;
begin
writeln('Enter N');
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
for i:=n downto 1 do
write(a[i]:4);
end.

участок со сторонами х и у, в углу участка дом со сторонами а, с. Найти площадь дома, участка и длину забора.

var x,y,a,c:real;
label loop;
begin
loop:
writeln('Введите x,y,a,c');
readln(x,y,a,c);
if (x<=0) or (y<=0) or (a<=0) or (c<=0)then 
begin 
writeln('Значения сторон должны быть больше 0');
goto loop;
end
else
writeln('Площадь дома равна ', a*c);
writeln('Площадь участка равна ', x*y);
writeln('Длина забора равна ', x+y);
end.

Вычислить произведение трёх чисел 
var a,b,c:real;
begin
writeln('Введите a,b,c');
readln(a,b,c);
writeln('Произведение этих чисел равно ', a*b*c);
end.

Дан массив из 10 элементов. Выкинуть из него элементы кратные номеру наименьшего элемента.
const n=10;
var a:array [1..n]of integer;
var b:array [1..n]of integer;
i,k,s:byte;
max,min:integer;
begin
randomize;
max:=a[1];
for i:=1 to n do
begin
a[i]:=random(50)+1;
b [i]:=0;
write(a[i]:4);
if max<a[i] then max:=a[i];
end;
writeln;


min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('max=',max,' min=',min);
writeln;

for i:=1 to n do
begin
if (a[i]mod min =0) then k:=k+1;
if (a[i]mod min =0)and (i=1) then a[i]:=a[i]+max;
write(a[i]:4);
end;
writeln;

writeln('количество элементов кратных наименшему =',k);
s:=1;
for i:=1 to n do
begin

if ((a[i] mod min)<>0) then
begin
b[s]:=a[i];
s:=s+1;
end;
end;
writeln('Элементы не кратные минимальному');
for i:=1 to s-1 do

write(b[i]:4, '' );

readln;


end.

Заполните массив из 7-и чисел с клавиатуры и подсчитать общее количество чисел 3 и 5 в массиве.
progRAM MASSIV;
USES CRT;
var K,K1,i,n:integer;
x:array[1..10] of integer;
begin
WRITELN('Задайте количество элементов массива');
read(n);
WRITELN('Задайте элементы массива');
for I:=1 to n do
Readln (x[i]);
K:=0;
k1:=0;
for I:=1 to n do
Begin
IF X[I]=3 THEN INC(K);
IF X[I]=5 THEN INC(K1);
writeLN(x[i]:5);
end;
WRITELN('Троек:',K);
WRITELN('Пятерок:',K1);
WRITELN('Вместе:', K+K1);
end.

Составить программу нахождения суммы чисел от 10 до 20 и вывода их на экран,
var 
N: integer;
sum: real;

begin
write('Введите количество чисел: ');
readln(N);

write('Введите числа: ');
sum := 0;
for var i := 1 to N do
begin
var x := ReadReal;
sum += x;
end;
writeln('Сумма введенных чисел = ',sum);
end.

Дано двузначное число. Определить, какая из его цифр больше, первая или вторая. (Предусмотреть возможность их равенства)!!!
label loop; 
var 
n:integer; 
d:array[1..2]of integer; 
i:integer; 
begin 
loop: 
i:=1; 
repeat  
writeln('n = '); 
readln(n); 
until (n>9) and (n<100); 

while n>0 do begin 
   d[i]:=n mod 10; 
   i:=i+1; 
   n:=n div 10; 
end; 

if d[1]=d[2] then 
begin 
writeln('Numbers equal'); 
goto loop; 
end; 

if d[1]>d[2] then 
writeln('Number ' , d[1] , ' Bigger then number ' , d[2]) 
else 
writeln('Number ' , d[2] , ' Bigger then number ' , d[1]); 
goto loop; 
end.

Дано натуральное число
1)Программа, которая находит сумму цифр этого числа
2)которая определяет, что число начинается и заканчивается одной и той же цифрой
label loop;
var a,b,s,l,e:longint;
begin
  l:=2147483647;
  loop:
  writeln('Введите натуральное число');
  readln(a);
  if (a>0) and (a<l) then
  begin 
  b:=a;
  s:=0;
  while ( b<>0 ) do 
  begin
    s := s + (b mod 10);
    b := b div 10;
  end;
 writeln( 'Сумма цифр числа ',a,' = ', s );
 end
 else 
 begin 
 writeln('Число может иметь значение от 1 до 2147483647');
 writeln();
 goto loop;
 end;
 e:=a mod 10;
 while a>10 do a:=a div 10;
 if e=a then write('Первая и последняя цифры заданного числа равны')
 else write('Первая и последняя цифры заданного числа не равны');
 writeln();
 goto loop;
end.

Спойлер: Delphi

Пока пусто

Сборник решенных задач с форума.
Тема будет дополняться по мере решения новых задач.
Пишите ниже если у Вас есть материал который можно добавить.