اكتب برنامج باستخدام لغة البرمجة باسكال pascal یقوم باستقبال قیمة المتغیر X ثم یقوم بحساب قیمة كل من y,Z
- برمجة باسكال pascal
- 2021-10-18
- mhanasmh00489829403
الأجوبة
program Exe8(I,o);
var x:Integer;
y,z:real;
begin
readln(x);
if x>0 then
begin
y:=sqr(x)+2*x;
z:=sqrt(x)+4*x+1-x;
writeln('Y=',y:8:4,'Z=':4,z:7:4);
end
if x<0 then
begin
y:=x+sqr(x)+3;
z:=sqr(x)+1-2*x;
writeln('Y=',y:8:4,'Z=':4,z:8:4);
end;
if x=0 then
writeln('Error')أسئلة مشابهة
القوائم الدراسية التي ينتمي لها السؤال
معلومات ذات صلة