Учеба и наука
Помогите решить задачу по информатике - вопрос №66361
Помогите если не трудно.
все в QBesic
В решении должны быть приведены:
- Этап 1.Физическая постановка задачи
- Этап 2.Математическое описание
- Этап 3.Разработка алгоритма решения задачи
- Этап 4.Программирование
Приведите список используемой литературы
задача# 1: организовать массив вывести на дисплей значение и индекс предпоследнего положительного элемента… очень нужно...
Задача 2. Дано три числа. Если все три отрицательные, то вычислить и напечатать куб второго числа, в противном случае произведение двух первых чисел.
март 19, 2011 г.
-
Всего ответов: 1
-
'Задача #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
Похожие вопросы
Помогите найти алгоритм решения задачи о ранце методом ветвей и границ
сентябрь 1, 2014 г.
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.