Помогите решить задачу по информатике

Помогите если не трудно.

все в QBesic

В решении должны быть приведены:

  • Этап 1.Физическая постановка задачи
  • Этап 2.Математическое описание
  • Этап 3.Разработка алгоритма решения задачи
  • Этап 4.Программирование

Приведите список используемой литературы

 задача# 1: организовать массив  вывести на дисплей значение и индекс предпоследнего положительного элемента… очень нужно...

Задача 2. Дано три числа. Если все три отрицательные, то вычислить и напечатать куб второго числа, в противном случае произведение двух первых чисел.

Ответы

'Задача #1
REM Организоывть массив и вывести на дисплей значение и индекс
REM предпоследнего положительного элемента
DIM A(1 TO 10) 'Массив из 10 элементов

J = 0 'Индекс предпоследнего положительного
K = 0 'Индекс последнего положительного

FOR I = 1 TO 10
        PRINT «Введите элемент массива А(»; I; ")";
        INPUT ":", A(I)
        IF A(I) > 0 THEN
                J = K
                K = I
        END IF
NEXT I

IF J <> 0 THEN
        PRINT «Предпоследний положительный элемент =»; A(J);
        PRINT «индекс =»; J
ELSE
        PRINT «Найдено меньше двух положительных элементов»
END IF

'Задача #2
REM Дано три числа. Если все три отрицательные, то вычислить и
REM напечатать куб второго числа, в противном случае произведение
REM двух первых чисел.

INPUT «Первое число:», A
INPUT «Второе число:», B
INPUT «Третье число:», C
IF A < 0 AND B < 0 AND C < 0 THEN
        PRINT «Куб второго числа =»; B * B * B
ELSE
        PRINT «Произведение двух первых чисел =»; A * B
END IF

16.07.11

Елена Васильевна

от 80 p.
Читать ответы

Виктор Щебетун

от 50 p.
Читать ответы

Карина

от 0 p.
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store