محاسبه قدر مطلق با استفاده از case در پاسکال

[amirm1988]

با استفاده از برنامه نویسی پاسکال و با استفاده از دستور case و بدون استفاده از if برنامه ای بنویسید که a را خوانده و سپس قدرمطلق ان را چاپ کند ؟ لطفا

 

[the_king]

با استفاده از برنامه نویسی پاسکال و با استفاده از دستور case و بدون استفاده از if برنامه ای بنویسید که a را خوانده و سپس قدرمطلق ان را چاپ کند ؟ لطفا

مجددا ازتون درخواست می کنم در انتخاب عنوان تاپیک ها موضوع برنامه را بنویسید، مثلا " محاسبه قدر مطلق با استفاده از case در پاسکال"

USES CRT;
VAR
    n, a : INTEGER;
BEGIN
    CLRSCR;
    WRITE ('Please enter n : ');
    READLN (n);
    WRITE ('Abs(n) = ');
    CASE n OF
        0 :
            a := 0;
        ELSE
            a := ROUND(SQRT(n * n));
    END;
    WRITELN(a);
    READKEY;
END.