![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 24.10.2007
Сообщений: 21
|
![]()
НА ПАСКАЛЕ
1. Дана непустая последовательность ненулевых целых чисел, за которой следует 0. Определить, Сколько раз в этой последовательности меняется знак. (Например, в последовательности 1,-34,8,14,-5 знак меняеться 3 раза). 2. Дана последовательность из n целых чисел(n=50). Выявить отрезки возрастания в этой последовательности и вывести каждый из них на экран с новой строки. Последний раз редактировалось Bagsi; 26.10.2007 в 00:08. |
![]() |
![]() |
![]() |
#2 |
Реанимируюсь...
Участник клуба
Регистрация: 19.07.2007
Сообщений: 1,445
|
![]()
На чем писать-то?
![]() На глупые вопросы мы отвечать не хотим, а на умные - не можем
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows" |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 24.10.2007
Сообщений: 21
|
![]()
РЕШИТЬ НА ПАСКАЛЕ
|
![]() |
![]() |
![]() |
#4 |
Забанен
Форумчанин Подтвердите свой е-майл
Регистрация: 01.11.2006
Сообщений: 420
|
![]()
к задаче 2
вывести a(1) в цикле от 2 до N проверяем соседние элементы { если a(i-1)>a(i) то переход на новую строку; вывести a(i) } думаю множество из одного элемента тоже является отрезком
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
|
![]() |
![]() |
![]() |
#5 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
![]()
Задача№1, бывшая №2.
Заполнение последовательности числами сделал вручную. Не могу придумать, как заполнить с помощью Random, чтобы были и положительные и отрицательные, но чтобы не было ноля. Может кто подскажет, тогда переделаю прогу. |
![]() |
![]() |
![]() |
#6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Вот первая задача :
const a:array[1..10] of real=(1,2,3,-4,-5,6,-7,8,-9,0); var k,e:integer; begin e:=0; for k:=1 to (sizeof(a) div sizeof(real))-1 do if a[k]*a[k+1]<0 then inc(e); write(e); end. Она будет тебе стимулом к раздумываниями над второй
I'm learning to live...
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Пожалуйста кто нибудь решите две задачи. | Filin | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 21.01.2008 14:29 |
Помогите решите олимпиадные задачи, пожалуйста!!! | student523 | Помощь студентам | 1 | 17.12.2007 17:01 |
Решите пожалуйста | Bagsi | Помощь студентам | 1 | 28.10.2007 20:58 |