Главная
Решение задач.
Справочные данные.
Формулы.
Программирование.
Как в Windows?
Разное.
Утилиты Windows.
Несправности принтеров.
BIOS по алфавиту.
Тесты.

Книги.

Философия.

Религии.
Карта сайта.

Алгоримы обработки одномерных массивов.

Поэлементный ввод

110 FOR I=1 TO N
120 INPUT M(I)
130 NEXT I

Формирование массива случайным образом из области [A;B]

110 FOR I=1 TO N
120 M(I)=INT(RND*(A+B))-A
130 NEXT I

Вывод массива в строку

110 FOR I=1 TO N
120 PRINT M(I);" ";
130 NEXT I

Вывод массива в столбец

110 FOR I=1 TO N
120 PRINT M(I)
130 NEXT I

Поиск минимального элемента массива

100 MIN=M(1);
110 FOR I=2 TO N
120 IF M(I)<MIN THEN MIN=M(I)
130 NEXT I

Перестановка элементов на четных и нечетных местах

110 FOR I=2 TO N STOP 2
120 P=M(I-1):M(I-1)=M(I):M(I)=P
130 NEXT I

Объединение 2-х массивов

110 FOR I=1 TO N STOP 2
120 M(2*I-1)=A(I):M(2*I)=B(I)
130 NEXT I



Web программирование   Pascal&Delphi   Бeйсик

Copyright © 2008-2011 Gruzincev Anton , St. Gorno-Altaysk, Russia, helpw@mail.ru