Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.12.2008, 17:15   #1
GorNikSar
Пользователь
 
Регистрация: 19.12.2008
Сообщений: 11
Плохо Задачи вызывают затруднение... матрица и сумма ряда.

Не могу решить. Нужно срочно. Кто знает, помогите.

1. Матрица А состоит из 7 строк и 9 столбцов. Найти максимальный и минимальный элементы и поменять их местами.

2. Вычислить сумму бесконечного сходящегося ряда:
S=(x-1)/(x+1)+1/3*((x-1)/(x+1))^3+... ...+1/(2n+1)*((x-1)/(x+1))^(2n+1)
0,2<=x<=1
GorNikSar вне форума Ответить с цитированием
Старый 20.12.2008, 17:42   #2
Костя КС
Пользователь
 
Аватар для Костя КС
 
Регистрация: 22.01.2008
Сообщений: 78
По умолчанию

1)
Код:
program qw;
const n = 7;
      m = 9;
var
   A:array [1..n,1..m] of real;
   min, max : real;
   I,J :integer;
   i1,i2 :integer;
   j1,j2 :integer;
Begin
    for I:= 1 to n do begin
     for J:= 1 to m do begin
      write('A[',i,',',j,']= ');
      read(A[i,j]);
     end;
    end;
      min := A[1,1];
      max := A[1,1];

   for I:= 1 to n do begin
     for J:= 1 to m do begin
      if A[i,j] < min then begin
      min := A[i,j];
      i1 := i;
      j1 := j;
      end;
      if A[i,j] > max then begin
      max := A[i,j];
      i2 := i;
      j2 := j;
      end;
     end;
   end;
     min := A[i1,j1];
     A[i1,j1] := A[i2,j2];
     A[i2,j2] := min;
     
     for I:=1 to n do begin
     for J:=1 to m do
     write (' ',A[i,j]);
      writeln(' ');
     end;
end.
Костя КС вне форума Ответить с цитированием
Старый 21.12.2008, 12:51   #3
alex_fcsm
Участник клуба
 
Аватар для alex_fcsm
 
Регистрация: 10.11.2008
Сообщений: 1,502
По умолчанию 2

Что-то в этом роде
Код:
uses crt;
const eps=0.000000001;
var i:integer;
    sum,temp,x:real;
function Step(y:real;z:integer):real;
var n:real;
    m:integer;
begin
n:=1;
for m:=1 to z do
     n:=n*y;
Step:=n;
end;

begin
repeat
clrscr;
writeln('Input x(0.2 to 1)');
readln(x);
until (x>=0.2)and(x<=1);
i:=0;x:=(x-1)/(x+1);
temp:=x;
sum:=temp;
while abs(temp)>=eps do
 begin
  inc(i);
  temp:=Step(x,2*i+1)/(2*i+1);
  sum:=sum+temp;
 end;
writeln('Summa:',sum:10:6);
end.
Нормальное состояние техники - нерабочее, все остальное частный случай.
alex_fcsm вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сумма ряда Sova123456 Помощь студентам 8 11.06.2010 17:10
сумма всех начальных членов ряда, значение которых не меньше заданного числа e, 0<e<1 Арчи Помощь студентам 2 20.12.2008 12:39
Задачи вызывают затруднение... матрица и сумма ряда. GorNikSar Помощь студентам 2 19.12.2008 07:11
Паскаль. Сумма бесконечного ряда Tream Помощь студентам 4 13.10.2007 23:42
Сумма ряда на ЭВМ и вычисленная аналитически, программы на языке Pascal SunCHO Помощь студентам 2 02.05.2007 22:37