المثال
الأول :
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 والتي يقصد بها
ما لا نهاية بالموجب