مقاله - تحقیق - آموزش - برنامه نویسی - طراحی وبلاگ(آهنگ - کد جاوا - عکسهای متحرک - قالب وبلاگ )
۱۰) برنامه ای که اعداد اول کمتر از ۱۰۰۰ را چاپ می کند (منظور اعداد مثبت ) :
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.
۹) برنامه ای که دو عدد را از ورودی خوانده حاصل عدد اول به توان عدد دوم را به ترتیب داده شده محاسبه و در خروجی نمایش می دهد :
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.
۸) برنامه ای که یک عدد را از ورودی خوانده تعیین کند اول است یا خیر :
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
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.
۶) برنامه ای که یک عدد را از ورودی خوانده فاکتوریا آن را چاپ می کند :
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
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.
۴) برنامه ای که ۱۰۰ عدد را از ورودی دریافت کرده و در پایان مشخص نماید چند عدد زوج و چند عدد فرد خوانده شده است :
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.
۳) تعدادی عدد را از ورودی خوانده تعداد و مجموع اعداد داده شده را محاسبه نماید (شرط خروج از حلقه وارد کردن عدد صفر است ) :
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.
۲) برنامه ای که ۱۰۰ عدد را از ورودی خوانده بزرگترین عدد (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.
۱) برنامه ای که عدد 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.
