Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
Artorios
58 / 58 / 52
Регистрация: 19.11.2010
Сообщений: 218
1

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

31.12.2010, 06:26. Просмотров 2335. Ответов 6
Метки нет (Все метки)

Здравствуйте,добрые люди,помогите понять условие задачи на Паскале.
"Даны натуральное число n, действительные числа a1,..., an. Выяснить, образуют ли возрастающую последовательность числа:
a1,...,an, 2a1, 3a2,..., (n+1)an;"
а1-аn - это а первое -а энное.
Если можно исходничек.Всегда перемного благодарен.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.12.2010, 06:26
Ответы с готовыми решениями:

Даны четыре числа. Если они не образуют возрастающую последовательность, вывести минимальное из них
2)Даны четыре числа. Если они не образуют возрастающую последовательность, вывести минимальное из...

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

Дано трехзначное число. Проверить истинность высказывания: «Цифры данного числа образуют возрастающую последовательность»
21. Дано трехзначное число. Проверить истинность высказывания: «Цифры данного числа образуют...

Образуют ли числа возрастающую последовательность
1. Написать и отладить программы с применением подпрограммы функции с параметрами. Вычисление...

Определить образуют ли числа возрастающую последовательность
Помогите решить задачу без массивов:Даны натуральное n и последовательность а1,а2…а n вещественных...

6
use
179 / 179 / 81
Регистрация: 18.12.2010
Сообщений: 346
31.12.2010, 08:08 2
Pascal
1
2
3
4
5
6
7
  i:=1;
  yes:= a[n]<2*a[1];
  while yes and (i<n) do begin
    yes:= (a[i]<a[i+1]) and ((i+1)*a[i]<(i+2)*a[i+1]);
    inc(i)
  end;
  writeln(yes);
0
Artorios
58 / 58 / 52
Регистрация: 19.11.2010
Сообщений: 218
31.12.2010, 14:48  [ТС] 3
Конечно Спасибо,я лутше смысл стал понимать,но я думаю,что присвоения во 2 и 4 строке не удачные...
0
use
179 / 179 / 81
Регистрация: 18.12.2010
Сообщений: 346
31.12.2010, 15:05 4
Цитата Сообщение от Artorios Посмотреть сообщение
Конечно Спасибо,я лутше смысл стал понимать,но я думаю,что присвоения во 2 и 4 строке не удачные...
Хм. Это интересно! Чем же они неудачные?
0
Artorios
58 / 58 / 52
Регистрация: 19.11.2010
Сообщений: 218
31.12.2010, 15:11  [ТС] 5
Program Spasibochki;
Var i,n:integer;
A:array[1..50] of real;
yes:real;
Begin
repeat
Write('Введите n ');
readLn(n);
until n > 0;
yes:= a[n]<2*a[1]; // Type mistmach
while yes and (i<n) do begin
yes:= (a[i]<a[i+1]) and ((i+1)*a[i]<(i+2)*a[i+1]);
inc(i)
end;
writeln(yes);
readLn;
end.
0
use
179 / 179 / 81
Регистрация: 18.12.2010
Сообщений: 346
31.12.2010, 15:23 6
Цитата Сообщение от Artorios Посмотреть сообщение
yes:real;
Естественно. Замени на
Цитата Сообщение от Artorios Посмотреть сообщение
yes: boolean;
- и будет тебе счастье )).
1
Artorios
58 / 58 / 52
Регистрация: 19.11.2010
Сообщений: 218
31.12.2010, 15:28  [ТС] 7
Спасибо за счастье!!!
Ну просто чудный форум!!!
0
31.12.2010, 15:28
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.12.2010, 15:28

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

Проверить истинность высказывания: Цифры данного числа образуют возрастающую последовательность
Условие: Дано целое число. Проверить истинность высказывания: &quot;Цифры данного числа образуют...

Найти все натуральные числа, цифры в которых образуют строго возрастающую последовательность
Найти все натуральные n-значные числа, цифры в которых образуют строго возрастающую...


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

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

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