مقاله - تحقیق - آموزش - برنامه نویسی - طراحی وبلاگ(آهنگ - کد جاوا - عکسهای متحرک - قالب وبلاگ )
۳۰) برنامه ای که دو عدد را از ورودی خوانده و جملات دنباله فیبوناچی بین آنها را چاپ کند :
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.
۲۹) برنامه که یک عدد را از ورودی خوانده تعیین کند در دنباله فیبوناچی قرار دارد یا خیر :
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.
۲۸) برنامه ای که عدد 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.
۲۷) برنامه ای که یک عدد را از ورودی خوانده اعداد ۸ را به ۵ و اعداد ۵ را به ۳ تبدیل کرده و عدد جدید را در خروجی نمایش می دهد :
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.
۲۶) برنامه که یک عدد را از ورودی خوانده تعدا صفر هاو پنج های عدد را در خروجی چاپ می کند :
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.
۲۵) برنامه ای که x و n را از ورودی خوانده و حاصل عبارت زیر را محاسبه می کند :
x - (x2/2!) + (x3/3!) - ... +(xn/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.
۲۴) برنامه که تمام اعداد چهار رقمی را که دهگان و صدگان آنها با هم برابر است را در خروجی چاپ می کند :
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.
۲۳) برنامه ای که تمام اعداد چهار رقمی را چاپ می کند :
program test;
x:integer;
while (x<10000) do
begin
write(x:10);
x:=x+1;
end;
readln
end.
۲۲) برنامه ای که دو عدد را گرفته (ک م م ) را محاسبه و در خروجی نمایش می دهد :
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.
۲۱) برنامه ای که دو عدد را گرفته (ب م م ) را محاسبه و در خروجی نمایش می دهد :
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.
