تبلیغات
نیمکت اول کلاس - نمایش ریشه های معادله درجه 2
 
نیمکت اول کلاس
ز گهواره تا گور دانش بجو
 
 
سه شنبه 15 اسفند 1391 :: نویسنده : سپیده اذین
Private Sub Form_Click

Dim a As Integer    
Dim b As Integer    
Dim c As Integer
    
 
  (" a = InputBox("A  
  (" b = InputBox("b  
(" c = InputBox("c  
      
  delta = b ^ 2 - 4 * a * c            

 If delta >= 0 Then    
   (X1 = -b + Sqr(delta) / (2 * a
 (X2 = -b - Sqr(delta) / (2 * a
      
     Print X1; X2        
        Else
           " Print "not boot       
End If

End Sub






نوع مطلب :
برچسب ها :
لینک های مرتبط :


یکشنبه 26 شهریور 1396 11:38 ب.ظ
I'm really enjoying the design and layout of your blog.
It's a very easy on the eyes which makes it much more enjoyable for me to come
here and visit more often. Did you hire out a designer to
create your theme? Superb work!
دوشنبه 16 مرداد 1396 11:26 ق.ظ
I do not even know how I ended up here, but I thought this post was good.
I don't know who you are but definitely you're going to
a famous blogger if you aren't already ;) Cheers!
یکشنبه 15 مرداد 1396 02:45 ب.ظ
I just couldn't depart your site before suggesting that I really enjoyed the standard info an individual supply to your guests?

Is gonna be again incessantly to check out new posts
جمعه 13 مرداد 1396 05:38 ب.ظ
Good day! I know this is somewhat off topic but I was wondering which blog platform are you using for this website?
I'm getting tired of Wordpress because I've had problems with hackers and I'm looking at
options for another platform. I would be fantastic if you could point me
in the direction of a good platform.
یکشنبه 8 مرداد 1396 02:07 ق.ظ
Thank you for some other great article. Where
else could anyone get that type of info in such a perfect means of writing?
I have a presentation next week, and I'm
at the search for such info.
جمعه 6 مرداد 1396 10:39 ب.ظ
Hello! I've been reading your web site for a while now and finally got
the bravery to go ahead and give you a shout out from
Austin Tx! Just wanted to say keep up the excellent job!
شنبه 19 فروردین 1396 03:31 ب.ظ
I was able to find good info from your articles.
یکشنبه 13 فروردین 1396 10:00 ق.ظ
Aw, this was an incredibly nice post. Finding the
time and actual effort to create a superb article… but what can I say…
I hesitate a whole lot and don't seem to get anything
done.
جمعه 18 اسفند 1391 10:33 ق.ظ
سلام
لطفا سوالات و مطالب فرستاده شده توسط دیگر دوستان را در وب بذارید
متشکرم
پنجشنبه 17 اسفند 1391 07:33 ب.ظ
سوالات فصل پنجم برنامه ریزی
-حذف قسمت اعشار کار تابع ---------- است و حذف فضاهای خالی یک رشته کار تابع -------- است .
1)Trim,Int × 2)Trim , Fix 3)Space ,Int 4)Space,Fix
2-از کدام تابع برای انتخاب یک زیر رشته از یک رشته استفاده میشود؟
1)strcomp 2)Len 3)instrrev × 4)Mid
3-کدام تابع رشته را معکوس میکند؟
×1)strreverse 2)instrrev 3)str 4)Cstr
4-کدام تابع با استفاده از الگو ها دو رشته را با هم مقایسه میکند؟
1)string 2)StrComp × 3)like 4)Len
5-کدام تابع برای جستجو در یک رشته مفید است ؟
1)instrrev × 2) Instr 3)Replace 4)strreverse
جاهای خالی
1-عمل مقایسه ----------- حساس به حروف بزرگ و کوچک است .(VbBinarycompare)
2-کدام نویسه در تابع like میتواند بجای تمام کاراکتر ها بنشیند.(*)
3-تابع -------- میتواند جستجو را از انتها یا هر مکانی از یک رشته شروع کند.(InStrRev)
4-تابع Oct مقدار آرگومان خود را به مبنای -------- تبدیل میکند.(8)
5-تابع ----------- کد اسکی اولین نویسه ی یک عبارت رشته ای را برمیگرداند.(ASC)
نکات
1-به طور پیش فرض نوع مقایسه رشته Binary انتخاب میشود.
2-اگر هر یک از رشته ها در تابع Strcomp null باشد خروجی تابع نیز null خواهد شد.
3-رشته ای را که باید جستجو شود رشته ی مبنا یا اصلی می نامند.
4-تابع Replace دارای سه آرگومان اولیه ی اختیاری است .
5-تابع Cstrآرگومان خود را به یک رشته تبدیل میکند
پنجشنبه 17 اسفند 1391 07:32 ب.ظ
سوالات برنامه ریزی فصل چهارم
1-کدام گزینه در مورد ساختار تکرارNext.......FORصحیح است ؟
1)شمارنده ی حلقه باید عدد صحیح باشد.
×2)شمارنده ی حلقه میتواند عدد صحیح یا اعشاری باشد.
3)در صورتی که گام حرکت برابر صفر باشد نیازی به نوشتن آن نیست.
4)اگر گام حرکت منفی باشد مقدار نهایی شمارنده بزرگتر از مقدار اولیه آن است .
2-دستورات کدام حلقه حئاقل یک بار اجرا خواهد شد؟
1)For.......Next 2)While......Wend ×3)Do......loop while 4)Do until..... loop
3-شرط خروج از حلقه های شرطیuntil,while,for کدام است ؟
1)False,false,false 2)True,true,false
3×)True , False , False 4)True , true , true
4-کدام تابع علامت یک عدد را برمیگرداند؟
1)Log 2)Rnd 3) sqr × 4)sgn
5-معادل تابع fix(x) کدام مورد است؟
1)Abs(int(x)) × 2)sgn(x)*int(abs(x))
3)-int(x) 4)Abs(x)*int(ln(x))
نکات
1-جهت خروج از for از دستورExit for و خروج ازDo از دستور Exit Do استغاده میشود.
2-مقدار شمارنده ی حلقه.در بدنه ی حلقه معمولأ از سوی برنامه نویس تغییر نمیکند ولی برنامه نویس میتواند آن را تغییر دهد.
3-هنگامی حلقه ی تکرار For ...... Next را به کار می بریم که تعداد دفعات تکرار مشخص باشد.
4-اگر قسمت Step حذف شود.حلقه ی forمقدار 1 را برای متغیر فرض خواهد شد.
5-حلقه های تکرار به دو گروه عمده حلقه های تکرارمعین و حلقه های تکرار نامعین تقسیم کرد.
جاهای خالی
1-در تمامی زبان های برنامه نویسی ساختاری که سبب تکرار دستورها شوند ------------ نامیده میشود.(حلقه های تکرار)
2-در حلقه های ---------- تعداد دفعات تکرار مشخص است .(تکرارمعین)
3- دستور ----------- سبب خروج از حلقه ی تکرار میشود.(Exit For)
4-اگرشرط حلقه در ابتدای آن بررسی شود ممکن است که ------------ اجرا نشود.(حلقه هرگز)
5-حلقه هایی که------------ دارند تا زمانی که شرط درست است اجرا میشود.(While)
چهارشنبه 16 اسفند 1391 08:00 ب.ظ
سوال نمایش ریشه های معادله درجه 2
 
لبخندناراحتچشمک
نیشخندبغلسوال
قلبخجالتزبان
ماچتعجبعصبانی
عینکشیطانگریه
خندهقهقههخداحافظ
سبزقهرهورا
دستگلتفکر


درباره وبلاگ



مدیر وبلاگ : سپیده اذین
جستجو

آمار وبلاگ
کل بازدید :
بازدید امروز :
بازدید دیروز :
بازدید این ماه :
بازدید ماه قبل :
تعداد نویسندگان :
تعداد کل پست ها :
آخرین بازدید :
آخرین بروز رسانی :
Online User