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

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

все в 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

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

от 50 p.
Сейчас на сайте
Читать ответы

Евгений

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

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

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