با استفاده از برنامه نویسی پاسکال و با استفاده از دستور case و بدون استفاده از if برنامه ای بنویسید که دوعدد را گرفته و سپس ماکزیمم انها را چاپ کند ؟ لطفا
با استفاده از برنامه نویسی پاسکال و با استفاده از دستور case و بدون استفاده از if برنامه ای بنویسید که دوعدد را گرفته و سپس ماکزیمم انها را چاپ کند ؟ لطفا
لطفا در انتخاب عنوان تاپیک ها موضوع برنامه را بنویسید :
کد:
USES CRT;
VAR
x, y, max : INTEGER;
BEGIN
CLRSCR;
WRITE ('Please enter x : ');
READLN (x);
WRITE ('Please enter y : ');
READLN (y);
WRITE ('Max = ');
CASE x - y OF
0 :
max := x;
ELSE
CASE ROUND(SQRT(SQR(x - y)) / (x - y)) OF
+1 :
max := x;
-1 :
max := y;
END;
END;
WRITELN(max);
READKEY;
END.
