نمایش نسخه قابل چاپ
سلام
یکی از اشنا ها از ما یک سوال فنی پرسیده :دی
خواسته جواب این سوال رو براش بدم
به زبان vbنقل قول:
گفته : برنامه ای بنویسید که سه عدد را از ورودی بخواند و در صورتی که این سه عدد تشکیل یک مثلث بدهند ، پیغام "this is triangle" و در غیر این صورت پیغام "this is not triangle" را نمایش دهد !
خودم vb خیلی کم کار کردم الان هم رو سیستمم نصب نیست که کد بزنم ارور داشت درست کنم!
دوستان کسی میتونه اوکی کنه اینو؟
یعنی چطوری تشکیل یه مثلث بدن ؟
یکی از دوستان کلیتش رو تعریف کرد که میشه این :
حالا فقط باید به vb نوشته بشهنقل قول:
نقل قول:
if((a + b < c) OR (a + c < b) OR (b + c < a ))
//مثلث نيست
else
//مثلث
من خيلي وقته vb كار نكردم براي همين نتوسنتم كدش رو هم به رذ بنويسم.نقل قول:
نوشته اصلی توسط ™StarHost
از لحاظ رياضي سه عدد در صورتي تشكلي مثلث ميدند كه مجموع هر دو عدد دلخواه از اون سه عدد از عدد سوم بزگتر باشه (كوچكتر نباشه)
كليت برنامه به vb به اينصورت ميشه
سه متغير a b c رو با dim تعريف كنيد.
مقدار سه متغير رو از يك text area بگيريد
با if Then و دستورات شرطي پيغام مناسب رو با دستوري مثل MsgBox چاپ كنيد
If a + b < c OR b + c < a OR a + c < b Then
يا عكس به جاي OR بايد AND باشه و به جاي كوچكتر علامت بزرگتر
حالا دوستاني كه vb رو در حال حاضر بلد هستند اين دو سه خط رو به vb بنويسند تمومه
سلام
طبق فرمولی که داده بودید ساختم !
فقط یک باتن بندازید رو فرم و کد زیر رو توش قرار بدید
نقل قول:
Dim a As Integer, b As Integer, c As Integer
Form1.Cls
a = InputBox("1")
b = InputBox("2")
c = InputBox("3")
If (a + b < c) Or (a + c < b) Or (b + c < a) Then
Print "moosalas nist"
Else
Print "Moosalas Ast"
End If