Форум: "Потрепаться";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
ВнизДеление на ноль в Pascal е Найти похожие ветки
← →
APL (2002-02-17 12:25) [3]а можно и так
function Mydiv(x,y:real):real;
begin
if y=0 then
result:=0
else
result:= x/y;
end;
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c