Question

Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них. Разделитель между числами – символ по усмотрению исполнителя. в программе бэйсик

Answer 1

uses crt; var a ,mn ,n ,imn : integer; begin clrscr; writeln ( 'Введите натуральные числа, окончание ввода 0:' ); repeat readln (mn ); until mn> 0; n := 1; imn := 1; repeat   repeat   readln (a );   until a> = 0;  n :=n + 1;   if (a<> 0 ) and (a<mn ) then   begin    mn :=a;    imn :=n;   end; until a = 0; write ( 'Минимальное из чисел, не считая 0=' ,  mn , ' его номер=' ,imn ); readln end.

Answer 2

Вот пример программы на языке BASIC, которая находит порядковый номер наименьшего натурального числа в заданной последовательности:

rubyCopy code
10 REM Начальная инициализация
20 INPUT "Введите последовательность чисел: ", seq$
30 smallest = 999999999
40 pos = 0
50 i = 1

60 REM Разбиваем строку на числа
70 num$ = ""
80 WHILE i <= LEN(seq$)
90     ch$ = MID$(seq$, i, 1)
100    IF ch$ = " " THEN
110        num = VAL(num$)
120        IF num < smallest THEN
130            smallest = num
140            pos = i - LEN(num$)
150        END IF
160        num$ = ""
170    ELSE
180        num$ = num$ + ch$
190    END IF
200    i = i + 1
210 WEND

220 REM Выводим результаты
230 PRINT "Наименьшее число: "; smallest
240 PRINT "Его порядковый номер: "; pos

Объяснение программы:

1. Строки 10-30 - начальная инициализация программы. С помощью оператора INPUT мы запрашиваем у пользователя последовательность чисел в виде строки seq$. Переменная smallest будет использоваться для хранения текущего наименьшего числа. Переменная pos будет использоваться для хранения порядкового номера текущего наименьшего числа. Переменная i будет использоваться для итерации по строке seq$.
2. Строки 60-210 - основной цикл программы. Мы разбиваем строку seq$ на отдельные числа с помощью цикла WHILE. Мы идем по строке посимвольно с помощью переменной i, и если текущий символ ch$ является пробелом, то мы конвертируем num$ в число с помощью функции VAL, проверяем, является ли оно меньшим, чем текущее наименьшее число smallest, и если да, то обновляем значения smallest и pos. Если текущий символ не является пробелом, то мы добавляем его к num$. В конце цикла мы увеличиваем переменную i на 1.
3. Строки 220-240 - вывод результатов программы. Мы выводим на экран найденное наименьшее число и его порядковый номер.