Список проголосовавших за комментарий "goto для знающих basic и нормально для начинающих <br/> и все могут в своих темах показать свои программы <br/> <br/> особенно пригодные для онлайн компилятора <br/> rextester.com<br/> <br/> и соблюдающие принцип 1cs=1exe<br/> чтоб компилировались без сред <br/> <br/> а вместо goto всё больше использую циклы <br/> или флаг для совпадения 2-х условий <br/> но слишком сложные конструкции не заинтересовали<br/> <br/> <a class="imgpreview" href="/uploads/images/05/70/34/2019/04/05/5f2190.png"><img src="/uploads/images/05/70/34/2019/04/05/9f7044.png"/></a><br/> <br/> зато программы угадывающие квадриллион без goto:<br/> <br/> C# Миллиард угадывает 1 из 1'000'OOO'ooo<br/> за =log(10^9;2) за 30 ходов<p>using System; using System.Text; //Milliard.cs<br/> namespace DANILIN<br/> { class Program<br/> { static void Main(string[] args)<br/> { Random rand = new Random();int t=0;<br/> int h2=100000000; int h1=0; int f=0;<br/> int comp = rand.Next(h2);<br/> int human = rand.Next(h2);<br/> while (f<1)<br/> { Console.WriteLine();Console.Write(t);<br/> Console.Write(" ");Console.Write(comp);<br/> Console.Write(" ");Console.Write(human);<br/> if(comp < human)<br/> { Console.Write(" MORE");<br/> int a=comp; comp=(comp+h2)/2; h1=a; }<br/> else if(comp > human)<br/> { Console.Write(" less");<br/> int a=comp; comp=(h1+comp)/2; h2=a;}<br/> else {Console.Write(" win by ");<br/> Console.Write(t); Console.Write(" steps");f=1;}<br/> t++; }}}}<br/> <br/> <a href="/r.php?u=https%3A%2F%2Frextester.com%2FDYVZM84267&s=4247643881" target="_blank">rextester.com/DYVZM84267</a><br/> <br/> </p><p>import random #quadrillion.py<br/> h1=0; h2=10**16;t=0; f=0<br/> c = random.randrange(0,h2) #comp<br/> h = random.randrange(0,h2) #human<br/> while f<1:<br/> print(t,c,h)<br/> if h<c:<br/> print('MORE')<br/> a=h<br/> h=int((h+h2)/2)<br/> h1=a<br/> elif h>c:<br/> print('less')<br/> a=h<br/> h=int((h1+h)/2)<br/> h2=a<br/> else:<br/> print('win by', t, 'steps')<br/> f=1<br/> t+=1</p><a href="/r.php?u=http%3A%2F%2Frextester.com%2FJUNBW90242&s=3570288325">rextester.com/JUNBW90242</a><br/> <br/> <br/> qbasic qb64 milliard<p><br/> h1=0: h2=10^3: t=1: f=0: Randomize Timer 'daMilliard.bas<br/> human = Int(Rnd*h2) 'human<br/> comp = Int(Rnd*h2) 'comp<br/> While f < 1<br/> Print t; «human =»; human; " comp ="; comp;<br/> If comp < human Then<br/> Print " MORE": a=comp: comp=Int((comp+h2)/2): h1=a<br/> Else If human < comp Then<br/> Print " less": a=comp: comp=Int((h1+comp)/2): h2=a<br/> Else If human=comp Then<br/> Print " win by "; t; " steps": f=1<br/> End If: End If: End If: t = t + 1<br/> Wend: End</p><p>Результаты для диапазона от 1 до 100</p><p>1 40 11 MORE<br/> 2 40 55 less<br/> 3 40 33 MORE<br/> 4 40 44 less<br/> 5 40 38 MORE<br/> 6 40 41 less<br/> 7 40 39 MORE<br/> 8 40 40 win by 8 steps<br/> <br/> </p>"