ریاضیدان ها

ریاضیدانها به آفریقا می روند ، هر موجودی که فیل نیست کنار می گذارند و سپس یکی از آنها را که باقی مانده است می گیرند .
البته ریاضیدانهای با تجربه ، ابتدا سعی می کنند تا ثابت کنند حداقل یک فیل در آفریقا وجود دارد . آنگاه به آنجا می روند .
استادان ریاضی ، با تجربه ، ابتدا ثابت می کنند حداقل یک فیل در آفریقا وجود دارد و سپس پیدا کردن و شکار آن را به عنوان تمرین برای دانشجو باقی می گذارند

مهندسان نرم افزار کامپیوتر

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

گام 1) برو به آفریقا
گام 2) از دماغه رود نیل ( جنوبی ترین نقطه آفریقا ) شروع کن
گام 3) به سمت شمال حرکت کن و هر منطقه را از غرب به شرق بپیما .
گام 4) در هر گذر ،
الف – هر حیوانی را که می بینی شکار کن .
ب – آن را با فیل مقایسه کن .
ج – اگر با هم برابر بودند کار تمام است و گرنه برو به گام 3 .
برنامه نویسان با تجربه ، ابتدا یک فیل را در قاهره (شمال آفریقا) قرار می دهند تا مطمئن شوند که الگوریتم فوق خاتمه می یابد .

 

دوستان عزیز ببینید چقدر برنامه نویسی آسونه؟

مثلث

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*2-1 do

if b<=x then

begin

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

for i:=1 to b do

write(i);

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

write(j);

Writeln;

End

else

begin

a:=a+2;

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

for i:=1 to b-a do

write(i);

for z:= 1 to (b*2-1)-(i*2) do

write(i);

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

write(j);

Writeln;

End;

readln

End.

 

string

uses crt;

var

a,b,c,d:integer;

w:string[10];

i:longint;

r: boolean;

  procedure m;

   begin

   r:= keypressed ;

   if r= true then halt;

   textcolor(random(14)+1);

   gotoxy(a,b);

   write(w);

   for i:= 1 to 10000000 do;

   clrscr;

   end;

   begin

   b:=1;

   write('enter a word:');

   readln (w);

   repeat

   for a:= 1 to 70 do

   m;

   for b:= 1 to 50 do

   m;

   for a:= 70 downto 1 do

   m;

   for b:= 50 downto 1 do

   m;

   until r = true

   end.

 

 

ساعت دیجیتال

uses crt;

var

h,m,c,e:integer;

z:boolean;

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;

z:=keypressed;

if z=true then halt;

clrscr;

end;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

فیبوناچی

Uses crt;

Var

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

Begin

Clrscr;

Write ('enetr a number');

Readln(a);

d:=0;

e:=1;

For b:= 1 to a do

begin

c:=d+e;

write ('  ',e);

d:=e;

e:=c;

end;

readln;

End.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

اعداد اول

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.

 

 

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

 

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

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

 

 

 

 

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

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

 

 

 

1-برنامه ای بنویسید که مساحت و محیط مستطیل را بدست بیاورد؟

Program test 1;

Uses crt;

Var

A,b:integer;

Masahat,mohit:integer;

Begin

Clrscr;

Writeln('enter two number:');

Readln(a,b);

Masahat:=2*(a+b);

Mohit:=a*b;

Writeln('masahat:',masahat);

Writeln('mohit:',mohit);

Readln;

End.

 

 

 

2-برنامه ای بنویسید که نام شما را در وسط صفحه نمایش چاپ نماید؟

Program test 2;

Uses crt;

Begin

Clrscr;

Textmode(co40);

Gotoxy(12,12);

Wrteln('reza');

Readln;

End.

 

 

3-برنامه بنویسید که یک عدد در محدوده (0…255)  را از ما بگیرد. اگر آن عدد از 100 بزرگتر بود پیغامی مبنی بر بزرگتر بودن عدد بدهد و در غیر اینصورت پیغام کوچکتری را به ما بدهد؟

Program test 3;

Uses crt;

Var

I:byte;

Begin

Clrscr;

Writeln('please enter a integer in range 0…255:');

Readln(i);

If i>100 then

Writeln('this number is greater than 100')

Else

Writeln('this number is smaller than 100');

Readln;

End.

 

 

 

 

 

4-برنامه ای بنویسید که یک عدد صحیح را از ما بگیرد و مجذور آن را حساب نماید؟

Program test 4;

Uses crt;

Var

X,y:integer;

Begin

Clrscr;

Writeln('enter a number:');

Readln(x);

Y:=sqr(x);

Writeln(y);

End.

 

 

 

5-برنامه ای بنویسید که نام شما را از ورودی بگیرد و با یک رنگ مناسب به همراه صفحه نمایش رنگی چاپ نماید؟

 

Program test 5;

Uses crt;

Var

N:string;

Begin

Clrscr;

Textbackground(8);

Textcolor(6);

Writeln('enter a name:');

Readln(n);

Writeln('name=',n);

Readln;

End.

 

 

6-برنامه ای بنویسید که 5  عدد ذیل را جمع کرده ومیانگین آنها را بدست آورد؟ (لازم به ذکر است که عدد 5 یک ثابت باشد.)

Program test 6;

B=25 C=57 D=39 E=20 F=15

Uses crt;

A=5;

Var

b,c,d,e,f,sum:integer;

Average:real;

Begin

Clrscr;

B:=25;c:=57;d:=39;e:=20;f:=15;

Writeln('number: 25');

Writeln('number: 57');

Writeln('number: 39');

Writeln('number: 20');

Writeln('number: 15');

Sum:=b+c+d+e+f;

Writeln('sum=',sum);

Average:=sum/5;

Writeln('average=',average);

End.

 

7-برنامه ای بنویسید که یک عدد را از کاربر بگیرد و اگر ان عدد مثبت بود پیغام مناسب را بدهد ودر غیر اینصورت پیغام منفی را نمایش دهد؟

Uses crt;

Var

X:real;

Begin

Clrscr;

Writeln('enter a real number:');

Readln(x);

If x>0 then

Writeln('number pastive')                    

Else

Writeln('number negative');

Readln;

End.

 

 

1-برنامه ای بنویسید که کلیدی را از ورودی دریافت کند و اگر اسکی بود در خروجی چاپ نماید و اعلام کند که کد اسکی است در غیر اینصورت کد توسعه یافته را چاپ کند و بگوید که کد توسعه یافته است؟ (سئوال امتحان).

Uses crt;

Var

C:char;

Begin

Clrscr;

Writeln('press any key');

C:=readkey;

If c=#0 then

Begin

C:=readkey;

Writeln('tose yafte',ord(c));

End

Else

Writeln('ascii',ord(c));

Readln

End.

 

2-برنامه ای بنویسید که با زدن کلیدهای( F1 … F10 )آنها را نمایش دهد؟

 

Uses crt;

Var

C:char;

Begin

Clrscr;

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.

 

 

 

 

 

 

 

 

 

 

3-برنامه ای بنویسید که طبق جدول زیر عمل کند؟

comment age You are baby 2< You are kid 2<=age<12 You are teanger 12<=age<18 You are young adalt 18<=age<24 You are adalt 24<=age<40 Middle aged 40<=age<55 You are big 55<=age<65 You are very big 65<

 

 

 

 

 

 

Uses crt;

Var

Age:2..65;

Begin

Clrscr;

Writeln('enter age:');

Readln(age);

If age<2 then writeln(comment: you are baby');

If (age<=2) and (age<12) then writeln('comment: you are kid');

If (age<=12) and (age<18) then writeln('comment: you are teanger');

If (age<=18) and (age<24) then writeln('comment: you are young adalt ');

If (age<=24) and (age<40) then writeln('comment: you are adalt');

If (age<=40) and (age<55) then writeln('comment: middle aged');

If (age<=55) and (age<65) then writeln('comment: you are big');

If age<65 then writeln(comment: you are  very big ');

End.

 

 

 

4-برنامه ای بنویسید که کل مخارج روزانه سه خانواده را از ورودی بگیرد و خرج ماهیانه و سا لیانه هر خانواده را مجزا حساب کند و از بین این سه خانواده پرخرجترین  و کم خرجترین خانواده را چاپ نماید؟

Uses crt;

Var

A,b,c:integer;

Begin

Clrscr;

Writeln('enter kharg 3 khanvade');

Readln(a); Readln(b); Readln(c);

Writeln('family one mahiane=',a*30,'saliane=',a*365);

Writeln;

Writeln('family two mahiane=',b*30,'saliane=',b*365);

Writeln;

Writeln('family three mahiane=',c*30,'saliane=',c*365);

Begin

If (a>b) and (a>c) then writeln('family one max') else

If (b>a) and (b>c) then writeln('family two max') else

If (c>a) and (c>b) then writeln('family three max') else

End;

Begin

If (a<b) and (a<c) then writeln('family one min') else

If (b<a) and (b<c) then writeln('family two min') else

If (c<a) and (c<b) then writeln('family three min') else

End;

Readln

End.