Program tests_matematika;
Uses System, System.Windows.Forms;


var f1, f2, f3, f4, f5 : form;
  b1, b2, b3, b4 : button;
  l1, l2, l3, l4, l5 : system.windows.forms.label;
  rb1, rb2, rb3, rb4, rb5, rb6 : radiobutton;
  lb1 : listbox;
  tb1 : textbox;
  punkti : integer;

procedure bclick5(sender: object; e: EventArgs);
Begin

  f4.Hide;
  f5 := new Form;
  f5.width := 600;
  f5.height := 370;
  f5.Text := 'Tests';
  f5.Show;

  if lb1.SelectedIndex = 1 then
  punkti := punkti + 1;


  l3.text := 'Pareizi atbildēti ' + IntToStr(punkti);
  f5.controls.add( l3 );

End;

procedure bclick4(sender: object; e: EventArgs);
Begin
  f3.Hide;
  f4 := new Form;
  f4.width := 600;
  f4.height := 370;
  f4.Text := 'Tests';
  f4.Show;

  b4 := new button;
  b4.text := 'Tālāk';
  b4.top := 300;
  b4.left := 500;
  b4.Click += bclick5;
  f4.Controls.Add(b4);


  l1 := new System.Windows.forms.label;
  l1.text := 'Izvēlies pareizo atbildi';
  l1.width := 600;
  f4.controls.add( l1 );

  lb1 := new listbox;
  lb1.items.add( 'π/4' );
  lb1.items.add( '3π/4' );
  lb1.items.add('π');
  lb1.width := 100;
  lb1.top := 50;
  f4.controls.add( lb1 );


  if tb1.text = 'arctg' then
  punkti := punkti + 1;

  l3.text := 'Pareizi atbildēti ' + IntToStr(punkti);
  f4.controls.add( l3 );

End;

procedure bclick2(sender: object; e: EventArgs);
Begin


  f2.Hide;
  f3 := new Form;
  f3.width := 600;
  f3.height := 370;
  f3.Text := 'Tests';
  f3.Show;

  if rb6.Checked then
  punkti := punkti + 1;

  b3 := new button;
  b3.text := 'Tālāk';
  b3.top := 300;
  b3.left := 500;
  b3.Click += bclick4;
  f3.Controls.Add(b3);

  l1 := new System.Windows.forms.label;
  l1.text := 'Ieraksti pareizo atbildi tukšajā vietā';
  l1.width := 600;
  l1.height := 20;
  f3.controls.add( l1 );

  l2 := new System.Windows.forms.label;
  l2.text := 'Lai pierakstītu ikvienu pagrieziena leņķi, kas atbilst jebkurai tangensa vērtībai a, izmanto ';
  l2.width := 445;
  l2.top := 50;
  f3.controls.add( l2 );

  tb1 := new textbox;
  tb1.top := 50;
  tb1.left := 450;
  tb1.width := 50;
  f3.controls.add( tb1 );

  l4 := new System.Windows.forms.label;
  l4.top := 50;
  l4.left := 500;
  l4.text := 'jēzdienu.';
  f3.controls.add( l4 );

  l3.text := 'Pareizi atbildēti ' + IntToStr(punkti);
  f3.controls.add( l3 );
End;


procedure bclick1(sender: object; e: EventArgs);
Begin


  f1.Hide;
  f2 := new Form;
  f2.width := 600;
  f2.height := 370;
  f2.Text := 'Tests';
  f2.Show;

  b2 := new button;
  b2.text := 'Tālāk';
  b2.top := 300;
  b2.left := 500;
  b2.Click += bclick2;
  f2.Controls.Add(b2);

  l4 := new System.Windows.Forms.label;
  l4.text := 'Izvēlies pareizo atbildi';
  l4.width := 200;
  f2.Controls.Add(l4);

  l5 := new System.Windows.Forms.label;
  l5.text := 'sin²x+cos²x =';
  l5.width := 200;
  l5.top := 20;
  f2.controls.add(l5);

  // 2Uzd 1radionutton

  rb4 := new radiobutton;
  rb4.text := '0';
  rb4.left := 500;
  rb4.top := 40;
  f2.controls.add(rb4);

// 2Uzd 2radiobutton

  rb5 := new radiobutton;
  rb5.text := '2';
  rb5.left := 500;
  rb5.top := 70;
  f2.controls.add(rb5);

// 2Uzd 3radiobutton

  rb6 := new radiobutton;
  rb6.text := '1';
  rb6.left := 500;
  rb6.top := 100;
  f2.controls.add(rb6);

  if rb1.Checked then
    punkti := punkti + 1;

  l3.text := 'Pareizi atbildēti ' + IntToStr(punkti);
  f2.controls.add(l3);
End;





Begin

// Pirmā forma

f1 := new form;
f1.Text := 'Tests';
f1.width := 600;
f1.height := 370;


// Pirmā poga

b1 := new button;
b1.text := 'Tālāk';
b1.top := 300;
b1.left := 500;
f1.Controls.Add(b1);
b1.Click += bclick1;

// 1Uzd Nos

l1 := new system.windows.forms.label;
l1.width := 600;
l1.height := 20;
f1.controls.Add(l1);
l1.text := 'Aizstāj doto trigonometrisko funkciju ar trigonometrisko funkciju šauram leņķim.';

// 1Uzd piemērs

l2 := new System.Windows.Forms.label;
l2.text := 'cos(90° - α)';
l2.top := 20;
f1.controls.Add(l2);

// Pareizo atbilžu skaits

l3 := new System.Windows.Forms.label;
l3.text := 'Pareizi atbildēti ' + IntToStr(punkti);
l3.top := 200;
f1.Controls.Add(l3);

// 1Uzd 1radionutton

rb1 := new radiobutton;
rb1.text := 'cosα';
rb1.left := 500;
rb1.top := 40;
f1.controls.add(rb1);

// 1Uzd 2radiobutton

rb2 := new radiobutton;
rb2.text := '-cosα';
rb2.left := 500;
rb2.top := 70;
f1.controls.add(rb2);

// 1Uzd 3radiobutton

rb3 := new radiobutton;
rb3.text := 'sinα';
rb3.left := 500;
rb3.top := 100;
f1.controls.add(rb3);

application.Run(f1);


End.