' quadratic equation QB64 DAV

INPUT "INPUT A"; A
INPUT "INPUT B"; B
INPUT "INPUT C"; C

D = B ^ 2 - 4 * A * C

IF D < 0 THEN PRINT "D<0 ": END

PRINT "OTBET: "
PRINT "D ="; D

X1 = (-B + SQR(D)) / (2 * A)
X2 = (-B - SQR(D)) / (2 * A)

PRINT "X1 ="; X1
PRINT "X2 ="; X2

END

// quadratic equation C# DAV  
using System;
using System.Text;
using System.IO;
namespace DAV
{
    class Program
        {
    static void Main(string[] args)
    {
Console.Write("INPUT A: ");
long a = Convert.ToInt32(Console.ReadLine());
Console.Write("INPUT B: ");
long b = Convert.ToInt32(Console.ReadLine());
Console.Write("INPUT C: ");
long c = Convert.ToInt32(Console.ReadLine());

long d = (b * b - 4 * a * c);
Console.WriteLine("OTBET: ");
Console.Write("D = ");
Console.WriteLine(d);

var x1 = (-b + Math.Sqrt(d)) / (2 * a);
var x2 = (-b - Math.Sqrt(d)) / (2 * a);

Console.Write("X1 = ");
Console.WriteLine(x1);
Console.Write("X2 = ");
Console.WriteLine(x2);

        Console.ReadKey();
        }
    }
}

6
7
2
=A2^2-4*A1*A3
=(-A2+КОРЕНЬ(A4))/(2*A1)
=(-A2-КОРЕНЬ(A4))/(2*A1)

'qb64 dav guess number from 0 to 100 with counting of steps
RANDOMIZE TIMER
s = INT(RND * 100)
t = 0

10 PRINT: t = t + 1:
INPUT "your variant"; a

IF a < s THEN PRINT "need MORE": GOTO 10
IF a > s THEN PRINT "need less": GOTO 10
PRINT "win by"; t; "steps"
END

'//C# dav guess number from 0 to 100 with counting of steps
using System;
using System.Text;
namespace DAV
{
    class Program
        {
    static void Main(string[] args)
    {
Random rand = new Random();
int s = rand.Next(100);
int t = 0;

dav:
Console.WriteLine();
t++;

Console.Write("your variant ");
string d = Console.ReadLine();
int a = Convert.ToInt32(d);

if(a > s)
    {
    Console.WriteLine("need less");
    goto dav;
    }
else if(a < s)
    {
    Console.WriteLine("need MORE");
    goto dav;
    }
Console.Write("win by ");
Console.Write(t);
Console.Write(" steps");
        Console.ReadKey();
        }
    }
}

'qb64 dav guesses number dividing distance by half

RANDOMIZE TIMER

x = 100
n = 0
c = INT(RND * 100) 'comp
h = INT(RND * 100) 'human
t = 0

h2 = x
h1 = n

10 t = t + 1
PRINT t, c, h,

IF h < c THEN PRINT "MORE": a = h: h = INT((h + h2) / 2): h1 = a: GOTO 10
IF h > c THEN PRINT "less": a = h: h = INT((h1 + h) / 2): h2 = a: GOTO 10
PRINT "win by "; t; " steps"

END

1    40    11    MORE
2    40    55    less
3    40    33    MORE
4    40    44    less
5    40    38    MORE
6    40    41    less
7    40    39    MORE
8    40    40    win by 8 steps

//C# dav guesses number dividing distance by half
using System;
using System.Text;
namespace DAV
{
    class Program
        {
    static void Main(string[] args)
    {
int x = 100;
int n = 0;
Random rand = new Random();
int c = rand.Next(100); //comp
int h = rand.Next(100); //human
int t = 0;

var h2 = x;
var h1 = n;

dav:
t++;
Console.WriteLine();
Console.Write(t);
Console.Write("  ");
Console.Write(c);
Console.Write("  ");
Console.Write(h);
Console.Write("  ");

if(h < c)
    {
    Console.Write("MORE");
    int a = h;
    h = (h + h2) / 2;
    h1 = a;
    goto dav;
    }
else if(h > c)
    {
    Console.Write("less");
    int a = h;
    h = (h1 + h) / 2;
    h2 = a;
    goto dav;
    }
Console.Write("win by ");
Console.Write(t);
Console.Write(" steps");
        Console.ReadKey();
        }
    }
}

//milliard & billion
using System;
using System.Text;
namespace DAV
{
    class Program
    {
    static void Main(string[] args)
    {
int h2 = 1000000000;//or 500
int h1 = 0;
Random rand = new Random();
int c = rand.Next(h2); //computer
int h = rand.Next(h2); //human or h2/2;
int t = 0;

dav:
t++;
Console.WriteLine();
Console.Write(t);
Console.Write("  ");
Console.Write(c);
Console.Write("  ");
Console.Write(h);
Console.Write("  ");

if(h < c)
    {
    Console.Write("MORE");
    int a = h;
    h = (h + h2) / 2;
    h1 = a;
    goto dav;
    }
else if(h > c)
    {
    Console.Write("less");
    int a = h;
    h = (h1 + h) / 2;
    h2 = a;
    goto dav;
    }
Console.Write("win by ");
Console.Write(t);
Console.Write(" steps");
        Console.ReadKey();
        }
    }
}

' 5д рельеф и массив
SCREEN 12: RANDOMIZE TIMER: DIM a(12,12)
FOR t=1 TO 12 ' количество
    FOR x=1 TO 12: FOR y=1 TO 12
a(x,y)=INT(RND*20)'высоты
    NEXT: NEXT: CLS
    FOR y=1 TO 12: FOR x=1 TO 11
LINE (50+20*x+20*y, 400-20*y-a(x,y))-(50+20*(x+1)+20*y, 400-20*y-a(x+1,y)), y
    NEXT: NEXT
    FOR x=1 TO 12: FOR y=1 TO 11
LINE (50+20*x+20*y, 400-20*y-a(x,y))-(50+20*(x+1)+20*y, 400-20*(y+1)-a(x,y+1)), x
    NEXT: NEXT:SLEEP 1
NEXT
END

//RELIEF
using System;
using System.Drawing;
using System.Windows.Forms;
class RELIEF
{
Timer timer; // неясно
Form form;
    
int[,] a = new int[22, 22];
static void Main(string[] args)
{
var p = new RELIEF();
}
public RELIEF()
{
    form = new Form() { Text = "RELIEF", Width = 600, Height = 360 };
    timer = new Timer() { Interval = 200 }; // неясно
    timer.Tick += delegate(object sender, EventArgs e) // неясно
    {
    Random rand = new Random();
// высоты
    for (int x = 1; x <=12; x++)
    {
    for (int y = 1; y <=12; y++)
    a[x,y]=rand.Next(20);
    }
// параллели Х
    for (int y = 1; y <=12; y++)
    {
    for (int x = 1; x <=11; x++)
        {
    var x1 = 50 + 20*x + 20*y;
    var y1 = 300 - 20*y - a[x,y];
    var x2 = 50 + 20*(x+1) + 20*y;
    var y2 = 300 - 20*y - a[x+1,y];

    Bitmap dblBuffer = new Bitmap(form.Width, form.Height);
    Graphics g = Graphics.FromImage(dblBuffer);
    Graphics f = Graphics.FromHwnd(form.Handle);

    g.DrawLine(Pens.Red, new Point(x1, y1), new Point(x2, y2));
//    f.Clear(Color.Green); // оч.экрана не здесь
    f.DrawImage(dblBuffer, new Point(0, 0));
    }
    }
// параллели У
    for (int x = 1; x <=12; x++)
    {
    for (int y = 1; y <=11; y++)
    {
    var x1 = 50 + 20*x + 20*y;
    var y1 = 300 - 20*y - a[x, y];
    var x2 = 50 + 20*(x+1) + 20*y;
    var y2 = 300 - 20*(y+1) - a[x, y+1];

    Bitmap dblBuffer = new Bitmap(form.Width, form.Height);
    Graphics g = Graphics.FromImage(dblBuffer);
    Graphics f = Graphics.FromHwnd(form.Handle);

    g.DrawLine(Pens.Red, new Point(x1, y1), new Point(x2, y2));
//    f.Clear(Color.Green); // оч.экрана не здесь
    f.DrawImage(dblBuffer, new Point(0, 0));
    }
    }
Array.Clear(a, 0, 22); // очищает память
    };
    timer.Start(); // неясно
    Application.Run(form);
    }    
}

//cat.cs
using System;
using System.Drawing;
using System.Windows.Forms;

class cat: Form
    {
    public static void Main()
    {
    Application.Run(new cat());
    }
    public cat()
        {
        Text = "cat";
    BackColor = System.Drawing.Color.Blue;
    ForeColor = System.Drawing.Color.Red;
        ResizeRedraw = true;
        Width = 600;
        Height = 360;
        }
    protected override void OnPaint(PaintEventArgs dan)
        {
Pen pen = new Pen(ForeColor);
SolidBrush BlueBrush = new SolidBrush(Color.Blue);
Graphics dav = dan.Graphics;

    for (int k = 1; k <=5; k++)
    for (int x = -50; x <=50; x++)
    {
int y=0;
if (x< 50) y=-x/5;
if (x< 25) y= x/5;
if (x<-25) y=-x/5;
if (x<-50) y= x/5;

dav.FillRectangle(BlueBrush, 0, 120, 600, 200);

dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+195, 225, 10, -80);
dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+200, 200, 100, y+50);
dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+280, y+170, 50, 50);

dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+290, y+190, 10, 10);//x/5, x/5
dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+294, y+194, 2, 2);
dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+310, y+190, 10, 10);//x/5, x/5
dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+314, y+194, 2, 2);

dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+280, y+205, 25, 10);
dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+310, y+205, 25, 10);

dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+280, y+190), new Point(x*k+280, y+160));
dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+290, y+175), new Point(x*k+280, y+160));
dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+330, y+190), new Point(x*k+330, y+160));
dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+320, y+175), new Point(x*k+330, y+160));

dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+210, 240), new Point(x*k+210, 280));
dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+220, 230), new Point(x*k+220, 290));
dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+280, 230), new Point(x*k+280, 290));
dav.DrawLine(new Pen(Color.Magenta, 3), new Point(x*k+290, 240), new Point(x*k+290, 280));

dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+205, 275, 10, 10);
dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+215, 285, 10, 10);
dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+275, 285, 10, 10);
dav.DrawEllipse(new Pen(Color.Magenta, 3), x*k+285, 275, 10, 10);

System.Threading.Thread.Sleep(10);
}
}
}

//winqua.cs
using System;
using System.Windows.Forms;

class winQUA : Form
{
winQUA()
{
Text = "winQUA Например A=6 B=7 C=2";
BackColor = System.Drawing.Color.Green;
ForeColor = System.Drawing.Color.Orange;
ResizeRedraw = true;
Width = 400;
Height = 250;
{

var zc = -7;
    var labelc = new Label();
    labelc.Text = "C= " + zc + ".....";
    labelc.Dock = DockStyle.Top;
    Controls.Add(labelc);
var buttonc = new Button();
buttonc.Text = "C+3";
buttonc.Dock = DockStyle.Bottom;
buttonc.Click += delegate
    {
    zc = zc+3;
    labelc.Text = "C= " + zc + "  ...";
    };
Controls.Add(buttonc);

var zb = 12;
    var labelb = new Label();
    labelb.Text = "B= " + zb + ".....";
    labelb.Dock = DockStyle.Top;
    Controls.Add(labelb);
var buttonb = new Button();
buttonb.Text = "B-1";
buttonb.Dock = DockStyle.Bottom;
buttonb.Click += delegate
    {
    zb--;
    labelb.Text = "B= " + zb + "  ...";
    };
Controls.Add(buttonb);

var za = 2;
    var labela = new Label();
    labela.Text = "A= " + za + ".....";
    labela.Dock = DockStyle.Top;
    Controls.Add(labela);
var buttona = new Button();
buttona.Text = "A+1";
buttona.Dock = DockStyle.Bottom;
buttona.Click += delegate
    {
    za++;
    labela.Text = "A= " + za + "  ...";
    };
Controls.Add(buttona);

var d = (zb * zb - 4 * za * zc);
    var labeld = new Label();
    labeld.Text = "d= " + d;
    labeld.Dock = DockStyle.Top;
    Controls.Add(labeld);
var buttond = new Button();
buttond.Text = "d";
buttond.Dock = DockStyle.Bottom;
buttond.Click += delegate
    {
    d = (zb * zb - 4 * za * zc);
double x1 = (-zb + Math.Sqrt(d)) / (2 * za);
double x2 = (-zb - Math.Sqrt(d)) / (2 * za);
    labeld.Text = "d= " + d + "    X1 = " + x1 + "    X2 = " + x2;
    };
Controls.Add(buttond);
    }
}
    static void Main()
    {
Application.Run(new winQUA());
    }
}

//SUMTAB.cs
using System;
using System.Windows.Forms;
namespace SUMTAB
{
    public class Program
    {
    static void Main()
    {
Application.Run(new SUMTAB());
    }
    }
    class SUMTAB : Form
    {
    TextBox textBoxD;
    TextBox textBoxA;
    Button buttonV;

public SUMTAB()
    {
var labelD = new Label();
    labelD.Text = "D СТРОК";
    labelD.Location = new System.Drawing.Point(45, 28);
    Controls.Add(labelD);

textBoxD=new TextBox();
    textBoxD.Text = "3";
    textBoxD.Location = new System.Drawing.Point(45, 50);
    this.Controls.Add(textBoxD);

var labelA = new Label();
    labelA.Text = "A СТОЛБЦОВ";
    labelA.Location = new System.Drawing.Point(45, 78);
    Controls.Add(labelA);

textBoxA=new TextBox();
    textBoxA.Text = "4";
    textBoxA.Location = new System.Drawing.Point(45, 100);
    this.Controls.Add(textBoxA);

buttonV = new Button();    
    buttonV.Location = new System.Drawing.Point(45, 200);
    buttonV.Text = "SUMTAB";
    buttonV.Click+=buttonV_Click;
    Controls.Add(buttonV);
}

private void buttonV_Click(object sender, EventArgs e)
    {
    int dd = int.Parse(textBoxD.Text);
    int aa = int.Parse(textBoxA.Text);
for (int i = 1; i <= dd; i++)
{
string s= "";
for (int j = 1; j <= aa; j++)
s = s+"  "+(i+j).ToString();
var labelI = new Label();
labelI.Text = s;
labelI.Location = new System.Drawing.Point(145, 25+25*i);
Controls.Add(labelI);
}
        }
    }
}