Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
JokerMD
0 / 0 / 0
Регистрация: 29.09.2011
Сообщений: 30
1

Дана последовательность, состоящая из 100 вещественных чисел. Определить является ли она возрастающей или убывающей.

06.10.2011, 18:46. Просмотров 1583. Ответов 3
Метки нет (Все метки)

Дана последовательность, состоящая из 100 вещественных чисел. Определить является ли она возрастающей или убывающей.
только если можно без массива
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.10.2011, 18:46
Ответы с готовыми решениями:

дана последовательность чисел, являетсяли она убывающей?
форумчане) помогите пожалуста с написанием программы в паскале:= дана последовательность чисел,...

Дана последовательность действительных чисел A1, A2,...An. Выяснить, будет ли она возрастающей.
Дана последовательность действительных чисел A1, A2,...An. Выяснить, будет ли она возрастающей.

Дана последовательность действительных чисел а1, а2,..., аn. Выяснить, будет ли она возрастающей
4. Дана последовательность действительных чисел а1, а2,..., аn. Выяснить, будет ли она возрастающей.

Дана последовательность действительных чисел a1, a2, ..an. Выяснить, будет ли она возрастающей
Вариант 4. Дана последовательность действительных чисел a1, a2, ..an. Выяснить, будет ли она...

Массив. Дана последовательность целых чисел. Выяснить будет ли она возрастающей
Массив. Дана последовательность целых чисел. Выяснить будет ли она возрастающей.

3
Zhexon
313 / 272 / 272
Регистрация: 25.09.2011
Сообщений: 477
06.10.2011, 19:58 2
Может быть так? раз без массива.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
  uses TpCrt;
  type
    pPosl = ^Posl;
    Posl = record
      R    : Real;
      Next : pPosl;
    end;
 
  var
   B,C : pPosl;
    k,t : Real;
    i   : Byte;
 
  Begin
    Write('Введите коэффициент последовательности p=p+k :'); Readln(k);
    New(B); C:=B; B^.R:=0; t:=7;
    Writeln('Последовательность :');
    for i:=1 to 100 do begin
      New(C^.Next); C:=C^.Next; C^.R:=t+k; t:=C^.R;
      write(t:8:3);
    end;
    c^.Next:=nil;
    if B^.Next^.R<C^.R then Writeln('последовательность возрастает')
                       else Writeln('последовательность убывает');
    repeat
      c:=b^.Next;
      Dispose(b); b:=c;
    until b=nil;
    Readln;
  End.
0
Bloodrinker
2 / 2 / 0
Регистрация: 04.10.2011
Сообщений: 63
06.10.2011, 20:05 3

Не по теме:

потерто


Опередили.
0
SpartanecLexa
0 / 0 / 1
Регистрация: 24.10.2012
Сообщений: 253
23.04.2014, 09:25 4
в смысле ?
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.04.2014, 09:25

Дана последовательность действительных чисел а1, а2,., ан(англ). Выяснить, будет ли она возрастающей
Дана последовательность действительных чисел а1, а2,..., ан(англ). Выяснить, будет ли она...

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

Определить, является ли последовательность вводимых чисел возрастающей
подскажите, пожалуйста, где ошибка? программа должна определять является ли последовательность...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru