کمک فوری؟ (پاسکال)

[mpourebadi]

سلام به تمامی اساتید عزیز.
یه سوال تو پاسکال داشتم که اگه فوری جواب بدید خیلی ممنون میشم.
ابتدا کلیدهای تک کدی،دو کدی و صفر کدی را روی کیبورد مشخص کرده، سپس برنامه ای بنویسید که در صورت فشردن هر کدام از کلیدهای کیبورد در خروجی مشخص کند که این کلید تک کدی یا دوکدی یا صفر کدی است.
خواهشا هر جور هست کار ما رو راه بندازید.
چاکر همتون مهدی.

 

[MnavidM]

سلام.

ببین ، به صورت کلی میگم :

اول میای یه مقدار از ورودی می خونی ، بعد بررسی می کنی اگر ReadLn اول صفر برگردوند یعنی رودیت 2 قسمتی بوده .

موفق باشی.
نوید.

 

[mpourebadi]

دستت درد نکمه آقا نوید.
ولی میشه زیر دیپلمه ای توضیح بدی.
در ضمن استادمون گفت که این برنامه نهایتا 10 خط بیشتر نیست.
اگه برنامه رم بنویسی اینشائالله جبران میکنم.
کوچیکت،مهدی.

 

[mpourebadi]

بابا ای ول.
تو انجمنای دیگر یکم بیشتر تحویل میگرفتن!!!!

 

[1Program]

uses crt;
var
key : char;
begin
{27 is ESC Code}
Key:=10;
while(key<>chr(27)) do
begin
key:=readkey;
if key=0 then
begin
write("0+")
key:=readkey;
end;
write(key:5)
end;

end.


کلیدهایی مثل Arrow Key , PageDown ,... دوکدی هستند ولی کلیدهای A..Z و... کلیدهای تک کدی هستند .

 

[mpourebadi]

سلام.

ببین ، به صورت کلی میگم :

اول میای یه مقدار از ورودی می خونی ، بعد بررسی می کنی اگر ReadLn اول صفر برگردوند یعنی رودیت 2 قسمتی بوده .

موفق باشی.
نوید.

نوید جان برای صفر کدی ها و یک کدی ها چی جوریاست.((مخصوصا صفر کدی ها.))

 

[mpourebadi]

program1 جان فکر کنم برنامه یه ذره مورد داره، چون توی دستور while خطا کامپایلری میده.
اگه واقعا زحمتتون نمیشه یه وقت کوچیک برا این شاگردت بذار و برنامه رو بنویس و ضمیمه کن.
در ضمن من پاسکال تحت ویندوز کار میکنم و پاسکال تحت داس ندارم.( البته دارم ولی درست و حسابی کار نمیکنه.)
ولی همین که جواب منو دادین برام کلی ارزش داره.
کوچیکت مهدی.

 

[MnavidM]

سلام.

والا الآن درست نحوه نوشتاری اون رو درست یادم نیست .

اما همین کدی که 1program نوشته ، همون کار رو میکنه ،

ببین ، اول میای از ورودی می گیریش و بعد از = 0 بود یعنی کدش 2 کاراکتری بوده .

موفق باشی.
نوید.

 

[mpourebadi]

سلام.

والا الآن درست نحوه نوشتاری اون رو درست یادم نیست .

اما همین کدی که 1program نوشته ، همون کار رو میکنه ،

ببین ، اول میای از ورودی می گیریش و بعد از = 0 بود یعنی کدش 2 کاراکتری بوده .

موفق باشی.
نوید.

kنوید جان، بهنظر شما پرا برنامه استاد program1 خطای کامپیلری میده.
میتونین اصلاح کنید.
به خدا اصلا وقت ندارم.
کوچیکت مهدی.

 

[MnavidM]

سلام.

مهدی جان ، برنامه خطا نداره .

دقیقا بگو چه خطایی میده ؟

موفق باشی.
نوید.

 

[1Program]

سلام :
اگر منظورت از خطای کامپایلری : Division By Zero است .
پاسکال شما مورد دارد . شما می بایست آنرا برای Windows رجیستر کنید .

برای پاسکال تحت ویندوز هم از :
Uses Wincrt ,.... می توانی استفاده کنی .
موفق باشید .

 

[mpourebadi]

سلام program1 جان.
نه استاد، پاسکالم رجیستر شده و فکر میکنم کاملا درست باشه.( چون خیلی باهاش برنامه نوشتم و گیرای این جوری نداده).بازم اگه براتون زحمت نیست، یه نگاه دیگه به برنامه بندازید. قربونت برم مهدی.
نوید جان با عرض خسته نباشی ،
من عکسهای خطای کامپایلری رو براتون هم تو تحت داس و هم تو تحت ویندوز گذاشتم.
جفتشون هم خطای type mismatch رو میدن.
بابا خودتون استادید دیگه.من هر کار کردم حل نشد که نشد.
فقط تا 1شنبه مهلت دارم برنامه رو به استادم بدم وگرنه 4 نمره میان ترمم پریده.
کوچیک همتون مهدی.

 

[1Program]

سلام :
اگر منظور شما از خطای کامپایلری Divion By Zero است پاسکال شما باید رجیستر شود .

برای پاسکال تحت ویندوز از :
Uses WinCrt , ...... استفاده کن .
موفق باشید .