a=5.12 d в промежутке 5град<=x,=40 град; делбта x=7град
2) нахождение корня уравнения
0.4+(arctg корень квдратный из x)-x=0 в промежутке [1;2]
3) умножение матриц вот такой текст, но там что то не работает???
Код: Выделить всё
Program zadach3;
const n=3; {vvod razmera matrici}
m=3;
k=3;
var i,j,q:integer;
otv: char;
a:array[1..n,1..m] of integer; {sozdanie massiva}
b:array[1..m,1..k] of integer;
c:array[1..n,1..k] of integer;
begin
repeat
writeln('Vvedite 2 massiva'); {vvod massiva }
for i:=1 to n do
for j:=1 to m do readln(a[i,j]);
writeln('Vvod vtorogo massiva');
for i:=1 to m do
for j:=1 to k do readln(b[i,j]);;
writeln;
writeln('Massiv a');
for i:=1 to n do
begin
for j:=1 to m do WRITE(' ',a[i,j]);
writeln;
end;
writeln('Massiv b');
for i:=1 to m do
begin
for j:=1 to k do WRITE(' ',b[i,j]);
writeln;
end;
for i:=1 to n do begin {peremnogenie matric}
for j:=1 to k do
begin
c[i,j]:=0;
for q:=1 to m do
c[i,j]:=a[i,q]*b[q,j];
end;
end;
writeln('Proizvedenie');
for i:=1 to n do begin
for j:=1 to k do write(c[i,j]:3);
writeln;
end;
writeln('Vi hotite prodolgit - y/n: ');
readln(otv);
until otv='n';
end.
Помогите плз ОЧЕНЬ нада и срочна!!!!!!
Заранее спасибо!! Прозьба писать на мыло basist007@mail.ru
для начало надо по человечески оформлять
во вторых не вижу фотку жены или её асю
в третих не вижу сколько ты за это заплатишь
в четвертых если оч простые то почему сам не решил ?
