Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.12.2013, 00:39   #1
tetu115
 
Регистрация: 03.12.2013
Сообщений: 4
По умолчанию с помощю масивов создать програму

Заданные натуральное число n и последовательность действительных чисел a1, a2, ..., an. В
заданной последовательности определить количество соседства двух положительных чисел.
tetu115 вне форума Ответить с цитированием
Старый 03.12.2013, 00:44   #2
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,216
По умолчанию

Без всяких массивов:
Код:
ReadLn(old);
count := 0;
for i := 2 to n do begin
  ReadLn(a);
  if (old > 0) and (a > 0) then
    Inc(count);
  old := a;
end;
Arigato вне форума Ответить с цитированием
Старый 03.12.2013, 00:46   #3
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Соседство
Код:
 if (a[i]>0)and(a[i+1]>0)then // и т.д.
Это - если с массивами.
type_Oleg вне форума Ответить с цитированием
Старый 03.12.2013, 13:20   #4
tetu115
 
Регистрация: 03.12.2013
Сообщений: 4
По умолчанию

можете создать програму полностью, задание - в с помощю масивов
tetu115 вне форума Ответить с цитированием
Старый 03.12.2013, 13:26   #5
Vanta11a
Lawful Evil
Участник клуба
 
Аватар для Vanta11a
 
Регистрация: 13.05.2008
Сообщений: 1,208
По умолчанию

Тебе её уже создали. Объяви переменные, обвяжи в стандартные команды и все.
Алгоритм - бесплатен. Поиск багов - бесплатен. Реализация алгоритма - за отдельную плату.
На форуме помогают советами и объясняют, а не пишут на халяву программы, лабы, курсачи и т.д. (c)
Vanta11a вне форума Ответить с цитированием
Старый 03.12.2013, 13:39   #6
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 16,216
По умолчанию

Цитата:
Сообщение от tetu115 Посмотреть сообщение
задание - в с помощю масивов
Если принципиально наличие массивов (хотя они тут совсем не нужны), то просто замени в моем коде a на a[i].
Arigato вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите создать програму Паскаль!!! Игорь_кпи Паскаль, Turbo Pascal, PascalABC.NET 5 02.11.2013 19:17
Как можно создать графический редактор где можно с помощю циркуля рисовать круг, а с линейки чертитьлинию Aksuubai Общие вопросы Delphi 3 03.06.2010 19:18
Помогите создать програму для роботы с файлами, пожалуйста помогите нужно очень срочно Сергей Человек Фриланс 3 06.07.2009 19:30
Помогите создать програму для вычисления определенного интеграла Методом Симпсона Сергей Человек Помощь студентам 11 06.07.2009 16:15
Создание масивов tae1980 Microsoft Office Excel 2 19.03.2009 12:47