1)Вычислить значения функции и распечатать в виде таблицы x, y: y=(2x+0,7)^16 для пяти равно отстоящих значениях x; x1=0,4 h=0,1
2) даны два целочисленных вектора А(6) и В(5) распечатать все элементы которые входят в оба вектора.
3) дана матрица вещественно численных А(10, 10) найти число 10
10
S=∑ мах А(i, j) распечатать 1<=i<=10
1
Полная версия: экзамен через 10 дней помогите решить
Первая задача вроде должна вот так решаться:
program qwesdfsdf;
var i:integer;x,y:real;
begin
x:=0.4;
for i:=1 to 5 do
begin
y:=16*(ln(2*x+0.7));
writeln(x:5:2,' ',y:5:2);
x:=x+0.1;
end;
writeln(' x y');
end.
спосибо
но мне еще две надо помогите
но мне еще две надо помогите
Цитата(trew @ 18.05.2008 0:02) 
1)Вычислить значения функции и распечатать в виде таблицы x, y: y=(2x+0,7)^16 для пяти равно отстоящих значениях x; x1=0,4 h=0,1
2) даны два целочисленных вектора А(6) и В(5) распечатать все элементы которые входят в оба вектора.
3) дана матрица вещественно численных А(10, 10) найти число 10
10
S=∑ мах А(i, j) распечатать 1<=i<=10
1
Первое Вам kvadrat уже подсказал,
Код
program t1;
uses wincrt;
var
x,y,h: real;
i,number_of_iterations: integer;
begin
clrscr;
writeln('i ',' xi',' yi');
h:=0.1;
x:=0.3;
number_of_iterations:=5;
for i:=1 to number_of_iterations do
begin
x:=x+h;
y:=Exp(16*ln(2*x+0.7));
writeln(i,' ',x,' ',y);
end;
readln;
end.
uses wincrt;
var
x,y,h: real;
i,number_of_iterations: integer;
begin
clrscr;
writeln('i ',' xi',' yi');
h:=0.1;
x:=0.3;
number_of_iterations:=5;
for i:=1 to number_of_iterations do
begin
x:=x+h;
y:=Exp(16*ln(2*x+0.7));
writeln(i,' ',x,' ',y);
end;
readln;
end.
А с остальными напишите, пожалуйста, подробнее условие. "Найти число 10 10" - в смысле? Нижний правый элемент матрицы? Или о чём речь?
* забыл залогиниться
3) дана матрица вещественно численных А(10, 10) найти число 10. его номер в матрице.
и еще найти
10
S=∑ мах А(i, j) распечатать 1<=i<=10
1
теперь понятно?
и еще найти
10
S=∑ мах А(i, j) распечатать 1<=i<=10
1
теперь понятно?
Код
Program t1;
uses
crt;
var
a:array[1..100,1..100] of real;
i,j,n,m:integer;
begin
clrscr;
writeln('input number of columns and strings of the matrix');
write('n=');
readln(n);
writeln('inputing elements');
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(11);
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j]:1);
end;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=10 then
writeln('a[',i,',',j,']=10');
readln;
end.
uses
crt;
var
a:array[1..100,1..100] of real;
i,j,n,m:integer;
begin
clrscr;
writeln('input number of columns and strings of the matrix');
write('n=');
readln(n);
writeln('inputing elements');
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(11);
end;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j]:1);
end;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=10 then
writeln('a[',i,',',j,']=10');
readln;
end.
С случайным заполнением матрицы числами до 11.
А вот номер три - найти сумму максимальных элементов по строкам элементов? для матрицы с 10 строками и задаваемым с клавиатуры числом столбцов?
да ты прав
Цитата
3) дана матрица вещественно численных А(10, 10) найти число 10. его номер в матрице.
и еще найти
10
S=∑ мах А(i, j) распечатать 1<=i<=10
и еще найти
10
S=∑ мах А(i, j) распечатать 1<=i<=10
Мне необходимо решить задачу такова же рода, только формулировка такая:
Определить норму матрицы A(5,4), т.е. число max(∑{снизу 1, сверху 4} |a{индекс ij}|) и распечатать 1<=i<=5/
Предлагаю всем объеденить усилия и решить эти задачи, спася тем самым сразу аж 2х человек
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.