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

 

۳۲) برنامه ای که عدد N را از ورودی خوانده N جمله اول دنباله فیبوناچی را چاپ کند :

program test;

var

a ,b ,c ,i ,n : integer;

begin

write('enter a number:');

readln(n);

a:=1;

b:=0;

c:=a+b;

for i:=1 to n do

begin

write(c:10);

a:=b;

b:=c;

c:=a+b;

end;

readln

end.

 

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

 

۳۱) برنامه ای که عدد N را از ورودی خوانده جملات دنباله فیبوناچی کمتر از N را چاپ کند :

program test;

var

a ,b ,c ,n : integer;

begin

write('enter a number:');

readln(n);

a:=1;

b:=0;

c:=a+b;

while (c

begin

write(c:10);

a:=b;

b:=c;

c:=a+b;

end;

readln

end.

 

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

 

۳۰) برنامه ای که دو عدد را از ورودی خوانده و جملات دنباله فیبوناچی بین آنها را چاپ کند :

program test;

var

a ,b ,c ,n ,m ,p : integer;

begin

write('enter two number:');

readln(n,m);

if (n>m) then

begin

p:=n;

n:=m;

m:=p;

end;

a:=1;

b:=0;

c:=a+b;

while (c

begin

if (c>n) then

write(c:10);

a:=b;

b:=c;

c:=a+b;

end;

readln

end.

 

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

 

۲۹) برنامه که یک عدد را از ورودی خوانده تعیین کند در دنباله فیبوناچی قرار دارد یا خیر :

program test;

var

f ,b ,p ,n ,i : integer;

begin

write('enter a number:');

readln(n);

f:=1;

b:=0;

p:=f+b;

while (p<=n) do

begin

if (p=n) then

begin

write('yes');

readln;

halt;

end;

f:=b;

b:=p;

end;

write('no');

readln

end.

 

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

 

۲۸) برنامه ای که عدد N را از ورودی خوانده حاصل عبارت زیر را محاسبه و چاپ می کند .( N تعداد خط های کسر می باشد ) :

1/1+1/1+1...../1/1+1

program test;

var

n,i : integer;

s,p : real;

begin

write('enter a number:');

readln(n);

s:=1/2;

for i:=2 to n do

begin

p:=s+1;

s:=1/p;

end;

write(s);

readln

end.

 

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

 

۲۷) برنامه ای که یک عدد را از ورودی خوانده اعداد ۸ را به ۵ و اعداد ۵ را به ۳ تبدیل کرده و عدد جدید را در خروجی نمایش می دهد :

program test;

var

x,p,r,s,b : integer;

begin

write('enter a number:');

readln(x);

p:=0;

while (x<>0) do

begin

r:=x mod 10;

if (r=8) then

r:=5

else

if (r=5) then

r:=3;

x:=x div 10;

p:=p*10+r;

end;

s:=0;

while (p<>0) do

begin

b:=p mod 10;

p:=p div 10;

s:=s*10+r;

end;

write(s);

readln

end.

 

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

 

۲۶) برنامه که یک عدد را از ورودی خوانده تعدا صفر هاو پنج های عدد را در خروجی چاپ می کند :

program test;

var

x,t-0,t-5,r : integer;

begin

write('enter a number:');

readln(x);

t-0:=0;

t-5:=0;

while (x<>0) do

begin

r:=x mod 10;

if (r=0) then

t-0:=t-0+1

else

if (r=5) then

t-5:=t-5+1;

end;

write(t-0,t-5:4);

readln

end.

 

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

 

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

x - (x²/2!) + (x³/3!) - ... +(xⁿ/n!)

program test;

var

i,x,n,k,p,t : integer;

f : longint;

s : real;

begin

write('enter N and X:');

readln(n,x);

s:=x;

k:=2;

p:=-1;

while (k<=n) do

begin

t:=1;

f:=1;

for i:=1 to k do

begin

t:=t*x;

f:=f*i;

end;

s:=s+(t/f)*p;

p:=-p;

k:=k+1;

end;

write(s);

readln

end.

 

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

 

۲۴) برنامه که تمام اعداد چهار رقمی را که دهگان و صدگان آنها با هم برابر است را در خروجی چاپ می کند :

program test;

x,p,i,j,r,s : integer;

begin

x:=1000;

p:=x;

j:=2;

while (x<10000) do

begin

s:=0;

for i:=1 to j do

begin

p:=p div 10;

r:=p mod 10;

s:=s+r;

end;

if [(s/2)=r] then

write(x:10);

x:=x+1;

p:=x;

end;

readln

end.

 

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

 

۲۳) برنامه ای که تمام اعداد چهار رقمی را چاپ می کند :

program test;

x:integer;

while (x<10000) do

begin

write(x:10);

x:=x+1;

end;

readln

end.

 

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

 

۲۲) برنامه ای که دو عدد را گرفته (ک م م ) را محاسبه و در خروجی نمایش می دهد :

program test;

var

x,y,r,p:integer;

begin

write('enter two number:');

readln(x,y);

p:=x*y;

while (x mod y<>0) do

begin

r:=x mod y;

x:=y;

y:=r;

end;

write(y/p);

readln

end.

 

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

 

۲۱) برنامه ای که دو عدد را گرفته (ب م م ) را محاسبه و در خروجی نمایش می دهد :

program test;

var

r,x,y:integer;

begin

write('enter two number:');

readln(x,y);

while (x mod y<>0) do

begin

r:=x mod y;

x:=y;

y:=r;

end;

write(y);

writeln

end.

 

برنامه پاسکال (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.

 

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

 

۱۰) برنامه ای که اعداد اول کمتر از ۱۰۰۰ را چاپ می کند (منظور اعداد مثبت ) :

program test;

var

n,m,i,t:integer;

begin

m:=1000;

n:=1;

while n

begin

for i:=1 to n do

if (n mod i=0) then

t:=t+1;

if (t=2) then

write(n:10);

n:=n+1;

end;

readln

end.

 

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

 

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

program test;

var

m,n,t,i:integer;

begin

t:=1;

write('enter two number:');

readln(m,n);

for i:=1 to n do

t:=t*m;

write(t);

readln

end.

 

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

 

۸) برنامه ای که یک عدد را از ورودی خوانده تعیین کند اول است یا خیر :

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.

 

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

 

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

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.

 

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

 

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

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.

 

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

 

۵) برنامه ای که تعداد نامشخصی عدد را از ورودی خوانده تعداد اعداد زوج و تعداد اعداد فرد خوانده شده را مشخص نماید ( شرط انتهای حلقه ورود عدد صفر است ) :

program test;

var

tf,tz,n:integer;

begin

tf:=0;

tz:=0;

write('enter a number:');

readln(n);

while n<>0 do

begin

if (n mod 2=0) then

tz:=tz+1

else

tf:=tf+1;

write('enter a number:');

readln(n);

end;

write(tf,tz);

readln

end.

 

 

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

 

۴) برنامه ای که ۱۰۰ عدد را از ورودی دریافت کرده و در پایان مشخص نماید چند عدد زوج و چند عدد فرد خوانده شده است :

program test;

var

tf,tz,n,i:integer;

begin

tf:=0;

tz:=0;

for i:=1 to 100 do

begin

write('enter a number:');

readln(n);

if (n mod 2=0) then

tz:=tz+1

else

tf:=tf+1;

end;

write(tf,tz);

readln

end.

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

 

۳) تعدادی عدد را از ورودی خوانده تعداد و مجموع اعداد داده شده را محاسبه نماید (شرط خروج از حلقه وارد کردن عدد صفر است ) :

program test;

var

n,t,s:integer;

begin

s:=0;

t:=0;

write('enter a number:');

readln(n);

while n<>0 do

begin

s:=s+n;

t:=t+1;

write('enter a number:');

readln(n);

end;

write(t,s:4);

readln

end.

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

 

۲) برنامه ای که ۱۰۰ عدد را از ورودی خوانده بزرگترین عدد (max) را چاپ می کند .

program test;

var

n,i,max:integer;

begin

write('enter a number;');

readln(n);

max:=n;

for i:=2 to 100 do

begin

write('enter a number:');

readln(n);

if  n>max  then

max:=n;

end;

write(max);

readln

end.

 

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

 

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

program test;

var

s,i,n:integer;

begin

s:=0;

write('enter a number:');

readln(n);

for i:=1 to n do

s:=s+i;

write(s);

readln

end.