Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
2 / 2 / 0
Регистрация: 01.02.2010
Сообщений: 49

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

01.02.2010, 23:37. Показов 2666. Ответов 16
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Имеется массив A и N произвольных чисел A (N), среди которых есть положительные, отрицательные и равные нулю.
Составить программу которая напечатает в обратном порядке все положительные элементы.
Например, если A= {2,4-9,5,6,-3,2}, результат: 2,6,5,4,2.
Программирование через qbasic

Подскажите пожалуйста!
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
01.02.2010, 23:37
Ответы с готовыми решениями:

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

Найти и напечатать все положительные элементы массива А
1. Разработать визуальный алгоритм решения задачи в соответствии с заданием и записать его в виде...

Определить сумму цифр числа и напечатать число, составленное из цифр заданного в обратном порядке
Помогите,пожалуйста!Вообще не врубаюсь в решение задания.Какой код написать? Вот задание: в...

16
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
01.02.2010, 23:45
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от Baldjer Посмотреть сообщение
Составить программу которая напечатает в обратном порядке все положительные элементы.
Например, если A= {2,4-9,5,6,-3,2}, результат: 2,6,5,4,2.
Программирование через qbasic.
Подскажите пожалуйста!
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
input "vvedite kol-vo elementov ",n
dim a(n)
randomize timer
for i=1 to n 
a(i)=int(rnd*20)-10
next
print"massiv"
for i=1 to n 
print a(i);
next
print
print "resultat"
for i= n to 1 step-1
if a(i)>0 then print a(i);
next
1
2 / 2 / 0
Регистрация: 01.02.2010
Сообщений: 49
01.02.2010, 23:49  [ТС]
откуда у тебя такие познания?
0
01.02.2010, 23:59

Не по теме:

живу долго

0
02.02.2010, 00:16  [ТС]

Не по теме:

Цитата Сообщение от alexevt Посмотреть сообщение
живу долго
а мне сколько нужно прожить чтобы такие вещи знать?

0
02.02.2010, 00:19

Не по теме:

пиши в день по 20-30 прог и через год мастером будешь

0
02.02.2010, 00:22  [ТС]

Не по теме:

Цитата Сообщение от alexevt Посмотреть сообщение
пиши в день по 20-30 прог и через год мастером будешь
АГА, за два дня уже три проги написал, В общем дело как бы пошло в гору :D

0
2 / 2 / 0
Регистрация: 01.02.2010
Сообщений: 49
21.02.2010, 16:09  [ТС]
с горе пополам сегдня защитил это задание. надо было блок-схему придумать для него. вот что нарисовал :
Миниатюры
Напечатать в обратном порядке все положительные элементы массива  
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
21.02.2010, 17:10
ну и чо, нормальная блок схема. всё соответствует
0
2 / 2 / 0
Регистрация: 01.02.2010
Сообщений: 49
21.02.2010, 17:32  [ТС]
Цитата Сообщение от кот Бегемот Посмотреть сообщение
ну и чо, нормальная блок схема. всё соответствует
только вот я её перед тем как сдать два часа тупил, потом друг помог )).
еще надо две блок схемы придумать и зачет будет сдан. Только вот знающего человека надо найти.
0
0 / 0 / 0
Регистрация: 02.12.2016
Сообщений: 7
02.12.2016, 19:11
кот Бегемот, Привет. Помоги пожалуйста составить блок схему по задачи: Составить программу вычисления числового ряда для известного числа членов ряда N. Перед программированием следует выявить и написать аналитические соотношения, описывающие все имеющиеся зависимости. Y=(1+25/1)(10+2-4/2)(100+23/3)...
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
02.12.2016, 23:09
Я не рисую блок-схемы. Не потому, что не могу, а мне просто лениво это всё впихивать на этот форум. Я лучше 5 программ напишу, чем одну блок-схему.
0
0 / 0 / 0
Регистрация: 02.12.2016
Сообщений: 7
03.12.2016, 20:13
а хотя бы на basic можешь помочь прописать?

Добавлено через 20 часов 54 минуты
А сможешь помочь хотя бы прописать на basic? Пожалуйста
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
04.12.2016, 14:29
Вы неточно написали условие
Цитата Сообщение от GHG2345 Посмотреть сообщение
Y=(1+25/1)(10+2-4/2)(100+23/3)...
0
0 / 0 / 0
Регистрация: 02.12.2016
Сообщений: 7
04.12.2016, 14:37
кот Бегемот, Y=(1+2^5/1)(10+2^-4/2)(100+2^3/3)...
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
04.12.2016, 15:50
QBasic/QuickBASIC
1
2
3
4
5
6
y=1
INPUT n
FOR i=1 TO n
y=y*(10^(i-1)+2^((-1)^(i-1)*(6-i))/i)
NEXT
PRINT y
0
0 / 0 / 0
Регистрация: 02.12.2016
Сообщений: 7
07.12.2016, 13:20
Спасибки)))
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
07.12.2016, 13:20
Помогаю со студенческими работами здесь

Напечатать числа от 1 до 30 в обратном порядке по 3 числа в строке
Напечатать числа от 1 до 30 в обратном порядке по 3 числа в строке. Help me please))

Напечатать последнее слово в обратном порядке
В гугле находил подобные задания,но решений к ним нету.Помогите Дана строка символов. 1)...

Все вхождения букв «abc» заменить на «def» и напечатать в обратном порядке
Привет всем. У меня проблема с заданием: "Все вхождения букв «abc» заменить на «def» и напечатать в...

Ввести 10 чисел в массив и вывести в столбец A в порядке ввода, а в столбец B в обратном порядке
Написать на VBA процедуру, организующую ввод с клавиатуры 10 чисел и последующую их распечатку в...

Напечатать положительные числа в порядке убывания, используя метод прямого выбора
Задан числовой массив, состоящий их N элементов Напечатать положительные числа в порядке убывания,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
17
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru