برنامه پاسکال (20)

 

۲۰) برنامه ای که حاصل دنباله فیبوناچی را تا ۱۰۰ جمله محاسبه و در خروجی نمکایش دهد :

program test;

var

f,b,p,i:integer;

s:longint;

begin

f:=1;

b:=1;

s:=2;

for i:=3 to 100 do

begin

p:=f+b;

s:=s+p;

f:=b;

b:=p;

end;

write(s);

readln

end.

 

برنامه پاسکال (19)

 

۱۹) برنامه ای که یک عدد را از ورودی خوانده مغلوب آن را محاسبه و در خروجی نمایش دهد :

program test;

var

n,s:integer;

begin

s:=0;

write('enter a number:');

readln(n);

while (n<>0) do

begin

s:=s*10+(n mod 10);

n:=n div 10;

end;

write(s);

readln

end.

 

برنامه پاسکال (18)

 

۱۸) برنامه ای که یک عدد را از ورودی خوانده مجموع ارقام آن را محاسبه و در خروجی نمایش دهد :

program test;

var

n,s:integer;

begin

write('enter a number:');

readln(n);

s:=0;

while n<>0 do

begin

s:=s+(n mod 10);

n:=n div 10;

end;

write(s);

readln

end.

 

برنامه پاسکال (17)

 

۱۷) برنامه ای که یک عدد را از ورودی خوانده تعداد ارقام آن را چاپ می کند :

program test;

var

n,t:integer;

begin

write('enter a number:');

readln(n);

t:=0;

while n<> do

begin

t:=t+1;

n:=n div 10;

end;

write(t);

readln

end.

 

برنامه پاسکال (16)

 

۱۶) برنامه ای که n را از ورودی خوانده حاصل عبارت زیر را محاسبه و در خروجی نمایش دهد :

s=1-1/2+1/3-1/4+...-1/n

program test;

var

p,i,n:integer;

s:real;

begin

p:=-1;

s:=1;

write('enter a number:');

readln(n);

for i:=2 to n do

begin

s:=s+(1/i)*p;

p:=-p;

end;

write(s);

readln

end.

 

برنامه پاسکال (15)

 

۱۵) برنامه ای دو عدد x و n را از ورودی خوانده حاصل عبارت زیر را محاسبه و در خروجی نمایش دهد :

x+x²+x³+...+xⁿ

program test;

var

x,i,j,n,t:integer;

s:longint;

begin

write('enter N and X:');

readln(n,x);

s:=x;

for i:=2 to n do

begin

t:=1;

for j:=1 to i do

t:=t*x;

s:=s+t;

end;

write(s);

readln

end.

 

برنامه پاسکال (14)

 

۱۴) برنامه ای که n را از ورودی خوانده حاصل عبارت زیر را در خروجی نمایش دهد :

۱+۱/۲+۱/۳+۱/۴+...+۱/n

program test;

var

i,n:integer;

s:real;

begin

s:=1;

write('enter a number:');

readln(n);

for i:=2 to n do

s:=s+(1/i);

write(s);

readln

end.

 

برنامه پاسکال (13)

 

۱۳) برنامه ای که یک عدد را از ورودی خوانده مجموع مقسوم علیه های آن را محاسبه و در خروجی نمایش دهد :

program test;

var

n,i,s:integer;

begin

write('enter a number:');

readln(n);

s:=0;

for i:=1 to n do

if (n mod i=0) then

s:=s+i;

write(s);

readln

end.

 

برنامه پاسکال (12)

 

۱۲) برنامه ای که یک عدد را از ورودی خوانده مشخص نماید کامل ( تام ) است یا خیر :

program test;

var

n,i,s:integer;

begin

write('enter a number:');

readln(n);

s:=0;

for i:=1 to (n-1) do

if (n mod i=0) then

s:=s+i;

if (n=s) then

write('yes')

else

write('no');

readln

end.

 

برنامه پاسکال (11)

 

۱۱) برنامه ای که دو عدد را از ورودی خوانده اعداد اول بین آنها را محاسبه و در خروجی نمایش می دهد (عدد اول کوچکتر از عدد دوم ) :

program test;

var

n,m,i,t:integer;

begin

write('enter two number:');

readln(n,m);

n:=n+1;

while (n

begin

t:=0;

for i:=1 to n do

if (n mod i=0) then

t:=t+1;

if (t=2) then

write(n:4);

n:=n+1;

end;

readln

end.