Операторы условного перехода (If, Case)
Операторы условного перехода позволяют выбрать для исполнения один из нескольких операторов-компонентов в зависимости от условия.
Оператор If
Его синтаксис:
If A then
Else;
где: 1) A - булевское выражение (возвращающее TRUE или FALSE); 2) - операторы (возможно пустые или составные).
Лабораторная работа 12. Работа с массивами
Цель задания 1. Получение практических навыков в работе с массивами.
Знакомство с алгоритмами упорядочения.
Постановка задачи
Для конкретного варианта составить массив исходных данных. Изучив алгоритмы упорядочения, выбрать один из них. Написать программу, которая работает с любым допустимым набором данных. Входную информацию и результаты счета вывести на печать, снабдив их соответствующими заголов – ками.
Методические указания
Исходные данные должны включать и положительные числа, и отрицатель-ные и нули.
2.Пример программы. Дан двумерный массив различных вещественных чисел, содержащий 5 строк и 4 столбца. Строку, содержащую максимальный элемент массива, поменять местами со строкой, содержащей минимальный элемент:
PROGRAM MAS (INPUT, OUTPUT);
TYPE MMM = ARRAAY [1..4] OF REAL;
VAR M:ARRAY[1..5] OF MMM;
M1: MMM;
MAX, MIN,: REAL; MAXI, MINI, I, J: INTEGER;
BEGIN
WRITELN(‘ВВВЕДИ ИСХОДНЫЙ МАССИВ’);
FOR I: = 1 TO 5 DO
FOR J: = 1 TO 4 DO READ(M[I, J]);
MAX: = M[1,1]; MIN: = M[1,1];
MAX I: = 1; MIN I: =1;
FOR I: = 1 TO 5 DO
FOR J: = 1 TO 4 DO
BEGIN
IF MAX< M[I, J] THEN BEGIN
|
|
MAX: = M[I, J{]; MAXI: = I
END;
IF MIN > M [I, J] THEN BEGIN
MIN: = M[I, J{]; MINI: = I
END;
END;
M1: = M[MAXI];
M[MAXI]: M[MINI];
M[MINI]: = M1:
WRITELN(‘МАССИВ ПОСЛЕ ПЕРЕСТАНОВКИ СТРОК’);
FOR I: = 1 TO 5DO
BEGIN
FOR I: = 1 TO 4 DO WRITE (M[I, J]:5: 2);
WRITELN
END
END.
Протокол работы программы MAS:
Дата добавления: 2016-01-06; просмотров: 15; Мы поможем в написании вашей работы! |
Мы поможем в написании ваших работ!