المثال الأول :
هذا البرنامج يقوم بإدخال 10 أعداد من المستخدم ويطبع العدد الأكبر منها
Program FindLargest(input,output);
Var
n,max:real;
i:integer;
flag:boolean;
Begin
Max=0;
flag:=true;
for i:= 1 to 10 do
begin
Write('Enter The Number :');
readln(n);
if flag then
begin
max:=n;
flag:=false
end
else
if n>max then max:=n
end;
Write('The large number = ',max)
End.
في هذا المثال نلاحظ أن الشرط الأول للدالة For سوف يتنفذ مره واحد عند تنفيذ التكرار وبعدها سوف ينفذ
الشرط الثاني لباقي الأعداد
فرضنا في هذا المثال للقيمة Max قيمة أوليه صفر وبدانا في إسناد القيم المدخله إليه كلما كانت أكبر
ولكن هنالك حل للمثال أسهل وأبسط للفهم
Program FindLargers(input,uotput);
Var
max,n:real;
j:integer;
Begin
max:=-maxint;
for j:= 1 to 100 do
begin
write('Enter the number :');
read(n);
if n>max then max:=n;
end;
Write('the large number=',max:9:3);
End.
في المثال الثاني عرفنا القيمة Max كما بالمثال الأول ولكن بالبداية أسندنا لها القيمة -MaxInt
وبذلك جعلنا لها قيمة ما لا نهاية ولكن بالسالب وهذه الخاصة مضاده لMaxInt والتي يقصد بها
ما لا نهاية بالموجب
الأمثلة
