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

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

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

آرم وبلاگ

لينك دوستان

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

ساعت و تاريخ

منوي اصلي

نويسندگان

موضوعات

آرشيو ماهانه

جستجوگر

آمار وبلاگ

طراح قالب

طریقه ساخت gmail ( )

این بار میخوام در مورد ثبت نام در gmail یه چیز هایی بگم .اول جی میل رو معرفی میکنم :

جی میل هم یه سیستم میلینگ هست مثل یاهو و هات میل و... ولی با این تفاوت که gmail یه میل valid هست یعنی اینکه هر کجا از این میل استفاده کنی این میل رو ازت قبول می کنن , اما یاهو و هات میل اینجوری نیستند , یعنی مثلا اگر تو بخوای در یه جای معتبر ثبت نام کنی (مثلا هگه بخوای یه کارت اعتباری بین المللی مثل مستر کارد یا ویزا رو بگیری ) تو نیاز به یه میل معتبر داری و نمی تونی با میل های مجانی و non valid این کارت های اعتباری رو بگیری و حتما باید از یه میل معتبر ی مثل gmail استفاده کنی .

خصوصیت بعدی gmail این هست که از قوی ترین سیستم امنیتی جهان برخوردار هست و با داشتن قسمتی به نام Spam بتی در مقابل ویروس ها هم مقابله میکنه و نمیگذاره ویروس ها از طریق میل وارد کامپیوترت بشن.

و خصوصیت بعدیش کلاسی هست که داره . gmail یکی از با کلاس ترین میل های جهان هست و تعداد محدودی از افراد این میل رو دارن , چون برای عضویت در gmail حتما باید توسط کسی invite بشی یا اینکه invite رو بخری . در ایران هم افرادی که این میل رو داشته باشن کم هستند , پس هر وقت خواستی کلاس بگذاری از این میلت استفاده کن.

و جی میل توانایی فرستادن میل فارسی رو هم داره فقط یادت بهشه که به یه میلی فارسی بنویس که توانایی در یافت میل فارسی رو هم داشته باشه مثلا برای یه میل جی میل فارسی بنویس.

و در آخر هم یه خبر در مورد جی میل اون هم اینکه به زودی Gmail Messenger هم فعال میشه و میتونیم با gmail هم با هم چت کنیم.

خوب حالا بریم سراغ ثبت نام :

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

بعد این صفحه باز میشه

خوب توی این قسمت :

اول نام و نام خانوادگیت رو وارد میکنی

بعد هم ID دلخواهت رو مینویسی ( توی جی میل فقط میتونی از نقطه (.) استفاده کنی و از علامت هایی مثل _ , - نمی تونی استفاده کنی (یعنی میلی مثل میل یاهوت رو نمی تونی اینجا بگیری )

بعد هم روی لینک Check Availability کلیک کم تا ببینی Id یی که انتخاب کردی قبلا توسط کسی انخاب شده یا نه .

بعد هم که پسوردت رو دو بار وارد میکنی.

اینجاهم که یه سوال از سوال های امنیتی رو انتخاب کن و زیرش هم بهش جواب بده , یادت باشه که این سوال و جواب رو حفظ کنی چون اگر پسورد رو فراموش کنی با کمک این سوال و جواب میتونی پسوردت رو پیدا کنی.

گزینه بعدی هم یه میل دوم هست که به صورت اتوماتیک میل تو توش نوشته شده , پس این رو تغییر نده

و بعد روی لینک .......I have کلیک کن , تا به صفحه بعدی بری.

بعد این صفحه میاد :

اینجا هم که به طور خلاصه خود جی میل توضیحاتی در مورد Archive و Search mail داده , اینا رو بخوان اگه متوجه نشدی به من بگو برات توضیح بدم.

بعد هم روی I'm ready - show my account کلیک کن , تا وارد account تت بشی :

مبارک باشه , account تت فعال شد ثبت نام دیگه تموم شد.

نکته :

بازم میگم یادت نره هر وقت خواستی میلت رو ببندی از Sign out استفاده کن .

برای ورود به سایت جی میل این آدرس رو وارد کن و یادت باشه که www نداره

http://gmail.google.com

: بعد این صفحه باز میشه

یوزر و پسوردت رو وارد کن تا وارد account تت بشی :

این صفحه اصلی میل جی میل هست و صفحه inbox هم هست. توی این صفحه میل های دریافتیت رو می بینی .

در قسمت Compose mail میتونی برای افراد دیگه میل بفرستی .توی قسمت To میل فرد مورد نظرت رو بنویس ( مثلا میل من ) بعد توی قسمت Subject موضوع میلت رو بنویس , بعد هم متن میلت رو بنویس و send رو بزن .

add cc و add bcc و attachment هم رو که برات توی میلت گفتم اگه خوندنش برات سخته بگو فارسیش رو برات بگذارم روی سایت .

توی قسمت sent mail میتونی میل هایی که فرستادی رو ببینی .

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

Drafts : این قسمت یه حافظه هست که اگر خواستی یه میل رو آماده داشته باشی که هروقت خواستی بفرستی میتونی توی این قسمت بگذاری , برای گذاشتن یه میل توی این قسمت توی Compose mail به جای کلیک کردن روی Send روی save Draft کلیک کن.

all mail : توی این قسمت تمام میل هایی که فرستادی و در یافت کردی قرار داره.

Spam : توی این قسمت اگه به همراه میل تو ویروس یا اسپم باشه او نا رو شناسایی میکنه و انجا گیرشون میندازه و بعد می تونی اونا رو delete کنی.

trash :توی این قسمت هم میلهایی که delete میکنی قرار داره و میتونی اونا رو به طور کامل delete کنی و یا به یه folder دیگه منتقلشون کنی.

توی قسمت Edit labels هم میتونی تنظیماتی مثل نام و نام خانوادگیت رو تغییر بدی .

برای خارج شدن هم مثل همیشه Sign out رو بزن .

نوشته شده توسط محمد امین سعیدی در چهارشنبه بیست و هفتم اردیبهشت 1385

لينك مطلب

کار با برنامه هک net dvile ( )

يکي از برنامه هاي هک برنامه اي به نام net dvile مي باشد که يک remoteadministration trojanميباشد .اين تروجان بسيار جديد بوده و در صورت نفوذ به يک سيستم کنترل کامل سيستم را در اختيار شما قرار ميدهد.شما کافي است پس از ويرايش فايل سرور آن را براي قرباني ارسال کنيد و با اجراي فايل سرور از سوي قرباني اين فايل رو سيستم لود ميشود و وارد رجيستري ميشود بعد از آن فايل سرور يک پيام حاوي آي پي و پورت سيستم قرباني براي شما ارسال ميکند که شما باداشتن اين دو ميتوانيد در صورت اونلاين بودن قرباني با فايل سرور ارتباط برقرار کنيد و سيستم قرباني را هک کنيد.

براي ويرايش فايل سرور شما بايد به پوشه مربوطه رفته فايل edit server را اجرا کرده پس از انتخاب مسير فايل سرور به ويرايش آن بپردازيد

در پنجره general در قسمت اول نام فايل پس از دانلود شدن را تايپ کنيد در سه قسمت بعد پورت هاي مورد نظر را وارد کنيد و در قسمت آخر در صورت تمايل يک رمز جهت اتصال به سرور را وارد کنيد .

start up بخشي است که نحوه ستارت آپ شدن سرور درحالت ستارت ويندوز يا در صورت کانکت شدن و در زير نام سرور هنگام ورود به رجستري کامپيوتر قرباني را انتخاب ميکنيم

mail notify از سه بخش که به ترتيب ايميل شما ، نام ايميل سرور و نام شخص قرباني که جهت ارسال آپي و پورت به ايميل شما بکار ميرود.

fake error اين قسمت براي تنظيم پيغام خطايي هنگام اجراي فايل سرور ميباشد که ميتوانيد عنوان و متن اين پيغام را ويرايش کنيد.

miscellaneous گزينه اول اين پنجره در صورت تيک دار شدن باعث پاک شدن آنتي ويروسها و فايروال ميشود . گرينه دوم جهت باز شدن پورت فقط در حالت اونلاين است گزينه سوم هم ذخيره کليد هاي زده شده در حالت افلاين با تيک دار شدن گزينه چهارم ميتوانيد براي ويرايش سرور يک رمز بگذاريد ولي قسمت آخر اگر پسوند فايلي را وارد کنيد اين نوع فايل روي سيستم قرباني بصورت يک فايل اجرايي شناخته ميشود حتي اگر يک فايل گرافيکي باشد.

icon اين قسمت جهت تغيير آيکون فايل سرور براي گمراه کردن شخص قرباني است.

دو پنجره help و about راهنما و معرف اين نرم افزار ميباشند.

پس ويرايش سرور وذخيره آن بايد فايل براي قرباني ارسال کنيم که راههاي مختلفي براي اين کار وجود دارد مانند ديسکت،ارسال فايل از طزيق مسنجر و از طريق ايميل کردن آن و منتظر ارسال آي پي توسط سرور ميشويم وقتي پورت و آي پي را بدست آورديم فايل net dvile را اجرا ميکنيم و آنها را در قسمتهاي مربوطه وارد ميکنيم و کانکت ميکنيم

نوشته شده توسط محمد امین سعیدی در پنجشنبه چهاردهم اردیبهشت 1385

لينك مطلب

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

لينك مطلب

آموزش برنامه نویسی به روش........ ( )

ریاضیدان ها

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

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

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

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

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

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

لينك مطلب

(تمرینات هفته قبل درس پاسکال) ( )

مثلث

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

for b:= 1 to 50 do

for a:= 70 downto 1 do

for b:= 50 downto 1 do

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.

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

لينك مطلب

حل تمرینات با استفاده از حلقه های FOR متداخل ( )

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

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:

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:

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

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

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

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

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

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

لينك مطلب

عشق دو ماهی ( )

توابع پاسکال ( )

هدف	نام تابع
بازگرداندن قدر مطلق	Abs
بازگرداندن آرک تانزانت یک عدد از نوع real	arctan
هدف بازگرداندن کاراکتر معادل با کد اسکی	chr
کسینوس زاویه ورودی ( بر حسب رادیان) را محاسبه می کند	cos
محاسبه سینوس یک زاویه	sin
عدد نپر را به توان یک عدد دلخواه می رساند.	exp
بازگرداندن قسمت اعشاری یک عدد	frace
بازگرداندن قسمت صحیح یک عدد	int
بازگرداندن طول یک رشته	length
کد اسکی یک پارامتر را باز می گرداند	ord
بازگرداندن عدد پی	pi
بازگرداندن مقدار اردینال یک عدد	pred
یک عدد تصادفی بین 0 تا 1 راتولید می کند	random
گرد یا روند کردن عدد	round
محاسبه مجذور یک عدد	sqr
محاسبه جذر یک عدد	sqrt
بازگرداندن مقدار اردینال یک عدد بعد از مقدار اردینال دیگر	succ
تبدیل یک کاراکتر به حروف بزرگ	upcase
پیوند دادن یک یا چند رشته با یکدیگر	concat
بررسی فرد بودن یا نبودن پارامتر ورودی	odd
بازگرداندن لگاریتم طبیعی یک عدد	ln

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

لينك مطلب

تمرینات پاسکال ( )

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);