Примеры на Basic (Бейсик)

Чтобы использовать примеры, скачайте и используйте один из редакторов.

[spoiler title=”Пример 1. Первая программа – Привет мир!”]

PRINT "Hello world!"

1	PRINT "Hello world!"

[/spoiler] [spoiler title=”Пример 2. Произведение элементов массива”]

<span style="font-family: sans-serif;">CLS</span>
N = 10
<span style="font-family: sans-serif;">DIM</span> M(N)
P = 1
FOR I = 1 TO N
M(I) = <span style="font-family: sans-serif;">INT</span>(<span style="font-family: sans-serif;">RND</span> * 100)+1
<span style="font-family: sans-serif;">PRINT</span> I; "-"; M(I)
P = P * M(I)
NEXT I
<span style="font-family: sans-serif;">PRINT</span> "_________"
<span style="font-family: sans-serif;">PRINT</span> "Proizvedenie = "; P

CLS

N = 10

DIM M(N)

P = 1

FOR I = 1 TO N

M(I) = INT(RND * 100)+1

PRINT I; "-"; M(I)

P = P * M(I)

NEXT I

PRINT "_________"

PRINT "Proizvedenie = "; P

[/spoiler] [spoiler title=”Пример 3. Среднее арифметическое элементов массива”]

CLS 
N = 15 
DIM M(N) 
SUMM = 0 
FOR I = 1 TO N 
M(I) = INT(RND * 100) 
PRINT I; "-"; M(I) 
SUMM = SUMM + M(I) 
NEXT I 
PRINT "Среднее арифметическое чисел = "; SUMM/N

CLS

N = 15

DIM M(N)

SUMM = 0

FOR I = 1 TO N

M(I) = INT(RND * 100)

PRINT I; "-"; M(I)

SUMM = SUMM + M(I)

NEXT I

PRINT "Среднее арифметическое чисел = "; SUMM/N

[/spoiler] [spoiler title=”Пример 4. Нахождение минимального элемента массива”]

CLS 
INPUT "N"; n 
DIM e(n) 
FOR i = 1 TO n 
INPUT e(i) 
NEXT 
CLS 
min1 = e(1) 
PRINT "Массив:" 
FOR i = 1 TO n 
PRINT e(i); 
IF e(i) &lt; min1 THEN min1 = e(i): min2 = i 
NEXT 
PRINT 
PRINT "Минимальный :"; min1; 
PRINT "Порядковый номер:"; min2 
SWAP e(min2), e(n) 
PRINT "Новый массив:" 
FOR i = 1 TO n 
PRINT e(i); 
NEXT

CLS

INPUT "N"; n

DIM e(n)

FOR i = 1 TO n

INPUT e(i)

CLS

min1 = e(1)

PRINT "Массив:"

FOR i = 1 TO n

PRINT e(i);

IF e(i) < min1 THEN min1 = e(i): min2 = i

PRINT "Минимальный :"; min1;

PRINT "Порядковый номер:"; min2

SWAP e(min2), e(n)

PRINT "Новый массив:"

FOR i = 1 TO n

PRINT e(i);

[/spoiler] [spoiler title=”Пример 5. Чётное или не чётное число”]

CLS 
INPUT "Введите число N=", N 
IF N MOD 2 THEN PRINT "Число нечётное" ELSE PRINT "Число чётное" 
END

CLS

INPUT "Введите число N=", N

IF N MOD 2 THEN PRINT "Число нечётное" ELSE PRINT "Число чётное"

END

[/spoiler] [spoiler title=”Пример 6. Сумма элементов массива”]

CLS
N = 15
DIM M(N)
SUMM = 0
FOR I = 1 TO N
M(I) = INT(RND * 100)
PRINT I; "-"; M(I)
SUMM = SUMM + M(I)
NEXT I
PRINT "_________"
PRINT "SUMM = "; SUMM

CLS

N = 15

DIM M(N)

SUMM = 0

FOR I = 1 TO N

M(I) = INT(RND * 100)

PRINT I; "-"; M(I)

SUMM = SUMM + M(I)

NEXT I

PRINT "_________"

PRINT "SUMM = "; SUMM

[/spoiler] [spoiler title=”Пример 7. Максимальный элемент массива”]

<span style="font-family: sans-serif;">CLS</span>
N = 15
<span style="font-family: sans-serif;">PRINT</span> "Massiv: ";
<span style="font-family: sans-serif;">DIM</span> M(N)
FOR I = 1 TO N
M(I) = <span style="font-family: sans-serif;">INT</span>(<span style="font-family: sans-serif;">RND</span> * 100)
<span style="font-family: sans-serif;">PRINT</span> M(I) ;
NEXT I
MAX=M(1)
FOR I = 2 TO N
IF MAX &lt; M(I) THEN MAX=M(I)
NEXT I
<span style="font-family: sans-serif;">PRINT</span>
<span style="font-family: sans-serif;">PRINT</span> "_________"
<span style="font-family: sans-serif;">PRINT</span> "Maximum = "; MAX

CLS

N = 15

PRINT "Massiv: ";

DIM M(N)

FOR I = 1 TO N

M(I) = INT(RND * 100)

PRINT M(I) ;

NEXT I

MAX=M(1)

FOR I = 2 TO N

IF MAX < M(I) THEN MAX=M(I)

NEXT I

PRINT

PRINT "_________"

PRINT "Maximum = "; MAX

[/spoiler] [spoiler title=”Пример 8. Сортировка случайного массива”]

<span style="font-family: sans-serif;">CLS</span>
N = 10
<span style="font-family: sans-serif;">DIM</span> M(N)
<span style="font-family: sans-serif;">PRINT</span> "Massiv:"
FOR I = 1 TO N
M(I) = <span style="font-family: sans-serif;">INT</span>(<span style="font-family: sans-serif;">RND</span> * 100)
<span style="font-family: sans-serif;">PRINT</span> M(I);
NEXT I
FOR I = 1 TO N - 1
FOR J = I + 1 TO N
IF (M(I) &gt; M(J)) THEN <span style="font-family: sans-serif;">SWAP</span> M(I), M(J)
NEXT J
NEXT I
<span style="font-family: sans-serif;">PRINT</span>
<span style="font-family: sans-serif;">PRINT</span> "Sort massiv:"
FOR I = 1 TO N
<span style="font-family: sans-serif;">PRINT</span> M(I);
NEXT I

CLS

N = 10

DIM M(N)

PRINT "Massiv:"

FOR I = 1 TO N

M(I) = INT(RND * 100)

PRINT M(I);

NEXT I

FOR I = 1 TO N - 1

FOR J = I + 1 TO N

IF (M(I) > M(J)) THEN SWAP M(I), M(J)

NEXT J

NEXT I

PRINT

PRINT "Sort massiv:"

FOR I = 1 TO N

PRINT M(I);

NEXT I

[/spoiler]

1	[/spoiler]

[spoiler title=”Пример 9. Счастливый билет или нет?”]

REM Анализ "счастливого" билета
DECLARE FUNCTION LUCK (M AS LONG)
INPUT "Введите номер билета "; N&
IF LUCK(N&) = 1 THEN
  PRINT "Радуйтесь - счастливый"
ELSE
  PRINT "Нет счастья в жизни"
END IF
END

FUNCTION LUCK (M AS LONG)
REM Подсчет и сравнение сумм старших и младших цифр M
REM Если суммы совпадают, то LUCK=1
DIM A(6)
LUCK = 0
IF M &lt; 0 OR M &gt; 999999 THEN
   PRINT "luck : недопустимый аргумент":   EXIT FUNCTION
END IF
FOR I = 0 TO 5
  A(I) = M MOD 10:  ' Выделение очередной цифры
  M = (M - A(I)) / 10:  ' Удаление обработанной цифры
NEXT I
IF (A(0) + A(1) + A(2) = A(3) + A(4) + A(5)) THEN LUCK = 1
END FUNCTION

REM Анализ "счастливого" билета

DECLARE FUNCTION LUCK (M AS LONG)

INPUT "Введите номер билета "; N&

IF LUCK(N&) = 1 THEN

PRINT "Радуйтесь - счастливый"

ELSE

PRINT "Нет счастья в жизни"

END IF

END

FUNCTION LUCK (M AS LONG)

REM Подсчет и сравнение сумм старших и младших цифр M

REM Если суммы совпадают, то LUCK=1

DIM A(6)

LUCK = 0

IF M < 0 OR M > 999999 THEN

PRINT "luck : недопустимый аргумент": EXIT FUNCTION

END IF

FOR I = 0 TO 5

A(I) = M MOD 10: ' Выделение очередной цифры

M = (M - A(I)) / 10: ' Удаление обработанной цифры

NEXT I

IF (A(0) + A(1) + A(2) = A(3) + A(4) + A(5)) THEN LUCK = 1

END FUNCTION

[/spoiler] [spoiler title=”Пример 10. Разложение числа на простые множители”]

REM Разложение числа на простые множители
CLS
K& = 2: J% = 0
INPUT "Введите целое число: ", M&: M1& = M& / 2
PRINT M&; "=";
M1:
  IF M& MOD K& = 0 THEN
     J = 1: M& = M& / K&: PRINT K&;
     IF M& &lt;&gt; 1 THEN PRINT "*";
  ELSE K& = K& + 1
  END IF
  IF K& &lt;= M1& THEN GOTO M1
  IF J = 0 THEN PRINT " простое число"
END

REM Разложение числа на простые множители

CLS

K& = 2: J% = 0

INPUT "Введите целое число: ", M&: M1& = M& / 2

PRINT M&; "=";

M1:

IF M& MOD K& = 0 THEN

J = 1: M& = M& / K&: PRINT K&;

IF M& <> 1 THEN PRINT "*";

ELSE K& = K& + 1

END IF

IF K& <= M1& THEN GOTO M1

IF J = 0 THEN PRINT " простое число"

END

[/spoiler]