محبوبترینها
آیا میشود فیستول را عمل نکرد و به خودی خود خوب میشود؟
مزایای آستر مدول الیاف سرامیکی یا زد بلوک
سررسید تبلیغاتی 1404 چگونه می‌تواند برندینگ کسب‌وکارتان را تقویت کند؟
چگونه با ثبت آگهی رایگان در سایت های نیازمندیها، کسب و کارتان را به دیگران معرفی کنید؟
بهترین لوله برای لوله کشی آب ساختمان
دانلود آهنگ های برتر ایرانی و خارجی 2024
ماندگاری بیشتر محصولات باغ شما با این روش ساده!
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1855103425
عیب یابی دستور -
واضح آرشیو وب فارسی:سایت ریسک: عیب یابی دستور bahar11 03 خرداد 1388, 15:39عیب یابی دستور با درود دو فایل با نامها و محتویات زیر داریم 1-t1.txt که درون ان سه خط زیر است a b c 2-t2.txt که درون ان سه خط زیر است d e f حالا میخواهم در فایل t3.text تمام حالات زیر را داشته باشم با دستور for ab-ac -ad-ba-bb-bcو...که کلا 27 خط می شود. ولی دستورات زیر این کار را انجام نمیدهند.لطفا راه حل صحیح را بگویید.ممنون s = 0 Open "t3.txt" For Output As #3 Open "t1.txt" For Input As #1 Open "t2.txt" For Input As #2 For i = m To n Line Input #1, m Line Input #2, n s = s + 1 Write #3, i Next Close 3 Text1.Text = s the_king 03 خرداد 1388, 22:50عیب یابی دستور با درود دو فایل با نامها و محتویات زیر داریم 1-t1.txt که درون ان سه خط زیر است a b c 2-t2.txt که درون ان سه خط زیر است d e f حالا میخواهم در فایل t3.text تمام حالات زیر را داشته باشم با دستور for ab-ac -ad-ba-bb-bcو...که کلا 27 خط می شود. ولی دستورات زیر این کار را انجام نمیدهند.لطفا راه حل صحیح را بگویید.ممنون s = 0 Open "t3.txt" For Output As #3 Open "t1.txt" For Input As #1 Open "t2.txt" For Input As #2 For i = m To n Line Input #1, m Line Input #2, n s = s + 1 Write #3, i Next Close 3 Text1.Text = s چرا باید 27 خط بشه؟ انتخاب حرف اول از مجموعه t1.txt و حرف دوم از مجموعه t2.txt شامل 9 حالت میشه. انتخاب حرف اول و دوم از یکی از دو مجموعه t1.txt یا t2.txt شامل 36 حالت میشه. انتخاب حرف اول و دوم از یکی از دو مجموعه t1.txt یا t2.txt بدون تکراری بودن دو حرف شامل 30 حالت میشه. انتخاب حرف اول از یکی از دو مجموعه t1.txt و t2.txt و انتخاب حرف دوم از آن یکی مجموعه شامل 18 حالت میشه. لطفا مجموعه کامل حالات مورد نظرتان را بنویسید تا صورت سوال بهتر مشخص شود. bahar11 04 خرداد 1388, 11:12با سپاس شما درست میگویید.9 حالت درست است.لطفا بگویید با چه دستوری این کار را بکنم. ممنون the_king 04 خرداد 1388, 11:24با سپاس شما درست میگویید.9 حالت درست است.لطفا بگویید با چه دستوری این کار را بکنم. ممنون Dim S As Long, i As Long, j As Long Dim m(1 To 3) As String, n(1 To 3) As String S = 0 Open "t1.txt" For Input As #1 Open "t2.txt" For Input As #2 Open "t3.txt" For Output As #3 For i = 1 To 3 Line Input #1, m(i) Line Input #2, n(i) Next Close #1 Close #2 For i = 1 To 3 For j = 1 To 3 S = S + 1 Print #3, m(i) & n(j) Next Next Close #3 Text1.Text = S
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 394]
-
گوناگون
پربازدیدترینها