|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
15.04.2014, 02:24 | #1 (permalink) |
Новичок
Регистрация: 12.03.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Использование подпрограмм при программировании на языке Паскаль
Поиск минимального элемента массива оформить в виде подпрограммы типа FUNCTION. Исходные данные: x={4,2; 3; 7; 3,6}; y={5,6; 3; 2}; z={1; 2; 3; 4; 5} |
15.04.2014, 02:24 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Схожие темы иногда очень хорошо помогают в решении проблемы Помогите, пожалуйста, написать программу на языке Паскаль Программа на алгоритмическом языке Турбо Паскаль Помогите, пожалуйста, написать программы на языке Паскаль |
15.04.2014, 10:13 | #2 (permalink) |
Member
Регистрация: 05.03.2014
Сообщений: 200
Сказал(а) спасибо: 2
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 834
|
да поправит меня уважаемый Владимир, если что не так.
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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|