Биохимия спиртового брожения: Основу технологии получения пива составляет спиртовое брожение, - при котором сахар превращается...
Двойное оплодотворение у цветковых растений: Оплодотворение - это процесс слияния мужской и женской половых клеток с образованием зиготы...
Топ:
Комплексной системы оценки состояния охраны труда на производственном объекте (КСОТ-П): Цели и задачи Комплексной системы оценки состояния охраны труда и определению факторов рисков по охране труда...
Установка замедленного коксования: Чем выше температура и ниже давление, тем место разрыва углеродной цепи всё больше смещается к её концу и значительно возрастает...
Оценка эффективности инструментов коммуникационной политики: Внешние коммуникации - обмен информацией между организацией и её внешней средой...
Интересное:
Распространение рака на другие отдаленные от желудка органы: Характерных симптомов рака желудка не существует. Выраженные симптомы появляются, когда опухоль...
Мероприятия для защиты от морозного пучения грунтов: Инженерная защита от морозного (криогенного) пучения грунтов необходима для легких малоэтажных зданий и других сооружений...
Средства для ингаляционного наркоза: Наркоз наступает в результате вдыхания (ингаляции) средств, которое осуществляют или с помощью маски...
Дисциплины:
2017-06-04 | 304 |
5.00
из
|
Заказать работу |
|
|
Двумерные массивы: ввод, вывод, генерация
Ввод элементов массива A, содержащего N строк и M столбцов
Блок-схема
Программа
For i:=1 to N do
For j:=1 to M do
Begin
Write(‘A[‘, i, ‘,‘, j, ‘]=‘);
readln(A[i,j]);
End;
Вывод элементов массива A, содержащего N элементов
Блок-схема
Программа
For i:=1 to N do
Begin
For j:=1 to M do
Write(A[i, j]:4); {вывод в одну строку}
Writeln; { Переход на следующую строку }
End;
Генерация элементов массива A, содержащего N элементов
Для генерации элементов массива в Pascal используется функция Random.
Для генерации целых чисел в диапазоне от X 1 до X 2 (X 1 < X 2) можно воспользоваться следующим выражением
A[i,j]:=X1+Random(X2-X1+1);
Например, для генерации целых чисел от -10 до 10 выражение будет следующим
A[i,j]:=-10+Random(21);
Для генерации вещественны чисел в диапазоне от X 1 до X 2 (X 1 < X 2, X 2 не входит в отрезок) можно воспользоваться следующим выражением
A[i,j]:=X1+(X2-X1)*Random;
Например, для генерации целых чисел от -10 до 10 выражение будет следующим
A[i,j]:=-10+20*Random;
Блок-схема
Программа
For i:=1 to N do
For j:=1 to M do
A[i,j]:=-10+Random(21);
После генерирования элементов массива они (элементы) обычно выводятся на экран, так они хранятся в оперативной памяти и пользователю программы не видны.
Двумерные массивы: поиск элемента
Поиск значения максимального элемента массива
Блок-схема
Программа
Max:=A[1,1];
For i:=1 to N do
For j:=1 to M do
If A[i,j]>Max Then Max:=A[i,j];
Поиск номера столбца (R) и строки (C) элемента массива, принимающего максимальное значение
Блок-схема
Программа
Max:=A[1,1];
R:=1; C:=1;
For i:=1 to N do
For j:=1 to M do
If A[i,j]>Max Then
Begin
Max:=A[i,j]; R:=i; C:=j;
End;
Двумерные массивы: вычисление суммы, количества, произведения элементов массива
|
Поиск суммы элементов массива, удовлетворяющих некоторому условию
Блок-схема
Программа
S:=0;
For i:=1 to N do
For j:=1 to M do
If <Условие> Then S:=S+A[i];
Поиск количества элементов массива, удовлетворяющих некоторому условию
Блок-схема
Программа
K:=0;
For i:=1 to N do
For j:=1 to M do
If <Условие> Then K:=K+1;
Например, дан массив из N вещественных чисел, найти количество отрицательных элементов.
Блок-схема
Программа
K:=0;
For i:=1 to N do
For j:=1 to M do
If A[i,j]<0 Then K:=K+1;
Поиск произведения элементов массива, удовлетворяющих некоторому условию
Блок-схема
Программа
P:=1;
For i:=1 to N do
For j:=1 to M do
If <Условие> Then P:=P*A[i,j];
Например, дан целочисленный массив из N чисел, найти произведение положительных элементов, меньших 10.
Блок-схема
Программа
P:=1;
For i:=1 to N do
For j:=1 to M do
If (A[i,j]>0) and (A[i,j]<10) Then P:=P*A[i,j];
Двумерные массивы: удаление строки с номером K
Для удаления строки необходимо на место удаляемой строки записать следующую строку. На место следующей строки необходимо записать строку, идущую за следующей и т.д. После замещения предпоследней строки количество строк необходимо уменьшить на единицу.
Блок-схема
Программа
For i:=K to N-1 do
For j:=1 to M do
A[i,j]:=A[i+1,j];
N:=N-1;
Двумерные массивы: ввод, вывод, генерация
Ввод элементов массива A, содержащего N строк и M столбцов
Блок-схема
Программа
For i:=1 to N do
For j:=1 to M do
Begin
Write(‘A[‘, i, ‘,‘, j, ‘]=‘);
readln(A[i,j]);
End;
Вывод элементов массива A, содержащего N элементов
Блок-схема
Программа
For i:=1 to N do
Begin
For j:=1 to M do
Write(A[i, j]:4); {вывод в одну строку}
Writeln; { Переход на следующую строку }
End;
Генерация элементов массива A, содержащего N элементов
Для генерации элементов массива в Pascal используется функция Random.
Для генерации целых чисел в диапазоне от X 1 до X 2 (X 1 < X 2) можно воспользоваться следующим выражением
|
A[i,j]:=X1+Random(X2-X1+1);
Например, для генерации целых чисел от -10 до 10 выражение будет следующим
A[i,j]:=-10+Random(21);
Для генерации вещественны чисел в диапазоне от X 1 до X 2 (X 1 < X 2, X 2 не входит в отрезок) можно воспользоваться следующим выражением
A[i,j]:=X1+(X2-X1)*Random;
Например, для генерации целых чисел от -10 до 10 выражение будет следующим
A[i,j]:=-10+20*Random;
Блок-схема
Программа
For i:=1 to N do
For j:=1 to M do
A[i,j]:=-10+Random(21);
После генерирования элементов массива они (элементы) обычно выводятся на экран, так они хранятся в оперативной памяти и пользователю программы не видны.
|
|
Типы оградительных сооружений в морском порту: По расположению оградительных сооружений в плане различают волноломы, обе оконечности...
Археология об основании Рима: Новые раскопки проясняют и такой острый дискуссионный вопрос, как дата самого возникновения Рима...
Двойное оплодотворение у цветковых растений: Оплодотворение - это процесс слияния мужской и женской половых клеток с образованием зиготы...
Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...
© cyberpedia.su 2017-2024 - Не является автором материалов. Исключительное право сохранено за автором текста.
Если вы не хотите, чтобы данный материал был у нас на сайте, перейдите по ссылке: Нарушение авторских прав. Мы поможем в написании вашей работы!