سوالاتی درمورد دستورات کنترلی وشرطی
سوالاتی درمورد دستورات کنترلی وشرطی
1) اعداد صحیح و مثبت n ,m را خوانده m را به توان n بر سانید ؟
2) بر نامه ای بنویسید که یک عدد صحیح و مثبت دریافت کند و اعداد اول 1 تا n را نمایش دهد ؟
3) برنامه ای بنویسید سه عدد از ورودی دریافت کند و maxآنها را در خروجی چاپ کند؟(بدون متغیر کمکی )
4) برنامه اي بنویسید كه دو عدد را از ورودي دريافت و چنانچه عدد اول در بازه 0 تا 5 بود توان دوم عدد دوم را چاپ كند چنانچه 68 بود حاصلضرب دو عدد را چاپ كندو در غير اینصورت مقادیر مجاز را چاپ كند.(با دستورif)
5) عدد صحیح و مثبت n را دریافت و فاکتور یل آن را در خروجی چاپ کند ؟
6) مجموع اعداد زوج سه رقمی را محاسبه و چاپ نماید ؟
7) برنامه ای بنویسید که توان دوم اعداد 100 تا 200 را چاپ كند؟
8) برنامه اي بنويسيد كه اعداد 100..1 را چاپ كند؟
پاسخ ها
۱)
Program t1;
Var
I, m, n: integer;
S: char;
P: Longint;
Begin
Writeln ('please enter m, n :);
Read (m, n);
Power: =1;
For a: =1 to n do
Power: = power*m;
Write ('power=', power);
Readln(s);
End.
به توان رساندن یعنی مقدار پایه را به تعداد توانش , در خود ضرب نماییم یعنی m را n بار در خودش ضرب کنیم پس یک حلقه درست می نماییم که از یک تا n ادامه داشته باشد و در داخل حلقه m را د ر خودش ضرب می کنیم بعد از اتمام حلقه m , n مرتبه در خودش ضرب شده است
1)
Program t2;
Lable10;
Var
n,m,a: longint;
s: char;
Begin
Write('Please Enter n: ');
Readln(n);
For m:=1 to n do
Begin
a:=2;
While a<=m/2 do
Begin
If ( m mod a=0 ) then goto 10;
a:=a+1;
end;
Write(m,' ');
10: end;
Read(s);
End.
2)
Program EXAMPL3;
Var
a, b , c: integer;
Begin
Readln (a, b, c);
If a>b then
If a>c then
Write (a)
Else
Write(c)
Else
If b>c then
Write (b)
Else
Write(c);
End.
3)
Program EXAMPL4;
Var
a, b: integer;
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.
5)
Program EXAMPL5;
Var
A , n: integer;
Fact: Longint;
BEGIN
Repeat
WRITELN ('ENTER n :');
READLN (n);
Until n>0;
Fact: =1;
For a: =1 to n do
Fact: = fact*a;
WRITELN ('fact=', fact);
Readln;
END .
6)
Program EXAMPL6;
Var
n, B: integer;
Sum: Longint;
Begin
Sum: =0;
N:=100;
While n<= 998 do
Begin
Sum: = sum+ n;
n:=n+2;
end;
write('sum=' ,sum);
Readln;
End.
7)
Program EXAMPL7;
Var
i: integer;
Begin
For i: =100 to 200 do
Begin
Writeln (i*i);
end;
End.
8)
Program EXAMPL8;
Var
i: integer;
Begin
I:=1;
While i<=100 do
Begin
Write(i);
I:=i+1;
End;
این وبلاگ جهت آموزش سریع دانشجویان ودانش آموزان عزیز به همت یک مهندس نرم افزار کامپیوتر ایجاد گردیده لطفا از نظرات سازنده دریغ نفرمایید.