JBTALKS.CC

标题: 请问一些loop的问题 [打印本页]

作者: kuang    时间: 2010-9-18 01:11 AM
标题: 请问一些loop的问题
本帖最后由 kuang 于 2010-9-18 01:25 AM 编辑

由于时间的关系,逼不得已想问一下第1、2和4要怎样做呢?大概跟我说怎样做也行



Uploaded with ImageShack.us
作者: adryn33129    时间: 2010-9-18 01:27 AM
这些全部loop都是用for.....
作者: zegwei    时间: 2010-9-18 01:44 AM
图片太小。看不清去
作者: Super-Tomato    时间: 2010-9-18 05:56 AM
由于时间的关系,逼不得已想问一下第1、2和4要怎样做呢?大概跟我说怎样做也行



Uploaded with
kuang 发表于 2010-9-18 01:11 AM



去翻翻你的課本如何使用 while 和 do while 吧,這個题目不需要花很長時間做,問題就只是在學習的心态上
作者: lord14383    时间: 2010-9-18 07:55 AM
本帖最后由 lord14383 于 2010-9-18 07:57 AM 编辑

回复 1# kuang

第一题
        Dim x As Integer = 0
        Dim y As Integer = 0
        Dim word As String         For x = 0 To 4
            For y = 4 To x Step -1
                word &= "* "
            Next
            word &= vbCrLf
        Next         Label1.Text = word
作者: lord14383    时间: 2010-9-18 07:58 AM
回复 1# kuang

第二题
        Dim x As Integer = 0
        Dim y As Integer = 0
        Dim word As String        For x = 0 To 4
            For y = 0 To x
                word &= (5 - y) & " "
            Next
            word &= vbCrLf
        Next        Label1.Text = word
作者: kuang    时间: 2010-9-18 01:16 PM
回复 5# lord14383

什么来的这个?我是c++的,不过还是说声谢谢
作者: kuang    时间: 2010-9-18 01:17 PM
回复 4# Super-Tomato

好的,不过不是很清楚,一遇到nested的我就头痛了
作者: kuang    时间: 2010-9-18 01:28 PM
用for loop我就做到了,可是他给的hint不是用for loop哦
作者: 宅男-兜着走    时间: 2010-9-18 07:48 PM
回复  kuang

第二题
        Dim x As Integer = 0
        Dim y As Integer = 0
        Dim word ...
lord14383 发表于 2010-9-18 07:58 AM


这位同学, 他的习题好像没说要 Label 这个控件哦。
作者: 宅男-兜着走    时间: 2010-9-18 07:50 PM
用for loop我就做到了,可是他给的hint不是用for loop哦
kuang 发表于 2010-9-18 01:28 PM



    会For 不会 While==?? 不可能吧, 一样的。
作者: lord14383    时间: 2010-9-18 09:02 PM
回复 1# kuang

第二题
        Dim x As Integer = 0
        Dim y As Integer = 0
        Dim word As String         While x < 5
            y = 0
            While y <= x                word &= (5 - y) & " "                y = y + 1
            End While
            word &= vbCrLf
            x = x + 1
        End While          Label1.Text = word 我用的是GUI你是要用command line你就换Label1.Text就好了
作者: lord14383    时间: 2010-9-18 09:23 PM
回复 1# kuang


    第一题         Dim xx As Integer = 0
        Dim x As Integer = 0
        Dim y As Integer = 0
        Dim word As String = ""         While xx < 3
            x = 0
            y = 0            While x < 5
                y = 4
                While y >= x                    word &= "* "                    y = y - 1
                End While
                word &= vbCrLf
                x = x + 1
            End While
            xx = xx + 1
            word &= vbCrLf        End While         Label1.Text = word
作者: kuang    时间: 2010-9-18 11:49 PM
回复 11# 宅男-兜着走

它的用法我搞不清楚,看来要多下苦功了
作者: kuang    时间: 2010-9-18 11:50 PM
回复 12# lord14383

这个是什么的?我看不懂。。vb?
作者: lord14383    时间: 2010-9-19 04:42 AM
回复 15# kuang


    我只有学过vb。如果你真的看不懂,我也没有办法帮你了。真的有那么难懂吗?while loop是很基本的东西,如果这个都看不懂。。。。真的是要好好学习了。。。。上课应该有教吧?可是逻辑应该看得懂吧?会写c++哪里有可能vb都看不懂?c++是比较低级的语言,如果vb都看不懂要怎样写c++呢?
作者: 宅男-兜着走    时间: 2010-9-19 10:54 PM
帮你翻译了 Lord 给的答案。

第一题:

  1. int xx =0;
  2. int x =0;
  3. int y = 0;
  4. string word = "";
  5.        while(xx < 3){
  6.             x = 0;
  7.             y = 0;
  8.        while(x < 5)
  9.        {
  10.                 y = 4;
  11.                 while(y >= x)
  12.                 {                 
  13.                 cout << "* ";                    
  14.                 y--;
  15.                 }
  16.                 cout<< "\n";
  17.                 x++;
  18.        }
  19.             xx++;
  20.             cout << "\n";
  21.             }

复制代码
第二题

  1.     int x = 0;
  2.     int y = 0;
  3.     while(x <5)
  4.     {
  5.        y=0;
  6.        while(y<=x)
  7.        {
  8.            cout << 5-y << " ";
  9.            
  10.           y++;
  11.        }
  12.         cout<< "\n";
  13.       x++;
  14.     }
复制代码

作者: 宅男-兜着走    时间: 2010-9-19 10:56 PM
回复  kuang


    我只有学过vb。如果你真的看不懂,我也没有办法帮你了。真的有那么难懂吗?while lo ...
lord14383 发表于 2010-9-19 04:42 AM


从画星星的题目来看, 应该是新手,看不懂是一定的啦

不过, 我还是比较觉得 VB 难懂。
作者: lord14383    时间: 2010-9-20 03:25 PM
本帖最后由 lord14383 于 2010-9-20 03:30 PM 编辑

Module Module1

    Sub Main()
        Dim x As Integer = 0
        Dim y As Integer = 0
        Dim word As String = ""
        While x < 3
            y = 0
            While y < 6 - x * 2
                word &= 6 - x * 2 & " "
                y = y + 1
            End While
            x = x + 1
            word &= vbCrLf
        End While
        Console.Write(word)
        Console.Write("Press any key to continue...")
        Console.ReadKey()
    End Sub

End Module
作者: 宅男-兜着走    时间: 2010-9-20 07:24 PM

  1. //不必 Nested Loop 的方法。
  2. Module Module1

  3.     Dim maxNum As Integer = 6

  4.     Sub Main()
  5.         If maxNum <> 0 Then
  6.             Dim col As Integer = maxNum
  7.             If maxNum Mod 2 = 0 Then
  8.                 While col <> 0
  9.                     col = col - 1
  10.                     Console.Write(maxNum.ToString())
  11.                 End While
  12.                 Console.Write(vbCrLf)
  13.             End If
  14.             maxNum = maxNum - 1
  15.             Main()
  16.         Else : Console.ReadKey()
  17.         End If
  18.     End Sub
  19. End Module
复制代码

作者: 宅男-兜着走    时间: 2010-9-20 07:52 PM

  1. // C++ 版本

  2. #include <cstdlib>
  3. #include <iostream>

  4. using namespace std;
  5. int maxNum = 6;

  6. int main(int argc, char *argv[])
  7. {
  8.     if(maxNum !=0)
  9.     {
  10.        int col = maxNum;
  11.        if(maxNum % 2 ==0)
  12.        {
  13.           while(col !=0)
  14.           {
  15.              col--;
  16.              cout<< maxNum;
  17.           }
  18.           cout<<"\n";
  19.        }
  20.        maxNum--;
  21.        main(argc, argv);
  22.     }else
  23.     {
  24.     system("PAUSE");
  25.     return 0;  
  26.     }
  27. }
复制代码

作者: karkit1990    时间: 2010-10-2 03:47 PM
a)
for (row=5; row>=1; row--)
{
     for (col=1; col<=row; col++)
           cout<<"*";

     cout<<"\n"'
}

lz是不是要这种?
作者: kuang    时间: 2010-10-5 01:25 PM
回复 22# karkit1990

对对对,不过问题已经解决了,谢了




欢迎光临 JBTALKS.CC (https://www.jbtalks.cc/) Powered by Discuz! X2.5