08.01.2016, 23:07 | #1 (permalink) |
Member
Регистрация: 07.01.2016
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Язык Pascal
является ли последовательность знакочередующейся. |
08.01.2016, 23:07 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Дам вам ссылки на схожие обсуждения, прочитайте Язык С. Матрицы Рекурсия, язык с++ |
09.01.2016, 00:42 | #2 (permalink) |
Member
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
|
Код:
var x:array[1..100] of Real; i,n:integer; p:boolean; begin Write('N = '); Readln(n); Writeln; for i:=1 to n do Read(x[i]); Writeln; p:=true; for i:=2 to n do begin if x[i]>0 then if x[i-1]>0 then begin p:=false; Break; end; if x[i]<0 then if x[i-1]<0 then begin p:=false; Break; end; end; if p then Writeln('Znakocereduyushayasya') else Writeln('Ne znakocereduyushayasya'); Readln; end. |
09.01.2016, 15:26 | #3 (permalink) |
Member
Регистрация: 07.01.2016
Сообщений: 15
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
спасибо большое)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|