دانشجویان دانشگاه آزاد سوسنگرد و آبادان

دانشجویان دانشگاه آزاد سوسنگرد و آبادان

پروژه مهندسی اینترنت

آرم وبلاگ

لينك دوستان

لينك هاي روزانه

ساعت و تاريخ

منوي اصلي

نويسندگان

موضوعات

آرشيو ماهانه

جستجوگر

آمار وبلاگ

طراح قالب

pascal1 ( )

مثال : برنامه اي بنويسيد كه توان دوم اعداد 100 تا 200 را چاپ كند.

Begin
For i:=100 to 200 do
Begin
Writeln(i*i);
End;
End.

نكته : اجازه نداريد مقدار متغير حلقه را در داخل بدنه عوض كنيد .
مثال : برنامه اي بنويسيد كه حاصلجمع اعداد 100..1 را چاپ كند.

Begin
Sum:=0;
For i:=1 to 10 do
Begin
Sum:=sum+i
End;
Write(sum);
End.

مثال : برنامه اي بنويسيد كه حاصلجمع مضارب 5 بين 0 تا 100را به دست آورد.

Begin
Sum:=0;
For I:=1 to 20 do
Begin
Sum:=sum+i*5;
End;
Writeln(sum);
End.

مثال : برنامه اي بنويسيد كه دو عدد را از ورودي دريافت و اعداد ما بين اين دو عدد را چاپ كند (a

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

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

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 :

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

)باقيمانده)mod?
مثال :
X mod y
مثال : برنامه اي بنويسيد كه مضارب 7 بين 1 تا 100 را چاپ كند

Begin
For i:= 1 to 100 do
Begin
If I mod 7 = 0 then
Writeln(i);
End;
End.

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

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*تعداد فرزند + حقوق پايه = حقوق كل

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.

مثال : برنامه اي بنويسيد كه 100 عدد را از ورودي دريافت و ميانگين و حاصلجمع آنها را به ما بدهد.

Begin
Sum:=0;
For i:= 1 to 100 do
Begin
Writeln('enter num');
Readln(num);
Sum:=sum+num;
End;
Ave:=ave/100;
Writeln(sum,ave);
End.

تعداد تكرار نامعين :
Do شرط while
begin
___
___
___
end;
مثال : برنامه اي بنويسيد كه اعداد 100..1 را چاپ كند

Begin
I:=1;
While i<=100 do
Begin
Write(i);
I:=i+1;
End;

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

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.

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

Begin
Readln(num);
T:=1;
While num<>0 do
Begin
Sum:=sum+num;
Readln(num);
T:=t+1;
End;
Writeln('s=',s,'average',s/t);
End;

تكليف : ميخواهيم براي برنامه هاي خود يك منو تهيه كنيم اين منو شامل موارد زير است
1) load
2) save
3) edit
4) exit
please select a number :

program test;
var
num:integer;
begin
writeln(' 1) load');
writeln(' 2) save');
writeln(' 3) edit');
writeln(' 4) exit');
writeln(please select a number : ');
readln(num);
while num<>4 do
begin
case num of
1:writeln('loading');
2:writeln('saving');
3:writeln('editing');
end;
end;
end.

نوشته شده توسط محمد امین سعیدی در دوشنبه سوم بهمن 1384

لينك مطلب

pascal ( )

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

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 :

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.

نوشته شده توسط محمد امین سعیدی در دوشنبه سوم بهمن 1384

لينك مطلب

pascal2 ( )

مثال : برنامه اي بنويسيد كه تعداد فرزندان وحقوق پايه و رتبه يك كارگر را از ورودي دريافت و حقوق كل وي را بر اساس فرمول زير حساب كند.
كسريها - مزايا +بيمه = حقوق كل
5*رتبه +1000* تعداد فرزند = مزايا
ماليات + بيمه = كسريها

بيشتر كمتر يا مساوي 2 تعداد فرزند
تعداد فرزندان 1000 بيمه
هر چيزي ديگر 20 تا 0 رتبه
حقوق پايه حقوق پايه*100/10 ماليات

begin
writeln('enter salary and grade and number of child');
readln(salary ,num,grade);
if num<=2 then
bimeh:=100
else
bimeh :=num*500;
if (grade>=0) and (grade<=20)then
net := 10/100*salary
else
if grade >20 then
begin
net:=20/100*salary;
mazaya:=num*1000+grade*50;
kasry:=bimeh+net;
kol :=salary + mazaya-kasry;
end;
writeln(kol);
end.

مثال : برنامه اي بنويسيد كه يك رشته را از ورودي دريافت و متقارن بودن آنرا چك كند.
1 2 3 4 5 5 4 3 2 1

var
N:string;
Begin
Readln(n);
For i:=1 to int(length(n)/2) do
Begin
If n[i] <> n[length(n)-i+1] then
K:=0;
End;
If k=1 then
Writeln ('ok')
Else
Writeln('no');
End.
تكليف : برنامه اي بنويسيد كه تعدادي نام را از ورودي دريافت و در يك فايل بريزد سپس فايل تشكيل شده را باز كرده و از روي اين فايل دو فايل ديگر تشكيل دهيد كه در يكي از آنها اسامي كه بين a تا z قرار گرفته اند ريخته و در فايل دوم كليه اسامي كه از v تا z هستند را بريزد.

Program test;
Var
Name : string;
F,f1,f2:text;
Begin
Assign(f,'a.dat');
Rewrite(f);
Writeln('enter a name ');
Readln(name);
While length(name)>0 do
Begin
Writeln(f,name);
Writeln('enter a name');
Readln(name);
End;
Close(f);
Reset(f);
Assign(f1,'a1.dat');
Assign(f2,'a2.dat');
Rewrite(f1);
Rewrite(f2);
While not eof (f) do
begin
Readln(f,name);
Case name[1] of
'a'..'u':writeln(f1,name);
'v'..'z':writeln(f2,name);
end;
end;
close(f2);
close(f1);
close(f);
end.

نوشته شده توسط محمد امین سعیدی در دوشنبه سوم بهمن 1384

لينك مطلب

توجه توجه ( )

از آنجایی که سعی در ارتقاء سطح عـلمـی

کـلاس داریـم بـه اطـلاع دوسـتــان عـز یــز

میرساند که طی این چند روز باقی مانده به

امتـحان در این تـلاشـیم که تـمـامـی مـوارد

مفید در درک بــرنامه نـویـسـی را در وبـلاگ

درج کـرده ، تـعـدادی از بــرنـامـه هـا هـمراه

با توضیح آنها را بنویسیم.

***(خواهشمند است به همکلاسیها اطلاع دهید)***

قدم اول برای نوشتن برنامه درک درست مسئله و دانستن تمام دستورات لازم و قواعد برنامه نویسی میباشد، تا اینجا شما50 درصد راه را رفته اید بقیه راه بستگی به خلاقیت شما دارد که برنامه را از چه طریقی راحتر وساده تر به اتمام برسانید برای این کار شما میتوانید به کتابهایی نظیر پاسکال کافمن یا جعفرنژاد مراجعه و با اجرای برنامه های این کتابها توانایی خود را در برنامه نویسی بالا ببرید

موارد مفید در برنامه نویسی :

1- نوشتن برنامه های موجود و دنبال کردن خط به خط آنها برای درک بیشتر برنامه

2- سعی کنید با تغییرات کوچک در ساختار برنامه خروجی آنها تغییر دهید و برنامه های جدیدی بنویسد

3- در صورت تمایل به نوشتن برنامه های جدید سعی کنید برنامه را به چند قسمت تقسیم کنید و هر قسمت را به صورت جدا حل کنید و در انتها آنها را به صورت مرتب به هم وربط دهید

4- در صورتی که به شما ورودی و خروجی را داده باشند سعی کنید ارتباط ورودی و خروجی ، مقادیر خروجیها با یکدیگررا یافته و ببینید خروجی از چند قسمت تشکیل شده

5- در صورتی که مسئله به طور کامل درک نکرده باشید برنامه را تا جایی که میتوانید بنویسید و در صورت وجود اشکال آنها را یک به یک اصلاح کنید

6- مسائل ریاضی دوره راهنمایی در اکثر برنامه ها مورد استفاده قرار میگیرند دانستن آنها در برنامه نویسی به شما کمک میکند

ساختار برنامه

Program نام برنامه ;

Const

نام ثابت = مقدار ثابت;

Var

نام متغیر : نوع متغیر;

Begin

____

____ دستورات

____

End.

ساختار حلقه for

For نام متغیر:= مقدار اولیه to مقدار ثانویه do افزایشی

Begin

دستورات

End;

For نام متغیر:= مقدار اولیه downto مقدار ثانویه do کاهشی

Begin

دستورات

End;

ساختار while

while شرط do

begin

دستوراتی که باید تکرار شوند

End;

ساختار repeat

repeat

دستورات

Until شرط;

ساختار case

case عبارت of

مقادیر:دستورات;

Else

دستورات

End;

ساختار پروسیجر

Procedure نام رویه;

Var

تعاریف

Begin

دستورات

End;

ساختار تابع

Function نام تابع(نام ورودی:نوع ورودی):نوع خروجی;

Var

تعاریف

Begin

دستورات

End;

در حالت معمولی اولویت با زیربرنامه ای است که اول نوشته شده باشد و در برنامه هایی که زیربرنامه ها تودر تو عمل میکنند به مشکل برمیخریم برای رفع این مشکل ودادن اولویت به زیربرنامه ها از این دستور استفاده میکنیم	Forward
Halt پروسجری است که باعث خروج کامل از برنامه و بازگشت به سیستم عامل میگردد. این دستور چه درون قسمت اصلی برنامه باشد و چه در زیر برنامه های فرعی باعث خروج کامل از برنامه میشود	Halt
این دستور در زیر برنامه باعث خروج از زیر برنامه و بازگشت به جایی که زیربرنامه فراخوانی شدهاست میشودو در قسمت اصلی برنامه باعث خروج کامل و برگشت به سیستم عامل میگردد	Exit
این دستور داخل حلقه استفاده میشود. هنگامی که درون یک حلقه به دستور break برسیم کنترل از حلقه خارج شده و به اولین دستور بعد از حلقه منتقل میشود	Break
این دستور هم در حلقه استفاده میشود ولی به جای خروج از حلقه کنترل را دوباره به اول حلقه منتقل میکند	Continue

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

طریقه حل: از آنجایی که اعداد 3 رقمی بین 100 تا 999 می باشد ابتدا به یک حلقه for بین 100 تا 999 نیاز داریمبعد از آن باید یکان و صدگان عدد را جدا کرده با هم مقایسه کنیم برای جدا کردن یکان عدد را mod 10 میکنیم زیرا اگر عددی را mod 10 کنیم با قی مانده آن فقط قسمت یکان عدد میباشد وبرای جدا کردن صدگان عدد آن را div 100 میکنیم وسپس با یک شرط آنها را مقایسه میکنیم در صورت برابر بودن عدد را چاپ میکنیم ودر غیر این صورت به عدد بعدی حلقه می رویم.

uses crt;

var

f:integer;

begin

for f:= 100 to 999 do

if (f div 100)=(f mod 10) then

write(f:5);

readln;

end.

سوال: برنامه ای بنویسید که عددی را از ورودی دریافت کند و در صورت کامل بودن عدد پیغامی مناسب چاپ کند:

طریقه حل :(کامل بودن عدد یعنی برابر بودن مجموع مقسوم علیه های کوچکتر از عدد با خود عدد )برای حل این مسئله ابتدا به یک حلقه for نیاز داریم که تمام مقسوم علیه های عدد را از 1 تا یک رقم کمتر از خود عدد بدست آورد (y در صورتی مقسوم علیه x میباشد که x mod y = 0 باشد)و آنها را با هم جمع کند و در صورت برابر بودن مجموع با خود عدد آن عدد کامل است و در آخر فقط به یک پیغام مناسب در خروجی نیاز داریم

uses crt;

var

i,s,a:word;

begin

clrscr;

write('enter a number:');

readln(a);

for i:= 1 to a-1 do

if (a mod i)=0 then

begin

write(i,' ');

s:= s+i;

end;

writeln;

writeln(s);

if a=s then

writeln('yes yes yes yes yes')

else

write('no no no no no ');

readln

end.

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

uses crt;

var

i,b:word;

begin

repeat

for b:= 1 to 4 do

begin

for i:=1000 to 2500 do

begin

sound(i);

delay(1);

end;

nosound;

delay(100);

until keypressed;

end.

سوال:برنامه ای بنویسید که تعدادی از عناصر سری فیبوناچی را برابر با ورودی چاپ کند و این کار را تا زمانی ادامه دهد که ورودی برابر با صفر باشد و در صورت صفر بودن از برنامه خارج شود .(در سری فیبوناچی از جمع دو عنصر اول عنصر سوم بدست می آید)

طریقه حل : ابتدا برنامه در حلقه wile میگذاریم که برنامه تا زمانی اجرا شود که ورودی نابرابر صفر باشد بعد از یک حلقه for استفاده میکنیو که به تعدادی که میخواهیم از سری فیبو را چاپ کند از آنجایی که دو عنصر اول فیبو 1 و 1 هستند یکی را خودمان مقدار دهی میکنیم و دیگری را از حلقه مقدار میدهیم و آنها را چاپ میکنیم سپس آنها را جمع کرده و مقادیر را جابجا میکنیم و تعداد دفعات تکرار به مقدار ورودی بستگی دارد و در صورت ی که ورودی صفر باشد از برنامه خارج میشویم.

Program test;

Uses crt;

Var

a,b,c,d,e:integer;

Begin

a:= 1;

Clrscr;

while a<>0 do

begin

Write ('enetr a number:');

Readln(a);

Clrscr;

d:=0;

e:=1;

For b:= 1 to a do

begin

c:=d+e;

write (e,' ');

d:=e;

e:=c;

end;

writeln;

end;

end.

uses crt ;

var i,j,n,c:byte ;

begin

textmode(co40); textattr:=(1*16)+14;

write('enter number= ');

readln(n);

clrscr;c:=1;

for i:=0 to n-1 do

begin

c:=c+i;

for j:=c to (i+c) do

write(j:3);

writeln;

end;

readln

end.

سوال : برنامه ای بنویسید که در صورتی که ورودی 5 باشد خروجی آن به صورت زیر باشد

12345

طریقه حل:برای اینکار از دو حلقه for تودرتو با مقداری برابر ورودیاستفاده میکنیم از حلقه اول برای تکرار کار حلقه دوم استفاده میشود اما حلقه دوم برای چاپ اعداد 1 تا ورودی به کار میرود از یک writeln برای انتقال کرسر به خط بعد استفاده میکنیم.

uses crt;

var

x,i,j:integer;

begin

readln(x);

for i:=1 to x do

begin

for j:=1 to x do

write(j);

writeln;

end;

readln

end.

سوال : برنامه ای بنویسید که در صورتی که ورودی 5 باشد خروجی آن به صورت زیر باشد

123

1234

12345

طریقه حل:در این برنامه از دو حلقه متداخل استفاده میکنم حلقه اول برای تکار حلقه دوم و دادن مقدار ثانویه به آن بکار میرود در حلقه دوم مقدار ثانویه با هر بار تکرار تغییر میکند تا اعداد به صورت بالا چاپ شوند از writeln برای انتقال کرسر به خط بعد استفاده میشود.

uses crt;

var

x,i,j:integer;

begin

readln(x);

for i:=1 to x do

begin

for j:=1 to i do

write(j);

writeln;

end;

readln

end.

سوال : برنامه ای بنویسید که در صورتی که ورودی 5 باشد خروجی آن به صورت زیر باشد

11111

22222

33333

44444

55555

طریقه حل :

uses crt;

var

x,i,j:integer;

begin

readln(x);

for i:=1 to x do

begin

for j:=1 to x do

write(i);

writeln;

end;

readln

end.

سوال : برنامه ای بنویسید که در صورتی که ورودی 5 باشد خروجی آن به صورت زیر باشد

333

4444

55555

طریقه حل :

uses crt;

var

x,i,j:integer;

begin

readln(x);

for i:=1 to x do

begin

for j:=1 to i do

write(i);

writeln;

end;

readln

end.

سوال : برنامه ای بنویسید که در صورتی که ورودی 5 باشد خروجی آن به صورت زیر باشد

12345

23451

34512

45123

51234

طریقه حل :

uses crt;

var

i,j,x,k:integer;

begin

clrscr;

readln(x);

for i:=1 to x do

begin

for j:=i to x do

write(j);

for k:=1 to i-1 do

write(k);

writeln;

end;

readln

end.

سوال: برنامه ای بنویسید که در صورت زدن کلیدی از کیبرد مشخص کند که این کلید از حروف بزرگ است یا حروف کوچک یا عدد است یا غیره و پیغامی مناسب چاپ کند و این کار را تا زمانی ادامه دهد که کلید Esc را فشار دهیم.

طریقه حل: با استفاده از دستور readkey کلیدی را از کیبرد میگیریم و سپس با استفاده از دستور case مشخص میکنیم که جز کدام گروه کلیدها است

uses crt;

var

a:char;

begin

repeat

a:=readkey;

CLRSCR;

case a of

#48..#57:writeln(' this is nomber key');

#65..#90:writeln(' this is longword key');

#97..#122:writeln(' this is shortword key');

#27:halt;

else

writeln(' this key isnot long or shortword or nomber key');

end;

until a=#27 ;

end.

سوال : برنامه ای بنویسید که عددی را از ورودی گرفته معکوس آن را چاپ کند (معکوس 12345 = 54321)

طریقه حل: ابتدا با استفاده از دستور mod ارقام عدد را یک به یک جدا کرده و سپس با ضرب رقم اول در 10 و جمع کردن آن با رقم دوم و ادامه این کار تا پایان عدد ،معکوس آن عدد را بدست می آوریم

uses crt;

var

a,b,c:longint;

begin

clrscr;

c:=0;

write('enter your nomber = = =>');

readln(a);

repeat

b:= a mod 10;

a:= a div 10;

c:=(c*10)+b;

until a=0;

writeln(c);

readln

end.

سوال : برنامه ای بنویسید که در صورتی که ورودی 5 باشد خروجی آن مثلث متساوی الساقین زیر باشد

232

34543

4567654

567898765

طریقه حل:

uses crt;

var

a,x,i,j,b,z:integer;

begin

CLRSCR;

WRITE ('ENTER A NOMBER =');

a:=0;

Readln(x);

for b:=1 to x do

begin

write('':x*2-b);

for i:=1 to b do

write(i+a);

for j:=(b-1) downto 1 do

write(j+a);

a:=a+1;

Writeln;

End;

readln

end.

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

1001

/ \

7 143

/ \

11 13

طریقه حل : با استفاده از حلقه ها for متداخل ابتدا کوچکترین مقسوم علیه اول عدد را پیدا کرده و عدد را بر آن تقسیم کرده هر دو را چاپ میکنیم با عدد حاصل هم همینگونه عمل میکنیم تا ریشه یک عدد اول بدست آید

uses crt;

var

a,b,c,d,g:longint;

begin

clrscr;

write('enter a nomber = ');

readln (a);

clrscr;

writeln(' ',a);

d:=5;

for b:= 2 to a do

for c:= 2 to a-1 do

if a mod c =0 then

begin

writeln('/ \':d+6);

for g:= 1 to d do

write(' ');

d:=d+4;

write (c,' ');

a:= a div c ;

writeln(a);

break;

end;

if d < 8 then

begin

clrscr;

writeln (a,' is a prime !');

end;

readln

end.

سوال: برنامه ای بنویسید که یک برنامه رمز را شیبه سازی کند(حداکثر 8 کاراکتر)با هر بار زدن کلید یک کارکتر * در صفحه ظاهر شود

طریقه حل : با استفاده از حلقه 8 کاراکتر گرفته و با مقایسه آنها با رمز تعریف شده صحت یا عدم صحت رمز را مشخص میکنیم

uses crt;

var

a,b:char;

z,i,j:integer;

begin

b:=#32;

z:=0;

clrscr;

write ('enter a password = = =>');

for i:= 1 to 8 do

begin

a:=readkey;

if i<>9 then

begin

write('*');

if a=b then

z:=z+1

end;

clrscr;

if z=8 then

write ('your password is true')

else

writeln(' password isnot true');

readln

end.

سوال: برنامه ای بنویسید که یک ساعت دیجیتال را شبیه سازی کند

طریقه حل : با استفاده از چند حلقه متداخل و چاپ مقادیر حلقه ها در داخلیترین حلقه و نیز شرطی میگذاریم که در صورت زدن کلیدی از برنامه خارج شویم

uses crt;

var

h,m,c,e:integer;

d:longint;

begin

for h:= 0 to 24 do

for m:= 0 to 60 do

for c:= 0 to 60 do

for e:= 0 to 99 do

begin

write (h,' : ',m,' : ',c,' : ',e);

for d:= 1 to 1000000 do;

if keypressed then halt;

clrscr;

end;

end.

سوال : برنامه ای بنویسید که تاریخ یک روز را از شما گرفته تاریخ روز بعد را نشان دهد (با فرض اینکه اسفند همیشه 29 روز است)

uses crt;

var

y,m,d:byte;

begin

clrscr;

write('enter a date = = => / /');

gotoxy(18,1);

read(y);

gotoxy(21,1);

read(m);

gotoxy(24,1);

read(d);

if m<=6 then

if d=31 then

begin

d:=1;

m:=m+1;

end

else

d:=d+1

else

if m<=11 then

if d=30 then

begin

d:=1;

m:=m+1;

end

else

d:=d+1

else

if d=29 then

begin

d:=1;

m:=1;

y:=y+1;

end

else

d:=d+1;

write(y,'/',m,'/',d);

readln;

readln

end.

سوال : برنامه ای بنویسید که جدول ضرب 10 را چاپ کند

طریقه حل : با استفاده از دو حلقه تودرتو و ضرب کردن مقادیر آنها

uses crt;

var

i,j:1..10;

begin

clrscr;

textbackground(12);

for i:=1 to 10 do

for j:=1 to 10 do

begin

textcolor(3);

gotoxy(j*8-7,i);

write(j,'*',i,'=',j*I);

end;

readln;

end.

سوال برنامه ای بنویسید که خروجی زیر را چاپ کند

1 64

2 32

4 16

8 8

16 4

32 2

64 1

uses crt;

var

a,b:integer;

begin

clrscr;

a:=1;

b:=64;

while a<= 64 do

begin

write(a,' ');

writeln(b);

a:=a*2;b:=b div 2;

end;

readln

end.

سوال : برنامه ای بنویسید که کلیدی از کیبرد بگیرد و مشخص کند کلید زده شده f هست یا نه .

طریقه حل ک با دستور readkey یک کلید میگیریم سپس با دستور case کد اسکی آن را با کلید های f مقایسه میکنیم

uses crt;

var

c:char;

BEGIN

CLRSCR;

TEXTMODE(CO40);

writeln('enter F1....F10');

c:=readkey;

if c=#0 then

c:=readkey;

case c of

#59:writeln('F1');

#60:writeln('F2');

#61:writeln('F3');

#62:writeln('F4');

#63:writeln('F5');

#64:writeln('F6');

#65:writeln('F7');

#66:writeln('F8');

#67:writeln('F9');

#68:writeln('F10');

ELSE WRITELN('THE NOT F1....F10');

END;

READLN

END.

سوال: برنامه ای بنویسید که 10 عدد از ورودی گرفته کوچکترین وبزرگترین آنها را مشخص کند و بگوید در ورودیها چند 7و چند 14 و چند 24 بوده

uses crt;

var i,max,min,b,c,d,a:integer;

begin

clrscr;

d:=0;

b:=0;

c:=0;

write('enter number=');

readln(a);

max:=a;

min:=a;

for i:=1 to 9 do

begin

readln(a);

if max

max:=a;

if min>a then

min:=a;

case a of

7:b:=b+1;

26:d:=d+1;

14:c:=c+1;

end;

writeln('max=',max,' min=',min);

writeln('input 7 = ', b);

writeln('input 26 =', d);

writeln('input 14 =', c);

readln

end.

سوال : چاپ سری فیبوناچی از طریق تابع

uses crt;

function fib(n:integer):integer;

var x,y,c,i:integer;

begin

textmode(co40);textattr:=(1*16)+14;

clrscr;

x:=0;

y:=1;

for i:=1 to n do

begin

write(y:3);

c:=x+y;

x:=y;

y:=c;

end;

var k:byte;

begin

write('enter number=');

readln(k);

fib(k);

readln

end.

سوال : برنامه ای بنویسید که در صورتی که ورودی 5 باشد خروجی آن به صورت زیر باشد

2 3

4 5 6

7 8 9 10

11 12 13 14 15

uses crt ;

var i,j,n,c:byte ;

begin

textmode(co40); textattr:=(1*16)+14;

write('enter number= ');

readln(n);

clrscr;c:=1;

for i:=0 to n-1 do

begin

c:=c+i;

for j:=c to (i+c) do

write(j:3);

writeln;

end;

readln

end.

سوال: برنامه ای بنویسید که فاکتوریل یک عدد را حساب کند

uses crt ;

var i,n,fact:integer;

begin

clrscr;

fact:=1;

write('enter number= ');

readln(n);

for i:=1 to n do

fact:=fact*i;

write('factoril ',n,'=',fact);

readln

end.

سوال : برنامه ای بنویسید که در صورتی که ورودی 5 باشد خروجی آن به صورت زیر باشد

121

12321

1234321

123454321

12344444321

1233333333321

122222222222221

11111111111111111

uses crt;

var g,i,j,k,r,s,n,c:integer;

begin

textcolor(10); clrscr;

K:=40; s:=3;

readln(n);

clrscr;

for i:=1 to n do

begin

k:=k-2;

write('':k);

for j:=1 to i do

write(j:2);

for c:=i-1 downto 1 do

write(c:2);

writeln;

end;

for i:=1 to n-1 do

begin

k:=k-2;

write('':k);

for j:=1 to n-i do

write(j:2);

for r:=1 to s do

write(j:2);

for c:=n-i downto 1 do

write(c:2);

writeln;

s:=s+4;

end;

readln

end.

سوال : برنامه ای بنویسید که یک رشته گرفته و آنرا دور صفحه نمایش بچرخاند تا زمانی که کلیدی زده شود.

uses crt;

var x,y,lin:integer; w:string; i:longint;

procedure mn;

begin

textcolor(random(14)+1);

if keypressed then halt;

gotoxy(x,y);

write(w);

for i:=1 to 20000000 do;

clrscr;

end;

function df:integer;

begin

y:=1;

repeat

for x:=1 to (80-lin) do

mn;

for y:=1 to 50 do

mn;

for x:=(80-lin) downto 1 do

mn;

for y:=50 downto 1 do

mn;

until keypressed;

end;

begin

clrscr;

write('enter string:');

readln(w);

lin:=length(w);

clrscr;

df;

readln

end.

سوال: برنامه ای بنویسید که مختصات دو نقطه یک پنجره را از شما گرفته آن را رسم کند

uses crt;

var x,y,x1,x2,y1,y2:integer;

i:longint;

w:string;

procedure me;

begin

w:='#';

gotoxy(x,y);

write(w);

textcolor(random(14)+5);

end;

function df:integer;

begin

gotoxy(x1,y1);

for x:=x1 to x2 do

me;

for y:=y1 to y2 do

me;

for x:=x2 downto x1 do

me;

for y:=y2 downto y1 do

me;

end;

begin

clrscr;

readln( x1,x2,y1,y2);

df;

readln

end.

سوال : برنامه ای بنویسید که بدون استفاده از حلقه دو عدد را از شما کرفته و به توان هم برساند(سوال 5 میان ترم)

uses crt;

var

x,y:real;

begin

clrscr;

write('enter x^y = ');

readln(x,y);

x:=exp(y*ln(x));

clrscr;

write('x^y = ',x:2:0);

readln

end

****(ادامه دارد)****

در صورت داشتن هر گونه اشکال یا سوال با ایمیل atena_662002@yahoo.com مکاتبه کنید در اسرع وقت به شما جواب داده میشود

نوشته شده توسط محمد امین سعیدی در شنبه یکم بهمن 1384

لينك مطلب

مطالب پيشين

کپي برداري از مطالب وبلاگ فقط با ذکر منبع مجاز ميباشد .