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

[Ali-718]

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

گفته : برنامه ای بنویسید که سه عدد را از ورودی بخواند و در صورتی که این سه عدد تشکیل یک مثلث بدهند ، پیغام "this is triangle" و در غیر این صورت پیغام "this is not triangle" را نمایش دهد !

به زبان vb

خودم vb خیلی کم کار کردم الان هم رو سیستمم نصب نیست که کد بزنم ارور داشت درست کنم!

دوستان کسی میتونه اوکی کنه اینو؟

[tmfar]

یعنی چطوری تشکیل یه مثلث بدن ؟

[Ali-718]

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

if((a + b < c) OR (a + c < b) OR (b + c < a ))
//مثلث نيست
else
//مثلث

حالا فقط باید به vb نوشته بشه

[Rezash]

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


حالا فقط باید به vb نوشته بشه

من خيلي وقته vb كار نكردم براي همين نتوسنتم كدش رو هم به رذ بنويسم.
از لحاظ رياضي سه عدد در صورتي تشكلي مثلث ميدند كه مجموع هر دو عدد دلخواه از اون سه عدد از عدد سوم بزگتر باشه (كوچكتر نباشه)
كليت برنامه به 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 بنويسند تمومه

[trustnet]

سلام

طبق فرمولی که داده بودید ساختم !
فقط یک باتن بندازید رو فرم و کد زیر رو توش قرار بدید

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