Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми...

Question

Определить содержит ли последовательность хотя бы два соседних числа с одинаковыми знаками. И найти произведение их соседей..
-1,3,6,9,-10,7,-2,-8
-1 и 3 не пара
3 и 6 пара их про. =18
6 и 9 пара =54
9 и -10 не пара
-10 и 7 не пара
7 и -2 не пара
-2 и -8 пара = 16
Только не через массивы....

Comments

последовательность задана заранее во внешнем файле

---

ну тогда просто переделай чтоб считывалось из файла построчно

---

Создать на диске файл целых чисел. В программе открыть этот файл, вывести на экран все его содержимое (используя компоненты «поле ввода» или «список»). Из программы создать на диске новый каталог и новый файл (Выбор файла. открытие и сохранение его осуществляется с использованием инструментальных средств панели Dialog). Сохранить в начале нового файла его название и текущую дату. (При поиске массивы не использовать!!!!!!) Управление реализовать при помощи панели быстрого доступа (кнопк

---

Создать на диске файл целых чисел. В программе открыть этот файл, вывести на экран все его содержимое (используя компоненты «поле ввода» или «список»).

Answer 1

Не совсем красиво но без массивов


var cur_num, prev_num: integer;
Begin
    Writeln('Введите последовательность закончив ее нулем');
    read(prev_num);
    repeat
        read(cur_num);
        if cur_num * prev_num > 0 then
            writeln('Пара = ', cur_num * prev_num);
        prev_num := cur_num;
    until cur_num = 0;

End.

Comments

Создать на диске файл целых чисел. В программе открыть этот файл, вывести на экран все его содержимое (используя компоненты «поле ввода» или «список»). Из программы создать на диске новый каталог и новый файл (Выбор файла. открытие и сохранение его осуществляется с использованием инструментальных средств панели Dialog). Сохранить в начале нового файла его название и текущую дату. (При поиске массивы не использовать!!!!!!)
Управление реализовать при помощи панели быстрого доступа (кнопк

---

ниче непонятно, тем более в паскале нет форм или любіх других интерфейсов

---

это делфи

---

у меня нет делфи

---

ну это тот же паскаль, только с новыми приколами

---

я по строчно должен считывать данные, сравнивать пары и если нужно делать умножение, но я туплю...

---

ну сам алгоритм я тебе и так написала, а считывание из файла и прочую байду это уже самостоятельно сделай

---

попытаюсь, спасибо большое)