Вот на быструю руку только тела программ
1.
C++Выделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
double x, rezult;
cout << "Vvedite x ="
cin >> x;
if (x == 0)
{
cout << "Error" << end;
return;
}
else
{
rezult = fabs( (x * x * x) - (x * x) ) - ((7 * x) / (x * x *x)) - 15 * x;
}
cout << "Rezultat =" << rezult << endl;
2.
C++Выделить код
1
2
3
4
5
6
7
8
double x, rezult;
cout << "Vvedite x ="
cin >> x;
rezult = 1 + x / 3 + fabs(x) + (x * x * x) + 4 / 2;
cout << "Rezultat =" << rezult << endl;
Program Randomizer;
Var a,b,i : Integer;
Const n = 5;//Кол-во попыток
Begin
WriteLn(' Вас приветствует "Randomizer!™"');
ReadLn;
WriteLn(' Компьютер загадал число от 1 до 100, ваша задача отгадать его.');
WriteLn(' Приступим!(Нажмите Enter)');
ReadLn;
WriteLn(' Введите число');
i:= 1;
a:=random(100);
While ((b <> a) and (i < n + 1)) do //Программа не завершится, пока b не станет равной a или n (попытки) не закончатся.
Begin
//If b > 100 then WriteLn('Ошибка - число превышает 100');//Нужно, чтобы при вылете ошибки программа не завершалась и попытки не уменьшались.
ReadLn(b);
If b = a then WriteLn('Вы угадали!') Else
If ((b <> a) and (i <> n)) then WriteLn('Попробуйте другое число...') Else WriteLn(' Попытки закончились! Перезапустите программу.');
inc (i);
End;
End.
1)
var
a,b:array [1..100] of integer;
i,j,k,a,b,f:integer;
begin
randomize;
readln(a);
readln(b);
k:=0;
for i:=1 to 20 do
begin
a[i]:=random(135)-45;
f:=0;
for j:=a to b do
if (a[i]=j) and (a[i] mod 7 =0) then f:=1;
if f=0 then
begin
k:=k+1;
b[k]:=a[i];
end;
end;
for i:=1 to k do
writeln(b[i]);
end.
2)
var
a,b:array [1..100] of integer;
i,j,k:integer;
begin
randomize;
readln(k);
j:=0;
for i:=1 to 20 do
begin
a[i]:=random(135)-45;
writeln(a[i]);
for i:=1 to 19 do
begin
if a[i]*a[i+1]>0 then
begin
j:=j+1;
b[j]:=a[i];
j:=j+1;
b[j]:=k;
end
else
begin
j:=j+1;
b[j]:=a[i];
end;
end;
j:=j+1;
b[j]:=a[20];
for i:=1 to j do
writeln(b[j]);
3)
var
a,b:array [1..20] of integer;
i,j,k1,k2:integer;
begin
randomize;
readln(k1);
readln(k2);
if k1<k2 then
begin
for i:=1 to 20 do
begin
a[i]:=random(135)-45;
writeln(a[i]);
end;
for i:=1 to k1-1 do
b[i]:=a[i];
for i:=k2+1 to 20 do
b[i]:=a[i];
j:=k2;
for i:=k1 to k2 do
begin
b[j]:=a[i];
j:=j-1;
end;
for i:=1 to 20 do
writeln(b[i]);
end;
end.