1- برنامهای بنویسید که اعداد 1 تا 15 را در یک خط به صورت زیر روی صفحهٔ نمایش چاپ کند.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
Var
A:integer;
begin
for A:=1 to 15 do
Write(A, ' ');
readln;
end.
برچسبها: برنامهای بنویسید که اعداد, 1 تا 15 را در یک خط اعداد به صورت, زیر روی صفحهٔ نمایش چاپ کند
2- برنامهای بنویسید که خروجی آن به صورت زیر باشد.
*
* *
* * *
* * * *
* * * * *
program stars;
Uses
CRT;
Var
A,B:integer;
begin
clrscr;
for A:=1 to 5 do
begin
for B:=1 to A do
Write('* ');
Writeln;
Writeln;
end;
Readln;
end.
برنامهای بنویسید که, خروجی آن به صورت زیر باشد،*،*
3- برنامهای بنویسید که خروجی آن به صورت زیر باشد:
1 2 3 4 5
1 2 3 4
1 2 3
1 2
1
program nm2;
Uses
CRT;
Var
A,B:integer;
begin
for A:=5 downto 1 do
begin
for B:=1 to A do
Write(B,' ');
Writeln;
Writeln;
end;
Readln;
end.
برنامهای بنویسید که, خروجی آن به صورت زیر باشد12345،1234،123،12،1
4-برنامهای بنویسد که جدول ضرب اعداد 1 تا 5 را به صورت منظم روی صفحهٔ نمایش چاپ کند.
1 2 3 4 5
2 4 6 8 10
3 6 9 12 15
4 8 12 16 20
5 10 15 20 25
Uses
CRT;
Var
A,B:integer;
begin
for A:=1 to 5 do
begin
for B:=1 to 5 do
Write(A*B:4);
Writeln;
Writeln;
end;
Readln;
end.
5-برنامهای بنویسید که یک کارکتر از ورودی (صفحه کلید) دریافت نموده و سپس بزرگ، کوچک و یا عددی بودن آن را با نمایش پیغام مناسب روی صفحهٔ نمایش چاپ کند.
Uses
CRT;
Var
A:char;
begin
clrscr;
Write('Enter a character: ');
Readln(A);
Begin
case A of
#65..#90:Writeln(A, ', is a Big character');
#97..#122:Writeln(A, ', is a Small character');
#48..#57:Writeln(A, ', is an number');
end;
Readln;
end;
end.
6- برنامهای بنویسید که یک عدد صحیح را از (صفحه کلید) دریافت نموده و سپس معکوس آن را چاپ کند. برای مثال اگر عدد ورودی ۱۲۳ بود، برنامه باید عدد ۳۲۱ را بر روی صفحهٔ نمایش چاپ کند.(توضیح: برای نوشتن این برنامه ابتدا نیاز داریم ارقام عدد ورودی را از هم جدا کنیم این کار رو میتونیم با استفاده از عملگر mod انجام بدیم هر بار که حلقه عمل تقسیم را انجام میده با قیمانده به دست آمده ضرب در ۱۰، به اضافه عدد بعدی به دست آمده توسط حلقه میشه تا وقتی که [10 div ورودی] با صفر برابر بشه.)
Uses
CRT;
Var
A,B,C:longint; {Numbers between -2147483647..+2147483647}
begin
C:=0;
Write('Enter an number: ');
Read(A);
Repeat
begin
B:=A mod 10;
A:=A div 10;
C:=(C*10)+b;
end;
Until A=0;
Writeln(C);
Readln;
Readln;
end.
7- برنامهای بنویسید که ۱۰ عدد ابتدای سری فیبوناچی (Fibonacci) را روی صفحهٔ نمایش چاپ کند.
تذکر: اولین و دومین عدد سری فیبوناچی، عدد ۱ است. سومین عدد سری فیبوناچی از مجموع دو عدد قبلی به وجود میآید و به همین تربیب تا الی آخر. لذا سری فیبوناچی یه صورت زیر است:
0 1 1 2 3 5 8 13 21....
Uses
crt;
Var
A,B:integer;
begin
clrscr;
A:=0;
B:=1;
Write(A:3,B:3);
While A<22 do
begin
B:=B+A;
A:=B-A;
Write(B:3);
end;
Readln;
Readln;
end.
8- برنامهای بنویسید که ۱۰۰ مرتبه رشتهٔ PASCAL را به صورت پی در پی روی صفحهٔ نمایش چاپ کند.
Uses
crt;
Var
A:=integer;
begin
clrscr;
for A:=1 to 100 do
begin
Writeln('pascal');
end;
Readln;
end.
9- برنامهای بنویسید که یک اسکناس ۱۰۰۰ تومانی را به حالتهای مختلف (یعنی با اسکناسهای ۵۰۰، ۲۰۰، ۱۰۰، ۵۰، ۲۰، ۱۰ تومانی) خُرد نماید.
Uses
CRT;
Var
A,B,C,D,E,F,G,N:integer;
begin
clrscr;
Textcolor(15);
G:=0;
N:=1000;
Textcolor(11);
for A:=1 to 2 do {500 Tomani}
for B:=1 to 5 do {200 Tomani}
for C:=1 to 10 do {100 Tomani}
for D:=1 to 20 do {50 Tomani}
for E:=1 to 50 do {20 Tomani}
for F:=1 to 100 do {10 Tomani}
if (A*500+B*200+C*100+D*50+E*20+F*10=N) then
begin
textcolor(13);
G:=(G+1);
writeln('MODE ',G);
Textcolor(11);
Writeln;
Writeln(N,' Toman= ',A,' 500T, ',B,' 200T, ',C,' 100T, ',D,' 50T,
',E,'20T And ',F,' 10T');
end;
Readln;
end.
10- برنامهای بنویسید که یک رشته را از ورودی (صفحه کلید) دریافت کره و سپس معکوس آن را روی صفحهٔ نمایش چاپ کند. برای مثال اگر ورودی رشتهٔ PASCAL بود برنامه باید رشتهٔ LACSAP را به عنوان خروجی روی صفحهٔ نمایش چاپ کند.
program WriteOneProgramTahtGiveAStringAndReverseIt;
Uses
crt;
Var
A,D:integer;
B,C:String;
begin
Clrscr;
Textcolor(15);
Read(B);
C:=B;
Textcolor(11);
A:=0;
repeat
A:=A+1;
B:=(B[A]);
Until B=#0;
A:=A-1;
for D:= A downto 1 do
begin
write(C[D]);
end;
Readln;
Readln;
end.
11- برنامهای بنویسید که اعداد ۱ تا ۱۰۰ را در خطوط متوالی رو کاغذ چاپ نماید.
1
2
.
.
99
100
Uses
CRT,printer;
Var
A:integer;
begin
for A:=1 to 100 do
Writeln(Lst,A);
Readln;
end.
12- برنامهای بنویسید که ۱۰ سطر از مثلث خیام-پاسکال را روی صفحه نمایش چاپ کند.
توضیح در مورد مثلث پاسکال برگرفته از دانشنامهٔ آزاد ویکیپدیا: مثلث خیام را در برخی منابع به ندرت «مثلث خیام-پاسکال-نیوتن» نیز
میگویند. این مثلث در زبانهای گوناگون نامهای دیگری نیز دارد در زبان
انگلیسی «مثلث پاسکال»، ایتالیایی «مثلث تارتالیا» و در زبان چینی «مثلث
یانگ هویی» نام گرفتهاست. در آثار متون سانسکریتِ پینگالا ریاضیدان هندی نشانههایی از استفاده از این بسط دیده میشود. در همان دوران عمر خیام ریاضیدان ایرانی ادعای کشف روشی جبری برای به دست آوردن ضرایب بسط دوجملهای میکند. کتاب «مشکلات الحساب»، کتابی که اثباتهای این ادعا در آن آمده هنوز کشف نشده ولی در آثار طوسی تأثیر گرفته از او ضرایب را تا توان ۱۲ میتوان دید[۲]. بعد از او در قرن ۱۲ میلادی در آثار یانگ هویی ریاضیدان چینی، شکل مثلث به چشم میخورد. در قرن ۱۶ میلادی ریاضیدان ایتالیایی تارتالیا هم از خود این مثلث را به جا گذاشته و پس از یک قرن پاسکال ریاضیدان فرانسوی هم دوره با نیوتون روی این بسط و مثلث حسابی آن کار کرد.
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
1 7 21 35 35 21 7 1
1 8 28 56 70 56 28 8 1
1 9 36 84 126 126 84 36 9 1
1 10 45 120 210 252 210 120 45 10 1
با سلام