Знакочередующая последовательность

@jop1k · Регистрация: 13.06.2009

Author24 — интернет-сервис помощи студентам

Определить, является ли последовательность знакочередующейся.

Кто знает, отзовитесь пожалуйста

@Dock^ · 13.06.2009, 19:44

вот что то получилось но думаю тут булевская переменная лишняя,ща еще подумаю,а так все работает

Pascal

uses crt;
var a,n,k,l:integer;
    f:boolean;
begin
  clrscr;
  writeln('vvedite n:');readln(n);
  k:=1;
  l:=0;
  writeln('vvedite posledovatelnost iz ',n,' chisel:');
  readln(a);
  f:=true;
  if a<0 then begin while (k<>n) do
              begin
              readln(a);
              inc(k);
                if (k mod 2)=0 then if (a>0) then f:=true
                                             else begin
                                                    inc(l);
                                                    f:=false;
                                                  end;
                if (k mod 2)=1 then if (a<0) then f:=true
                                             else begin
                                                    f:=false;
                                                    inc(l);
                                                  end;
               end; end
         else  begin while (k<>n) do
              begin
              readln(a);
              inc(k);
                if (k mod 2)=1 then if (a>0) then f:=true
                                             else begin
                                                    f:=false;
                                                    inc(l);
                                                  end;
                if (k mod 2)=0 then if (a<0) then f:=true
                                             else begin
                                                    f:=false;
                                                    inc(l);
                                                  end;
               end;    end;
  if l=0 then writeln('Da')
            else writeln('Net');
  readkey;
end.

@Puporev · 13.06.2009, 19:48

Pascal

k:=0;
for i:=2 to n do
if a[i]*a[i-1]<0 then k:=k+1;
if k=n-1 then Yes
else No

@Dock^ · 13.06.2009, 19:53

вот проще

Pascal

uses crt;
var a,b,n,k,l:integer;
    f:boolean;
begin
  clrscr;
  writeln('vvedite n (n>2):');readln(n);
  k:=1;
  l:=0;
  writeln('vvedite posledovatelnost iz ',n,' chisel:');
  readln(a);
  while (k<>n) do
  begin
    b:=a;
    readln(a);
    inc(k);
    if (a<0) and (b<0) or (a>0) and (b>0)  then
    inc(l);
  end;
  if l=0 then writeln('Da')
            else writeln('Net');
  readkey;
end.

@Puporev · 13.06.2009, 19:54

По моему у меня проще будет. 2 числа имеют разный знак, если их произведение отрицательно.

@Dock^ · 13.06.2009, 19:58

вообщем да,пусть сам выбирает

@jop1k · 13.06.2009, 21:25 **[ТС]**

спасибо вам обоим

@jop1k 0 / 0 / 0 Регистрация: 13.06.2009 Сообщений: 3
		1
	Знакочередующая последовательность 13.06.2009, 19:10. Показов 1161. Ответов 6 Метки нет (Все метки) Определить, является ли последовательность знакочередующейся. Кто знает, отзовитесь пожалуйста 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	13.06.2009, 19:54	5
	По моему у меня проще будет. 2 числа имеют разный знак, если их произведение отрицательно. 0

@Dock^ 16 / 16 / 16 Регистрация: 05.06.2009 Сообщений: 47
	13.06.2009, 19:58	6
	вообщем да,пусть сам выбирает 0

@jop1k 0 / 0 / 0 Регистрация: 13.06.2009 Сообщений: 3
	13.06.2009, 21:25 [ТС]	7
	спасибо вам обоим 0

Опции темы