لايف نت - عرض مشاركة واحدة - هدول خص نص لعمو حمودة رقم العضوية : 95 <font color="#0033CC">MaZeN</font>

MaZeN · مشاركة رقم : 1 (permalink) 05-05-2007, 07:05 PM

حبيبي هدول هنن الثوابت كاملة متل ما طلبت انشا الله يفيدوك

الثابت المعرف يعامل في البرنامج على أنه كلمة محجوزة Reserved Word
Program Circle(input,output);

Const

Pi=3.14;

Var
Radius : integer ;

Circum , area : real ;

Begin

Writeln ( ‘Enter Radius’);

Read ( radius);

Circum := 2*pi* radius ;

Area := pi * radius * radius ;

Writeln (‘The value of circum is’,circum);

Writeln (‘The value of area is’,area);

End.

Program Circle(input,output);

Var

Pi : real ;

Radius : integer ;

Circum , area : real ;

Begin

Write (‘Enter Value of pi :’);

Readln (pi);

Writeln ( ‘Enter Radius’);

Read ( radius);

Circum := 2*pi* radius ;

Area := pi * radius * radius ;

Writeln (‘The value of circum is’,circum);

Writeln (‘The value of area is’,area);

End;