برنامه اي بنويسيد كه يك عدد و طول ان را گرفته و مقلوب ان را چاپ ميكند.

Program test;

var

            a,b,c:integer;

begin

            readln(a,b);

            for c:=1 to b do

            begin

                        write(a mod 10);

                        a:=a div 10;

            end;

            writeln;

            readln;

end.

برنامه اي بنويسيد كه با دريافت سه عدد به عنوان ضرايب y=ax2+bx+c معادله درجه دو را حل كند(اين برنامه را با يك If بنويسيد(

Program test;

Var
A,b,c:integer;
D,x1,x2:real;
Begin
Writeln('enter a,b,c');
Readln(a,b,c);
D:=b*b-4*a*c;
If (d >=0 ) then
Begin
 X1:=(-b+sqrt(d))/2*a);
 X1:=(-b-sqrt(d))/2*a);

 Write('root is:',x1,x2);

End;

Else

   Write('no real root');

End.

برنامه اي بنويسيد كه دو عدد را از ورودي دريافت و چنانچه عدد اول در بازه 0 تا 5 بود توان دوم عدد دوم را چاپ كند چنانچه 68 بود حاصلضرب دو عدد را چاپ كند و در غير اينصورت مقادير مجاز را چاپ كند.

Program test;

Var a,b as integer;

BEGIN
WRITELN('ENTER TWO NUMBER');
READLN(A,B);
CASE A OF
0..5 :WRITELN(B*B);
68:WRITELN(A*B)
ELSE
WRITELN('ENTER 0..5 OR 68');
END;
END.

معادل برنامه فوق با دستور if

Program test;

Var a,b as integer;

Begin
Writeln('enter 2 number');
Readln(a,b);
If (a>=0)and(a<=5) then
Writeln(b*b)
Else
If a=68 then
Writeln(a*b)
Else
Writeln('enter 0..5 or68');
End.     

برنامه اي بنويسيد كه دو عدد را از ورودي دريافت و اعداد ما بين اين دو عدد را چاپ كند.

Program test;

Var a,b:integer;

begin

 Writeln('enter a,b');
 Readln(a,b);
 For I:= a to b do
 Writeln(i);
End.

برنامه اي بنويسيد كه با يك حلقه for اعداد بين100..1 و738..353و 950..940 را چاپ كند.

Program test;

 Var i:integer;

 Begin
 For i:=1 to 950 do
 Begin
   If ( i>=1) and (i<=100) then
       Writeln(i);
   If (i>353) and (i<=738) then
       Writeln(i);
   if (i>=940) and (i<=950) then
      Writeln(i);
End;
End.

برنامه فوق با دستور case  به صورت زير مي باشد.

Program test;

Var i:integer;

Begin
  For i:=1 to 950 do
   Case I of
      1..100,353..738,940..950: writeln(i);
end;
end.

برنامه اي بنويسيد كه تعداد مضارب 5و7 را در بازه 231~846 چاپ كند.

Program test;

  Var k,c,i:integer;

Begin
 K:=0;
 C:=0;
 For i:=846 downto 231 do
 Begin
   If I mod 5 = 0 then
       C:=c+1;
   If I mod 7 = 0 then
       K:=k+1;
 End;
Writeln('5=',c,'7=',k);
 End;
End.

برنامه اي بنويسيد كه حقوق پايه وتعداد فرزندان 100 كارگر را از ورودي دريافت و مبلغ حقوق آنها را بر اساس فرمول زير حساب كند0
*1000تعداد فرزند + حقوق پايه = حقوق كل

Program test;

 Var I,salary,num,kol :integer;

 Begin
   For i:=1 to 100 do
   Begin
       Writeln('enter salary and number of children');
       readln(salary,num);
       kol := salary + num * 1000;
       writeln(kol);
   end;
end.

برنامه اي بنويسيد كه تعدادي اسم را از ورودي دريافت و به ما بگويد چند بار اسم ali تكرار شده است(آخرين اسم end است.(

Program test;

Var
 S:integer;
 St:string;
Begin
 Read(st);
 While st<> 'end' do
   Begin
    If st='ali' then
      S:=s+1;
     Read(st);
End;write(s);
End.

برنامه اي بنويسيد كه عددي را از ورودي خوانده تعيين كند اول است يا نه.

program test;

var

t,n,i:integer;

begin

t:=0;

write('enter a number:');

readln(n);

for i:=1 to n do

if (n mod i=0) then

t:=t+1;

if (t=2) then

write('yes')

else

write('no');

readln

end.

برنامه ای که یک عدد را از ورودی خوانده فاکتوریا آن را چاپ می کند :

program test;

var

 i,n:integer;

 f:longint;

begin

 f:=1;

 write('enter a number:');

 readln(n);

 for i:=n downto 1 do

    f:=f*i;

 write(f);

 readln

end.

برنامه ای که یک عدد را از ورودی خوانده تعداد مقسوم علیه های آن را چاپ می کند :

program test;

var

n,t,i:integer;

begin

t:=0;

write('enter a number:');

readln(n);

for i:=1 to n do

if (n mod i=0) then

t:=t+1;

write(t);

readln

end.

مثال : برنامه اي بنويسيد كه نمرات 4 كلاس كه هر يك 20 دانش آموز دارد را از ورودي دريافت وتنبل ترين فرد را در اين 4 كلاس مشخص كند.

Var
A:array[1..20,1..4] of real;
Begin
For i:=1 to 4 do
Begin
For j:=1 to 20 do
Readln(a[j, i]);
End;
Min:=a[1,1];
For i:=1 to 4 do
For j:=1 to 20 do
If a[j,i]< min then
Min:=a[j,i];
Writeln(min);
End.

مثال : برنامه اي بنويسيد كه نمرات 100 دانش آموز را از ورودي دريافت و 50 تاي اول را چاپ كند سپس تعداد نمرات 20 را مشخص كند.

Var
A:array[1..100] of real;
Begin
For I;=1 to 100 do
Writeln('enter no(',I,')');
Readln(a[ i]);
For i:=1 to 50 do
Writeln(a [ i]);
S:=0;
For i:=1 to 100 do
  If a[ i]=20 then
      S:=s+1;
Writeln(s);
End.