Материалы сайта
Это интересно
Вычислительная практика I курс
Смаль Дмитрий, АС-14 Тема: «Процедуры и функции» Работа №4(1) 1. Постановка задачи: Вариант 10: Описать функцию MAX( A, n, k ), где A- матрица, а n и k индексы (nm then m:=B[i,j]; For i:=n+1 to k-1 do For j:=1 to C do If B[i,j]>m then m:=B[i,j]; For i:=k to R do For j:=n+1 to k-1 do If B[i,j]>m then m:=B[i,j]; MAX:=m end; Begin clrscr; Writeln(‘Введите размерность матрицы R,C:);Readln(R);Readln(C); Writeln('Введите n:'); Readln(n); Writeln('Введите k:'); Readln(k); If (n>=0) and (k>=0) and (R>2) and (C>2) then begin Enter; Writeln('Максимальный элемент MAX: ',MAX(a,n,k)) end else Writeln('Введите n>0 и k>0 и R>2 и C>2'); End. 5. Тестовые примеры: 1) Введите размерность матрицы R,C: 3) Введите размерность матрицы R,C: 6 0 8 5 Введите n Введите n 1 0 Введите k Введите k 5 3 Введите матрицу Введите n>0 и k>0 и R>2 и C>2 1 2 7 8 1 3 5 6 6 1 7 15 21 3 1 2 5 1 0 1 2 3 4 9 6 9 3 5 8 1 2 1 7 1 3 51 2 4 6 8 6 1 1 65 1 1 1 1 Максимальный элемент MAX: 65 2) Введите размерность матрицы R,C: 5 5 Введите n 1 Введите k 5 Введите матрицу 9 15 0 3 4 6 7 1 8 9 25 33 1 0 2 2 4 7 5 6 1 0 3 2 1 Максимальный элемент MAX: 33 Приложение №1: НЕТ ДА Процедура ввода матрицы Для i от 1 до R Для j от 1 до C j i Функция поиска максимального Эл-та в заштрихованной части матрицы Для i от 1 до n Для j от n+1 до k-1 НЕТ ДА j i Для i от n+1 до k-1 Для j от 1 до C НЕТ ДА j i Для i от k до R Для j от n+1 до k-1 НЕТ ДА j i Работа №4(2) 1. Постановка задачи: Вариант № 8: Даны координаты вершин прямоугольника и координаты точки. Определить лежит ли эта точка внутри прямоугольника и если лежит, определить минимальное расстояние от этой точки до сторон прямоугольника. 2. Тестовые примеры: 1) Если вершины прямоугольника заданы координатами: A(0;0), B(0;6), C(8,6), D(8,0). А точка задана координатами E(3;1), то точка будет лежать внутри прямоугольника, а минимальное расстояние будет равно 1. 2) Если вершины прямоугольника заданы координатами: A(0;0), B(0;5), C(10;5), D(10;0). А точка задана координатами E(4;2), то точка будет лежать внутри прямоугольника, а минимальное расстояние будет равно 2 3) Если вершины прямоугольника заданы координатами A(2,2), B(2,15), C(10;15), D(10;2). А точка задана координатами E(34;67), то точка будет лежать вне прямоугольника и минимальное расстояние до сторон определить невозможно. 3. Схема алгоритма(см. Приложение №2) 4. Распечатка текста программы: Program Proc_2; Uses crt; Type E=INTEGER; Var x,y:E; t,b:BOOLEAN; x1,x2,x3,x4,y1,y2,y3,y4:E; w,g,d,f:E; Function Nahozhdenie (x,y:INTEGER):BOOLEAN; Var n:BOOLEAN; begin If (x1 0 и k>0 и R>0 и C>0 “Макс. эл.” Max( a, n ,k) “Введите n>0 и k>0 и R>2 и C>2” КОНЕЦ ENTER Ввод a[ i , j ] MAX B:ATYPE; n,k: word m : =B[ 1, n+1] B[ i, j]> m m : = B[ i, j ] B[ i, j]> m m : =B[ i , j ] A A B[ i, j]> m m : =B[ i , j ] MAX:=m КОНЕЦ X1,Y1,X2,Y2, X3,Y3,X4,Y4 НАЧАЛО X , Y Nahozhdenie(x , y) t : =Nahozhdenie(x,y) t= “Правда” “ Минимальное расстояние : ” Rasstoyanie “ Точка вне прямоуг. мин. рааст. опред .невозможно” КОНЕЦ Nahozhdenie X1