1-برنامه ای بنویسد که خروجی آن به شکل زیر باشد؟

 

uses crt;

var

x,i,j:integer;

begin

Readln(x);

for i:=1 to x do

write(i);

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

write(j);

Writeln;

End;

readln

End.

 

 

 

Input: 5

 

Ouput:

123454321

 

 

 

 

 

 

 

 

 

 

 

 

 

2-برنامه ای بنویسد که خروجی آن به شکل زیر باشد؟

 

 

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.

 

 

Input: 5

 

Ouput:       

12345

12345

12345

12345

12345

 

 

 

 

 

 

 

 

 

 

 

 

 

 

3-برنامه ای بنویسد که خروجی آن به شکل زیر باشد؟

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.

 

 

 

Input: 5     

Ouput:

1

12

123

1234

12345

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

4-برنامه ای بنویسد که خروجی آن به شکل زیر باشد؟

 

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.

 

 

 

Input: 5

 

Ouput:

1

22

333

4444

55555

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

5-برنامه ای بنویسد که خروجی آن به شکل زیر باشد؟

 

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.

 

 

 

 

Input: 5

 

Ouput:

11111

22222

33333

44444

55555

 

 

 

 

 

 

 

 

 

 

 

 

 

6-برنامه ای بنویسد که خروجی آن به شکل زیر باشد؟

 

uses crt;

var

x,i,k,j:integer;

begin

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.

 

 

 

Input: 5

 

Ouput:

12345

23451

34512

45123

51234

 

حل تمرینات توسط: آقای محمد امین سعیدی

دانشجوی رشته کامپیوتر

 

 

 

 

از تمامی دانشجویان عزیزی که از این وبلاگ استفاده می کنند خواهشمندیم که نظرات و پیشنهادات خود در مورد این وبلاگ بدهند. تا بتوانیم ضعفهای این وبلاگ را برطرف کنیم.

با تشکر:جمیل زاده