понедельник, 31 января 2011 г.

Небольшая прога на циклы и ветвление


s1=100 'ваша стартовая сумма
s2=100 'стартовая сумма компа
While s1<199 And s2<199
  i=i+1 'вычисление числа бросков
bet1=Math.GetRandomNumber(6)+Math.GetRandomNumber(6)
bet2=Math.GetRandomNumber(6)+Math.GetRandomNumber(6)
TextWindow.Write("ваш бросок "+bet1)
TextWindow.Write(" бросок компа "+bet2)
If (bet1>bet2) Then
  s1=s1+1
  s2=s2-1
  TextWindow.WriteLine(" ваш бросок удачнее ")
ElseIf (bet1<bet2) Then
  s1=s1-1
  s2=s2+1
  TextWindow.WriteLine(" бросок компа удачнее ")
Else
  TextWindow.WriteLine(" ничья ")
EndIf
EndWhile
TextWindow.Write(" ваш счет "+s1)
TextWindow.WriteLine(" счет компа "+s2)
TextWindow.WriteLine(" потребовалось бросков "+i)

Комментариев нет:

Отправить комментарий