: 25
Поиск минимума/максимума в массиве / Turbo Pascal
Доброго времени суток. Проблема просто смешная, но я не могу понять, почему программа не работает.
Нужно найти минимум и максимум координат.
Есть 2 функции для поиска максимума и минимума(сначала объединил в одну, но в надежде решить проблему разделил на две). Максимум считается верно, а функция минимума всегда выдаёт нули. Подскажите пожалуйста, что я делаю не так.
Заранее благодарен.
Код ниже:
uses crt,graph; function max(mas: array of integer; n:integer):integer; var m,i:integer; begin m:= mas[1]; for i:=1 to n do begin if m < mas[i] then m:= mas[i]; end; max:=m; end; function min(mas: array of integer; n:integer):integer; var m,i:integer; begin m:= mas[1]; for i:=1 to n do if m >mas[i] then m:= mas[i]; min:=m; end; var x,y: array[1..50] of integer; i,numberPoints,Xmin,Ymin,Xmax,Ymax: integer; begin clrscr; write(‘ВВедите количество точек: ‘); readln(numberPoints); writeln(‘Введите координаты точек:’); for i:=1 to numberPoints do begin write(‘X’,i,’= ‘); readln(x[i]); write(‘Y’,i,’= ‘); readln(y[i]); end; Xmin:= min(x,numberPoints); Ymin:= min(y,numberPoints); Xmax:= max(x,numberPoints); Ymax:= max(y,numberPoints); write(‘Xmin=’,Xmin,’ Xmax= ‘,Xmax,’ Ymin=’,Ymin,’ Ymax= ‘,Ymax); readkey; end.
Источник: www.programmersforum.ru
Урок 15. Паскаль с нуля. Максимальный элемент массива
Поиск элемента в массиве паскаль
Найти максимальный элемент массива, состоящего из 10 элемено
Найти максимальный элемент массива , состоящего из 10 элеменов . Числа в массив вводятся с клавиатуры .
Program max ;
Var : array [ 1 .. 10 ] of real ;
i , n : integer ;
For i : = 1 to 10 do
write ( ‘a[‘ , i , ‘]=’ ) ; readln ( a [ i ] ) ;
for i = 1 to 10 do
if a [ i ] > max then max : = a [ i ] ;
writeln ( ‘наиб число’ , max ) ;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Bash | 5 min ago | 1.27 KB
VB.NET | 15 min ago | 20.60 KB
GetText | 28 min ago | 0.25 KB
HTML | 30 min ago | 28.62 KB
Bash | 44 min ago | 1.11 KB
Java | 59 min ago | 0.49 KB
Go | 1 hour ago | 4.31 KB
Python | 1 hour ago | 1.87 KB
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Источник: pastebin.com