Помогите с задачей

qbonesq · 16.12.2013, 18:49

ввести n(любое количество) чисел и расположить их в порядке убывания.
код программы и блок-схема. бейсик

Gruvi · 18.12.2013, 04:10

Ввести 3 числа и расположить их в порядке убывания:

Цитата:

INPUT a,b,c
IF a>b THEN SWAP a,b
IF a>c THEN SWAP a,c
IF b>c THEN SWAP b,c
PRINT a,b,c

iks2 · 22.10.2016, 17:26

Вы можете ввести любые число. Общее количество чисел до 1000.
Ввод числа 0 - означает конец ввода. Программа выдает на экран нужную вам последовательность чисел.

Код:

REM
REM  QBASIC
REM

CLS
DIM x(1 TO 1000)

DO
   n = n + 1
   INPUT x(n)
LOOP UNTIL x(n) = 0
PRINT

FOR i = 1 TO n - 2
FOR j = i + 1 TO n - 1
   IF x(i) < x(j) THEN SWAP x(i), x(j)
NEXT j, i

FOR i = 1 TO n - 1
   PRINT x(i);
NEXT i
END

16.12.2013, 18:49	#1 (permalink)
qbonesq Новичок Регистрация: 16.12.2013 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите с задачей ввести n(любое количество) чисел и расположить их в порядке убывания. код программы и блок-схема. бейсик

22.10.2016, 17:26	#3 (permalink)
iks2 Member Регистрация: 22.10.2016 Сообщений: 62 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Вы можете ввести любые число. Общее количество чисел до 1000. Ввод числа 0 - означает конец ввода. Программа выдает на экран нужную вам последовательность чисел. Код: REM REM QBASIC REM CLS DIM x(1 TO 1000) DO n = n + 1 INPUT x(n) LOOP UNTIL x(n) = 0 PRINT FOR i = 1 TO n - 2 FOR j = i + 1 TO n - 1 IF x(i) < x(j) THEN SWAP x(i), x(j) NEXT j, i FOR i = 1 TO n - 1 PRINT x(i); NEXT i END

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

16.12.2013, 18:49
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Посмотрите обсуждаемые темы, пока вам дают ответы Помогите с задачей Помогите с задачей Помогите с задачей по С

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070