экзамен через 10 дней помогите решить, 3 задачи Опции

[trew]

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 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]

спосибо
но мне еще две надо помогите

[Гость]

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.

А с остальными напишите, пожалуйста, подробнее условие. "Найти число 10 10" - в смысле? Нижний правый элемент матрицы? Или о чём речь?

[mind abuse]

* забыл залогиниться

[trew]

3) дана матрица вещественно численных А(10, 10) найти число 10. его номер в матрице.
и еще найти
10
S=∑ мах А(i, j) распечатать 1<=i<=10
1
теперь понятно?

[mind abuse]

Код

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.

С случайным заполнением матрицы числами до 11.

А вот номер три - найти сумму максимальных элементов по строкам элементов? для матрицы с 10 строками и задаваемым с клавиатуры числом столбцов?

Сообщение отредактировано: mind abuse - 18.05.2008 19:16

[trew]

да ты прав

[kvadrat]

3) дана матрица вещественно численных А(10, 10) найти число 10. его номер в матрице.
и еще найти
10
S=∑ мах А(i, j) распечатать 1<=i<=10

Мне необходимо решить задачу такова же рода, только формулировка такая:
Определить норму матрицы A(5,4), т.е. число max(∑{снизу 1, сверху 4} |a{индекс ij}|) и распечатать 1<=i<=5/

Предлагаю всем объеденить усилия и решить эти задачи, спася тем самым сразу аж 2х человек