Использование подпрограмм при программировании на языке Паскаль
Заданы три массива: x={x1, x2, x3, x4}, y={y1, y2, y3} и z={z1, z2, z3, z4, z5}. Упорядочить по возрастанию три числа a, b и c, где а - минимальный элемент массива x, b - минимальный элемент массива y, а с- минимальный элемент массива z.
Поиск минимального элемента массива оформить в виде подпрограммы типа FUNCTION. Исходные данные: x={4,2; 3; 7; 3,6}; y={5,6; 3; 2}; z={1; 2; 3; 4; 5} |
да поправит меня уважаемый Владимир, если что не так.
const x: array [1..4] of real = (4.2, 3, 7, 3.6); y: array [1..3] of real = (5.6, 3, 2); z: array [1..5] of real = (1, 2, 3, 4, 5); var mas_min: array[1..3] of real; i, j: byte; min: real; function minX: real; begin min:= x[1]; for i:= 2 to length(x) do begin if x[i] < min then min:= x[i]; end; result:= min; end; function minY: real; begin min:= y[1]; for i:= 2 to length(y) do begin if y[i] < min then min:= y[i]; end; result:= min; end; function minZ(): real; begin min:= z[1]; for i:= 2 to length(z) do begin if z[i] < min then min:= z[i]; end; result:= min; end; begin mas_min[1]:= minX; mas_min[2]:= minY; mas_min[3]:= minZ; writeln('Min zna4eniya:'); for i:= 1 to 3 do write(mas_min[i]:4:1); writeln; // puzirek sort for i:= 1 to 2 do for j:= 1 to 2 do if mas_min[j] > mas_min[j+1] then begin min:= mas_min[j]; mas_min[j]:= mas_min[j+1]; mas_min[j+1]:= min; end; writeln('Min zna4eniya sorted:'); for i:= 1 to 3 do write(mas_min[i]:4:1); writeln; readln; end. |
Часовой пояс GMT +4, время: 08:37. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.