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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2016, 15:51   #1
Fantalia
 
Регистрация: 24.02.2016
Сообщений: 3
Восклицание Теория алгоритмов.

E7cM5kqbs8A.jpg
Fantalia вне форума Ответить с цитированием
Старый 28.03.2016, 16:40   #2
Dvoishnik
Форумчанин
 
Регистрация: 12.02.2011
Сообщений: 808
По умолчанию

2 задание
Код:
sum:=0;
for i:=n downto 1 do 
  Begin 
   if Mas[i] = 0 then break;
   sum:=sum+Mas[i];
  end;
задание 3
Код:

For i:=1 to n do
 Begin
 sum:=0;
  For j:=1 to m do 
    if mas[i,j] <0 then 
      begin
       sum:=-1;
       break;
      end 
        else sum:=sum+mas[i,j];
  if sum =-1 then 
    writeln('в строке ',i,' есть отрицательные элементы') 
      else Writeln('сумма элементов строи ',i,' равна',sum) 
end;
Терпение!Дежурный экстрасенс скоро свяжется с вами!
Dvoishnik вне форума Ответить с цитированием
Старый 29.03.2016, 17:01   #3
CMY_3
Пользователь
 
Регистрация: 24.02.2016
Сообщений: 38
По умолчанию

Код:
uses
  crt;
var
  x_beg, x_end, x_delta, eps, s, p : real;
  n : integer;
begin
  clrscr;
  write('eps = '); readln(eps);
  write('x_beg = '); readln(x_beg);
  write('x_end = '); readln(x_end);
  write('x_delta = ');readln(x_delta);
  writeln('--------|---------|----');
  writeln('   x    |arcctg(x)| n  ');
  writeln('--------|---------|----');
  while x_beg<=x_end do begin
    s := -x_beg; p := -x_beg; n := 0;
    while abs(p)>=eps do begin
     p := p * (-sqr(x_beg)*(2*n+1)/(2*n+3));
     s := s + p;
     inc(n);
    end;
    s := pi/2 + s;
    writeln(x_beg:7:5,' | ',s:7:5,' | ',n-1);
    writeln('--------|---------|----');
    x_beg := x_beg + x_delta;
  end;
  readln;
end.
CMY_3 вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Теория алгоритмов. Марков Pappi Помощь студентам 1 29.04.2015 19:55
Теория алгоритмов. Марков Pappi Помощь студентам 1 29.04.2015 19:36
теория алгоритмов Женя_я Помощь студентам 0 18.12.2012 17:53
ТЕОРИЯ АЛГОРИТМОВ emsisem Помощь студентам 0 06.06.2011 12:37