Программа на паскале. Процедура общего вида
procedure Minimum(var n:byte; var a:Matrix;out min:real); var i,j:byte; begin min:=A[1,1]; for i:=1 to n do begin for j:=1 to n do if A[i,j]<min then min:=A[i,j]; end; end;
Абстракция А0.8 1.Условие. Cравнение разности максимального и минимального элементов с p 2.Уточненная постановка задачи. Даны максимальный, минимальный элементы и заданная величина p. Узнать больше ли их разность , чем p 3.Примеры. Разность больше: тест 7 Разность меньше: тест 6 Таблица данных
5.Входная форма. нет ввода/вывода
Выходная форма нет ввода/вывода
Аномалии нет ввода/вывода
Тесты Тесты Разность больше: тест 7 Разность меньше: тест 6 Метод Присваиваем логической переменной f2 значение false . Считаем значение переменной d=max-min. Если d>p, тогда присваиваем переменной f2 значение true. Алгоритм
Вых. F2
Программа на паскале. Процедура общего вида procedure Compare(var d:real;var p:real; var max,min:real;var f2:boolean);
var i,j:byte;
begin
d:=max-min;
f2:=true;
if d<p then f2:=false;
end;
Абстракция А0.9 1.Условие. Изменение матрицы 2.Уточненная постановка задачи. Даны матрица A, значение логической переменной F2, n. Заменить матрицу следующим образом : Если f2=false , то оставить матрицу без изменений, иначе заменить все положительные элементы матрицы на 1, а отрицательные на 0. 3.Примеры. Матрица изменяется: тест 7,8 Матрица не изменяется: тест 6 Таблица данных
5.Входная форма. нет ввода/вывода
Выходная форма нет ввода/вывода
Аномалии нет ввода/вывода
Тесты Матрица изменяется: тест 7,8 Матрица не изменяется: тест 6
Метод Если F2=false, тогда оставляем матрицу без изменений, иначе меняем все положительные элементы матрицы на 1, а отрицательные на 0. Алгоритм
©2015 arhivinfo.ru Все права принадлежат авторам размещенных материалов.
|