Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ экзамен через 10 дней помогите решить

Автор: trew 18.05.2008 4: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 18.05.2008 14:40

Первая задача вроде должна вот так решаться:

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 16:47

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

Автор: Гость 18.05.2008 17:11

Цитата(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.


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

Автор: mind abuse 18.05.2008 17:13

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

Автор: trew 18.05.2008 17:28

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

Автор: mind abuse 18.05.2008 22:28

Код
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 строками и задаваемым с клавиатуры числом столбцов?

Автор: trew 18.05.2008 23:06

да ты прав

Автор: kvadrat 19.05.2008 0:24

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

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

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