// PascalABC.NET 3.1, сборка 1219 от 16.04.2016 begin var n:=ReadInteger('Кол-во элементов:'); var a:=ArrRandomReal(n,-10,20); a.Println; Writeln('С округлением если |x|<1'); for var i:=0 to n-1 do if abs(a[i])<1 then a[i]:=Round(a[i]); a.Println end.
Процедуры, не связанные с объектами и событиями, называются процедурами пользователя или подпрограммами. Пользовательские процедуры можно использовать неоднократно. Если текст процедуры пользователя был записан в разделе General - в окне программного кода формы, то она будет доступна только для данной формы, но не доступна для других форм этого же приложения.
Чтобы процедура пользователя была доступна на всех формах приложения, ее текст следует записать в специальном окне
Module - модуль приложения. Программный код такой процедуры будет храниться в файлах приложения с расширением *.bas.
begin
var n:=ReadInteger('Кол-во элементов:');
var a:=ArrRandomReal(n,-10,20); a.Println;
Writeln('С округлением если |x|<1');
for var i:=0 to n-1 do
if abs(a[i])<1 then a[i]:=Round(a[i]);
a.Println
end.
Тестовое решение:
Кол-во элементов: 10
-0.751956142835299 5.95022566427953 3.58861613254464 7.42331713783709 -4.75036238075717 -9.41228387384316 -0.700975591643235 3.85500546258642 -1.94321916994789 19.3021338336645
С округлением если |x|<1
-1 5.95022566427953 3.58861613254464 7.42331713783709 -4.75036238075717 -9.41228387384316 -1 3.85500546258642 -1.94321916994789 19.3021338336645
Процедуры, не связанные с объектами и событиями, называются процедурами пользователя или подпрограммами. Пользовательские процедуры можно использовать неоднократно. Если текст процедуры пользователя был записан в разделе General - в окне программного кода формы, то она будет доступна только для данной формы, но не доступна для других форм этого же приложения.
Чтобы процедура пользователя была доступна на всех формах приложения, ее текст следует записать в специальном окне
Module - модуль приложения. Программный код такой процедуры будет храниться в файлах приложения с расширением *.bas.