Из миль в километры и обратно. Получить таблицу пересчёта миль в километры и обратно (1 миля = 1,609344 км) для расстояний, не превышающих величину k: а) из миль в километры (k = 10, шаг 0,5);
begin var n := ReadlnInteger('n = '); var m := ReadlnInteger('m = '); var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin a := new integer[m, n]; for var i := 0 to m-1 do for var j := 0 to n-1 do a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = '); end else a := MatrixRandom(m, n, 1, 100); Println(a);
var b := ArrGen(n, x -> 1); for var i := 0 to m-1 do for var j := 0 to n-1 do if j mod 2 = 0 then b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println(); end.
a: array [,] of integer;
begin
var n := ReadlnInteger('n = ');
var m := ReadlnInteger('m = ');
var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin
a := new integer[m, n];
for var i := 0 to m-1 do
for var j := 0 to n-1 do
a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
end
else a := MatrixRandom(m, n, 1, 100);
Println(a);
var b := ArrGen(n, x -> 1);
for var i := 0 to m-1 do
for var j := 0 to n-1 do
if j mod 2 = 0 then
b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.
Вот на быструю руку только тела программ
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;