Const x0=-10; xk=13; h=0.5; var x,y:real; i,n:integer; begin n:=round((xk-x0)/h)+1; x:=x0-h; for i:=1 to n do begin x:=x+h; if x<>7 then begin y:=(x*x*x+5*x-8)/(x-7); writeln(x:5:1,' ',y:8:3); end else writeln(x:5:1,' функция не определена'); end; end.
В общем, т.к. ты мне не ответил - лови две программы: 1) Program dasf; var b,c,i: integer; A: Array[1..100] of real; D: Array[1..100] of real; begin Writeln('Введите размерность массива D'); readln(b); For i:=1 to b do begin Writeln('Введите элемент массива №',i); readln(D[i]); end; Writeln('Массив А:'); For i:=1 to b do begin If i mod 2=1 then A[i]:=5+(D[i]*D[i]) else A[i]:=D[i]/i; Writeln(A[i]); end; end.
2) Program fgsadg; var i,b,x,y,z,k,t: integer; begin Writeln('Введите сколько чисел будет использоваться:'); readln(b); Writeln('Введите х:'); readln(x); Writeln('Введите число №',1); readln(z); k:=0; For i:=2 to b do begin Writeln('Введите число №',i); readln(y); If z+y=x then k:=k+1; z:=y; end; Writeln(k); end. Если что-то не будет работать - отпиши, мог кое-что удалить случайно при переносе.
Матрица не может быть прямоугольной так иначе будет не понятно что подразумевается под диагональю #include<iostream> #include<vector> int main() { int n; std::cin>>n; std::vector<std::vector<int>> matrix(n); for (int i =0;i<n;++i) { for (int j =0;j<n;++j) { int elem; std::cin>>elem; matrix[j].push_back(elem); } } int first_diag = 0; int second_diag = 0; for (int i = 0;i<n;++i) { first_diag+=matrix[i][i]; second_diag += matrix[i][n-i-1]; } int res = 0; res = first_diag - second_diag; std::cout<<res; }
var x,y:real; i,n:integer;
begin
n:=round((xk-x0)/h)+1;
x:=x0-h;
for i:=1 to n do
begin
x:=x+h;
if x<>7
then begin y:=(x*x*x+5*x-8)/(x-7); writeln(x:5:1,' ',y:8:3); end
else writeln(x:5:1,' функция не определена');
end;
end.
Результат (для h=1.0):
-10.0 62.235
-9.0 48.875
-8.0 37.333
-7.0 27.571
-6.0 19.538
-5.0 13.167
-4.0 8.364
-3.0 5.000
-2.0 2.889
-1.0 1.750
0.0 1.143
1.0 0.333
2.0 -2.000
3.0 -8.500
4.0 -25.333
5.0 -71.000
6.0 -238.000
7.0 функция не определена
8.0 544.000
9.0 383.000
10.0 347.333
11.0 344.500
12.0 356.000
13.0 375.667