Дано число a (1<= a <= 1.5). Среди чисел 1 + 1/2, 1 + 1/3, 1 + 1/4 . . . (заметим, что каждое следующее число в последовательности меньше предыдущего) найдите первое, меньшее a.(нужен код на языке python)
var a: array[1..n1, 1..n1] of integer; i, j, n, k, m: integer; s: real;
begin Write('Введите число строк (cтолбцов) массива: '); Readln(n); Randomize; Writeln('Исходный массив'); m := 0; for i := 1 to n do begin for j := 1 to n do begin k := Random(101) - 50; a[i, j] := k; Write(k:4); end; Writeln; m := m + a[i, i] end; k := 0; s := m / n; for i := 1 to n do for j := 1 to n do if a[i, j] > s then k := k + 1; Writeln('Среднее значение элементов главной диагонали равно ', s); Writeln('Количество элементов, значения которых больше этой величины - ', k) end.
1) а) на Java class example{ public static void main (String[] args){ int k = 0, j = 0; for (int i = 0; i < 10; i++){ k = k + 5; j = j + k; if (i == 9) System.out.print(k); else System.out.print(k + " + "); } System.out.print(" = " + j); } } б) на Pascal var a,b,c:integer; begin for a:=1 to 10 do begin b:=b+5; c:=c+b; if (a = 10) then write(b) else write(b, ' + ') end; write(' = ', c); end. 2) а) на Java class example{ public static void main(String args[]){ for (int x = 50; x >= 40; x--){ double y = (5 * x) + (Math.pow(x, 2)); int i = (int) y; System.out.println(i); } } } б) на Pascal var y:real; x:integer; begin for x:=50 downto 40 do begin y:=(5*x)+sqr(x); writeln(y:0:0); end; end.
n1 = 20;
var
a: array[1..n1, 1..n1] of integer;
i, j, n, k, m: integer;
s: real;
begin
Write('Введите число строк (cтолбцов) массива: ');
Readln(n);
Randomize;
Writeln('Исходный массив');
m := 0;
for i := 1 to n do
begin
for j := 1 to n do
begin
k := Random(101) - 50;
a[i, j] := k;
Write(k:4);
end;
Writeln;
m := m + a[i, i]
end;
k := 0; s := m / n;
for i := 1 to n do
for j := 1 to n do
if a[i, j] > s then k := k + 1;
Writeln('Среднее значение элементов главной диагонали равно ', s);
Writeln('Количество элементов, значения которых больше этой величины - ', k)
end.
Тестовое решение:
Введите число строк (cтолбцов) массива: 10
Исходный массив
29 22 23 15 -23 -25 19 9 -8 -16
1 15 2 35 27 -44 -10 -34 19 50
-35 -31 15 -24 24 -11 -49 -46 40 20
16 48 16 -49 -22 -2 -37 -38 -25 9
36 44 6 23 -16 -27 -40 22 20 29
30 -12 45 32 19 10 -44 -4 41 38
-27 14 20 23 19 4 50 0 7 -21
43 -23 42 -40 -36 -29 13 43 42 0
-21 -20 -15 -40 41 -23 -47 34 -17 19
-9 18 -29 -13 -15 -29 -27 34 -46 31
Среднее значение элементов главной диагонали равно 11.1
Количество элементов, значения которых больше этой величины - 45
class example{
public static void main (String[] args){
int k = 0, j = 0;
for (int i = 0; i < 10; i++){
k = k + 5;
j = j + k;
if (i == 9)
System.out.print(k);
else
System.out.print(k + " + ");
}
System.out.print(" = " + j);
}
}
б) на Pascal
var a,b,c:integer;
begin
for a:=1 to 10 do
begin
b:=b+5;
c:=c+b;
if (a = 10) then write(b)
else write(b, ' + ')
end;
write(' = ', c);
end.
2) а) на Java
class example{
public static void main(String args[]){
for (int x = 50; x >= 40; x--){
double y = (5 * x) + (Math.pow(x, 2));
int i = (int) y;
System.out.println(i);
}
}
}
б) на Pascal
var y:real;
x:integer;
begin
for x:=50 downto 40 do
begin
y:=(5*x)+sqr(x);
writeln(y:0:0);
end;
end.