Прямокутний трикутник (координатні точки)

I етап. Аналіз умови задачі, визначення вхідних даних і кінцевих результатів

Вхідні дані: точки х1, х2, х3, у1, у2, у3.

Кінцеві результати: катети a i b ,площа, периметр, гіпотенуза.

II етап. Побудова інформаційної моделі

Очевидно, інформаційною моделлю розв’язування цієї задачі є математична модель, яка складається з формул, за якими знайдемо площу, периметр та сторони трикутника.

Ці формули

y1=y2, x3=x1 a2=(x2-x1)2 b2=(y3-y1)2 p=a+b+c S=(a*b)/2 c2=a2+b2

Крім того, одержані дані бажано округлити до сотих.

III етап. Вибір програмних засобів для розв’язування задачі виглядатимуть так:

Прикладним програмним засобом, який можна використати для розв’язування задачі, може бути, наприклад, програма-калькулятор або табличний процесор. Або можна скласти спеціальну програму для розв’язування саме цієї задачі, використовуючи одну з мов програмування.

IV етап. Складання алгоритму розв'язування задачі.

V етап. Отримання комп'ютерної моделі.

Розв’язування задачі в табличному процесорі Excel

D2=B2

E2=A2

G2=ABS(C2-A2)

H2=ABS(F2-B2)

I2=SQRT(G2*G2+H2*H2)

J2=G2*H2/2

K2=G2+H2+I2

Розв’язування задачі в Pascal ABC.NET

program trikut;

Uses CRT;

var x1,y1,x2,y2,x3,y3,a,b,c,s,p: real;

begin

writeln('Маємо прямокутний трикутник на декартовiй площинi.Вiдомi 3 точки.' );

writeln('1 точка - прямий кут.');

writeln('2 - нижнiй кут (У будь-якому випадку - горизонтальна осi ОХ). ' );

writeln('3 - верхнiй кут (У будь-якому випадку - горизонтальна осi ОY).');

writeln ('Звiдки - y1=y2, x3=x1. Задача дiйсна коли катети паралельнi осям координат. ' );

writeln('Знайти площу, периметр та сторони трикутника. ' );

TextColor (06);

write('Введiть через пробiл данi першої точки, потiм натиснiть Enter - ' );

readln(x1, y1);

write('Введiть через пробiл данi другої точки, потiм натиснiть Enter - ' );

readln(x2, y2);

write('Введiть через пробiл данi третьої точки, потiм натиснiть Enter - ' );

readln(x3, y3);

a:= abs(x2-x1);

b:= abs(y3-y1);

c:= sqrt(sqr(a) + sqr(b));

s := a * b / 2;

p:=a+b+c;

TextColor(03);

writeln('Довжина a = ', a:3:3);

writeln('Довжина b = ', b:3:3);

writeln('Довжина c = ', c:3:3);

writeln('Площа трикутника = ', s:3:3);

writeln('Периметр трикутника = ', p:3:3);

readln;

end.

Розв’язування задачі в QBASIK

PRINT "Џап¬®ЄгвЁ© ваЁЄгвЁЄ" 'прямокутний трикутник

PRINT "1 в®зЄ Їап¬Ё© Єгв " '1 точка - прямий кут

PRINT "2 в®зЄ Ё¦i© Єгв (ѓ®аЁ§®в «мЁ© ®бi Ћ•)" '2 - нижнiй кут (У будь-якому випадку - горизонтальна осi ОХ)

PRINT "3 в®зЄ ўҐаеi© Єгв (ѓ®аЁ§®в «мЁ© ®бi ЋY)" '3 - верхнiй кут (У будь-якому випадку - горизонтальна осi ОY)

PRINT "x1=x3, y1=y2"

PRINT "‡ ¤ з ¤i©б Є®«Ё Є вҐвЁ Ї а «Ґ«мi ®бп¬ Є®®а¤Ё в" 'Задача дiйсна коли катети паралельнi осям координат

INPUT "x1=", x1

INPUT "y1=", y1

INPUT "x2=", x2

INPUT "y2=", y2

INPUT "x3=", x3

INPUT "y3=", y3

a = ABS(x2 - x1)

b = ABS(y3 - y1)

c = SQR(a * a + b * b)

p = a + b + c

s = a * b / 2

PRINT "a= "; a

PRINT "b= "; b

PRINT "c= "; c

PRINT "p= "; p

PRINT "s= "; s

INPUT z

Розв’язування задачі в SMALLBASIK

TextWindow.WriteLine("Прямокутний трикутник")

TextWindow.WriteLine("Маємо прямокутний трикутник на декартовiй площинi.Вiдомi 3 точки.")

TextWindow.WriteLine("1 точка - прямий кут.")

TextWindow.WriteLine("2 - нижнiй кут (У будь-якому випадку - горизонтальна осi ОХ).")

TextWindow.WriteLine("3 - верхнiй кут (У будь-якому випадку - горизонтальна осi ОY).")

TextWindow.WriteLine("Звiдки - y1=y2, x3=x1. Задача дiйсна коли катети паралельнi осям координат.")

TextWindow.WriteLine("Знайти площу, периметр та сторони трикутника.")

TextWindow.Write("x1= ")

x1=TextWindow.ReadNumber()

TextWindow.Write("y1= ")

y1=TextWindow.ReadNumber()

TextWindow.Write("x2= ")

x2=TextWindow.ReadNumber()

TextWindow.Write("y2= ")

y2=TextWindow.ReadNumber()

TextWindow.Write("x3= ")

x3=TextWindow.ReadNumber()

TextWindow.Write("y3= ")

y3=TextWindow.ReadNumber()

a= Math.Round(Math.Abs(x2-x1)*100)/100

b= Math.Round(Math.Abs(y3-y1)*100)/100

c= Math.Round(Math.SquareRoot(a * a + b * b)*100)/100

p = Math.Round((a + b + c)*100)/100

s = Math.Round(a * b / 2*100)/100

TextWindow.Write("Катет а = ")

TextWindow.WriteLine(a)

TextWindow.Write("Катет b = ")

TextWindow.WriteLine(b)

TextWindow.Write("Гiпотенуза с = ")

TextWindow.WriteLine(c)

TextWindow.Write("Периметр p =")

TextWindow.WriteLine(p)

TextWindow.Write("Площа S = ")

TextWindow.WriteLine(s)

Розв’язування задачі в JAVA

<title>Прямокутний трикутник на декартовiй площинi</title>

<b>Маємо прямокутний трикутник на декартовiй площинi.Вiдомi 3 точки.

1 точка - прямий кут.

2 - нижнiй кут (У будь-якому випадку - горизонтальна осi ОХ).

3 - верхнiй кут (У будь-якому випадку - горизонтальна осi ОY).

Звiдки - y1=y2, x3=x1. Задача дiйсна коли катети паралельнi осям координат.

Знайти площу, периметр та сторони трикутника. </b>

<br>

x1= <input name="x1" type="text" value=" " size="4"></b>

y1= <input name="y1" type="text" value=" " size="4"></b>

<br>

x2= <input name="x2" type="text" value=" " size="4"></b>

y2= <input name="y2" type="text" value=" " size="4"></b>

<br>

x3= <input name="x3" type="text" value=" " size="4"></b>

y3= <input name="y3" type="text" value=" " size="4"></b>

<br>

</form>

Відповідь: <br> <span id="pr_tr_t">Введіть данні і нажміть "Порахувати"</span>

</div>

function pr_tr_t() {

var x1 = document.pr_tr_t.x1.value;

var x2 = document.pr_tr_t.x2.value;

var y1 = document.pr_tr_t.y1.value;

var y2 = document.pr_tr_t.y2.value;

var x3 = document.pr_tr_t.x3.value;

var y3 = document.pr_tr_t.y3.value;

var sol = document.getElementById("pr_tr_t");

var a = Math.abs(x2-x1);

var b = Math.abs(y3-y1);

var c = Math.sqrt(a*a+b*b);

var p = Math.sqrt(a*a+b*b)+Math.abs(y3-y1)+Math.abs(x2-x1);

var s = a*b/2;

string = "Гiпотенуза a="+a+"<br>"+"Гiпотенуза b="+b+"<br>"+"Гiпотенуза с="+c+"<br>"+"Периметр p="+p+"<br>"+"Площа S="+s;

sol.innerHTML = string;

}

</script>

Розв’язування задачі в HTML

<title>Прямокутний трикутник на декартовiй площинi</title>

Маємо прямокутний трикутник на декартовiй площинi.Вiдомi 3 точки.

<br>

1 точка - прямий кут.

<br>

2 - нижнiй кут (У будь-якому випадку - горизонтальна осi ОХ).

<br>

3 - верхнiй кут (У будь-якому випадку - горизонтальна осi ОY).

<br>

Звiдки - y1=y2, x3=x1. Задача дiйсна коли катети паралельнi осям координат.

<br>

Знайти площу, периметр та сторони трикутника.

<br>

x1 = <input type="textfield" name="x1" value="">

y1 = <input type="textfield" name="y1" value="">

<br>

x2 = <input type="textfield" name="x2" value="">

y2 = <input type="textfield" name="y2" value="">

<br>

x3 = <input type="textfield" name="x3" value="">

y3 = <input type="textfield" name="y3" value="">

<br>

Сторона a = <input type="textfield" name="a" value="">

<br>

Сторона b = <input type="textfield" name="b" value="">

<br>

Гiпотенуза с = <input type="textfield" name="c" value="">

<br>

Периметр p = <input type="textfield" name="p" value="">

<br>

Площа S = <input type="textfield" name="S" value="">

<br>

</form>

Розв’язування задачі в C

#include <stdio.h>

#include <math.h>

int main(void)

{

float x1,x2,x3,y1,y2,y3,a,b,c,p,s;

printf ("Џап¬®ЄгвЁ© ваЁЄгвЁЄ\n ");

printf ("1 в®зЄ Їап¬Ё© Єгв \n ");

printf ("2 в®зЄ Ё¦i© Єгв (ѓ®аЁ§®в «мЁ© ®бi Ћ•)\n ");

printf ("3 в®зЄ ўҐаеi© Єгв (ѓ®аЁ§®в «мЁ© ®бi ЋY)\n ");

printf ("x1=x3, y1=y2\n");

printf ("‡ ¤ з ¤i©б Є®«Ё Є вҐвЁ Ї а «Ґ«мi ®бп¬ Є®®а¤Ё в\n\n ");

printf ( "x1 = ");

scanf("%f", &x1);

printf ( "y1 = ");

scanf("%f", &y1);

printf ( "x2 = ");

scanf("%f", &x2);

printf ( "y2 = ");

scanf("%f", &y2);

printf ( "x3 = ");

scanf("%f", &x3);

printf ( "y3 = ");

scanf("%f", &y3);

a=abs(x2-x1);

b=abs(y3-y1);

c=sqrt(a*a+b*b);

p = a + b + c;

s= a * b / 2;

printf ("\na = %f", a);

printf ("\nb = %f", b);

printf ("\nc = %f", c);

printf ("\np = %f", p);

printf ("\ns = %f", s);

scanf("\n");

return 0;

}

Розв’язування задачі в C#

using System;

class Program

{

static void Main(string[] args)

{

Console.WriteLine("Прямокутний трикутник");

Console.WriteLine("Маємо прямокутний трикутник на декартовiй площинi.Вiдомi 3 точки.");

Console.WriteLine("1 точка - прямий кут.");

Console.WriteLine("2 - нижнiй кут (У будь-якому випадку - горизонтальна осi ОХ).");

Console.WriteLine("3 - верхнiй кут (У будь-якому випадку - горизонтальна осi ОY).");

Console.WriteLine("Звiдки - y1=y2, x3=x1. Задача дiйсна коли катети паралельнi осям координат.");

Console.WriteLine("Знайти площу, периметр та сторони трикутника.");

Console.Write("x1 = ");

Double x1 = Convert.ToDouble(Console.ReadLine());

Console.Write("y1 = ");

Double y1 = Convert.ToDouble(Console.ReadLine());

Console.Write("x2 = ");

Double x2 = Convert.ToDouble(Console.ReadLine());

Console.Write("y2 = ");

Double y2 = Convert.ToDouble(Console.ReadLine());

Console.Write("x3 = ");

Double x3 = Convert.ToDouble(Console.ReadLine());

Console.Write("y3 = ");

Double y3 = Convert.ToDouble(Console.ReadLine());

Double a = Math.Abs(x2-x1);

Double b = Math.Abs(y3-y1);

Double c = Math.Round(Math.Sqrt(a*a + b*b)*100)/100;

Double s = a * b/ 2;

Double p = a+b+c;

Console.WriteLine (" ");

Console.WriteLine ("Катет a = "+a);

Console.WriteLine ("Катет b = "+b);

Console.WriteLine ("Гiпотенуза с = "+c);

Console.WriteLine ("Площа S = "+s);

Console.WriteLine ("Периметр p = "+p);

Console.ReadKey();

}

Розв’язування задачі в VB.NET

Class Program

Shared Sub Main()

Console.WriteLine("Прямокутний трикутник")

Console.WriteLine("Маємо прямокутний трикутник на декартовiй площинi.Вiдомi 3 точки.")

Console.WriteLine("1 точка - прямий кут.")

Console.WriteLine("2 - нижнiй кут (У будь-якому випадку - горизонтальна осi ОХ).")

Console.WriteLine("3 - верхнiй кут (У будь-якому випадку - горизонтальна осi ОY).")

Console.WriteLine("Звiдки - y1=y2, x3=x1. Задача дiйсна коли катети паралельнi осям координат.")

Console.WriteLine("Знайти площу, периметр та сторони трикутника.")

Console.Write("x1 = ")

Dim x1 As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("y1 = ")

Dim y1 As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("x2 = ")

Dim x2 As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("y2 = ")

Dim y2 As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("x3 = ")

Dim x3 As Double = Convert.ToDouble(Console.ReadLine())

Console.Write("y3 = ")

Dim y3 As Double = Convert.ToDouble(Console.ReadLine())

Dim a As Double = Math.Abs(x2-x1)

Dim b As Double = Math.Abs(y3-y1)

Dim c As Double = Math.Round(Math.sqrt(a * a + b * b)*100)/100

Dim p As Double = a + b + c

Dim s As Double = a * b / 2

Console.WriteLine (" ")

Console.WriteLine ("Катет a = {0}",a)

Console.WriteLine ("Катет b = {0}",b)

Console.WriteLine ("Гiпотенуза с = {0}",c)

Console.WriteLine ("Площа S = {0}",s)

Console.WriteLine ("Периметр p = {0}",p)

Console.ReadKey()

End Sub

End Class

Розв’язування задачі в dev-c++

#include <conio.h>

#include <iostream>

#include <cmath>

int main(void)

{

double x1,x2,y1,y2,x3,y3,a,b,c,S,p;

setlocale(LC_ALL, "");

std::cout << "Прямокутний трикутник\n";

std::cout << "Маємо прямокутний трикутник на декартовiй площинi.Вiдомi 3 точки.\n";

std::cout << "1 точка - прямий кут.\n";

std::cout << "2 - нижнiй кут (У будь-якому випадку - горизонтальна осi ОХ).\n";

std::cout << "3 - верхнiй кут (У будь-якому випадку - горизонтальна осi ОY).\n";

std::cout << "Звiдки - y1=y2, x3=x1. Задача дiйсна коли катети паралельнi осям координат.\n";

std::cout << "Знайти площу, периметр та сторони трикутника.\n";

std::cout << "x1 = ";

std::cin >> x1;

std::cout << "y1 = ";

std::cin >> y1;

std::cout << "x2 = ";

std::cin >> x2;

std::cout << "y2 = ";

std::cin >> y2;

std::cout << "x3 = ";

std::cin >> x3;

std::cout << "y3 = ";

std::cin >> y3;

a = abs(x2-x1);

b = abs(y3-y1);

c = sqrt(a*a+b*b);

p = a + b + c;

S = a*b/2;

std::cout <<

"\nКатет a = " << a <<

"\nКатет b = " << b <<

"\nГiпотенуза с = " << c <<

"\nПериметр p = " << p <<

"\nПлоща S = " << S <<

std::endl;

getch();

return 0;

}

Розв’язування задачі в Python

print ('Прямокутний трикутник')

print ('Маємо прямокутний трикутник на декартовiй площинi.Вiдомi 3 точки.')

print ('1 точка - прямий кут.')

print ('2 - нижнiй кут (У будь-якому випадку - горизонтальна осi ОХ).')

print ('3 - верхнiй кут (У будь-якому випадку - горизонтальна осi ОY).')

print ('Звiдки - y1=y2, x3=x1. Задача дiйсна коли катети паралельнi осям координат.')

print ('Знайти площу, периметр та сторони трикутника.')

x1=float(input('x1 = '))

y1=float(input('y1 = '))

x2=float(input('x2 = '))

y2=float(input('y2 = '))

x3=float(input('x3 = '))

y3=float(input('y3 = '))

print ('')

a =((x2-x1)**(2))**(1/2)

b =((y3-y1)**(2))**(1/2)

c =((b)**(2)+(a)**(2))**(1/2)

s = a * b/2

p = a+b+c

print ('Гiпотенуза с =',c)

print ('Площа S =',s)

print ('Периметр p =',p)

input()

Графічні програми

Розв’язування задачі в Visual BASIK 6

Код

VERSION 5.00

Begin VB.Form Form1

BorderStyle = 3 'Fixed Dialog

Caption = "Прямокутний трикутник (Декартова площина)"

ClientHeight = 5130

ClientLeft = 45

ClientTop = 390

ClientWidth = 12915

LinkTopic = "Form1"

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 5130

ScaleMode = 0 'Пользовательское

ScaleWidth = 128.336

ShowInTaskbar = 0 'False

StartUpPosition = 1 'CenterOwner

Begin VB.TextBox Text1

Height = 285

Index = 10

Left = 2040

TabIndex = 13

Top = 3960

Width = 855

End

Begin VB.TextBox Text1

Height = 285

Index = 9

Left = 600

TabIndex = 12

Top = 3960

Width = 855

End

Begin VB.TextBox Text1

Height = 285

Index = 8

Left = 3480

TabIndex = 11

Top = 3480

Width = 855

End

Begin VB.TextBox Text1

Height = 285

Index = 7

Left = 2040

TabIndex = 10

Top = 3480

Width = 855

End

Begin VB.TextBox Text1

Height = 285

Index = 6

Left = 600

TabIndex = 9

Top = 3480

Width = 855

End

Begin VB.TextBox Text1

Height = 285

Index = 5

Left = 3480

TabIndex = 8

Top = 2640

Width = 855

End

Begin VB.TextBox Text1

Height = 285

Index = 4

Left = 600

TabIndex = 7

Top = 2640

Width = 855

End

Begin VB.TextBox Text1

Height = 285

Index = 3

Left = 2040

TabIndex = 6

Top = 2160

Width = 855

End

Begin VB.TextBox Text1

Height = 285

Index = 2

Left = 2040

TabIndex = 5

Top = 2640

Width = 855

End

Begin VB.TextBox Text1

Height = 285

Index = 1

Left = 3480

TabIndex = 4

Top = 2160

Width = 855

End

Begin VB.TextBox Text1

Height = 285

Index = 0

Left = 600

TabIndex = 3

Top = 2160

Width = 855

End

Begin VB.CommandButton Command3

Caption = "ВИХІД"

Height = 255

Left = 1680

TabIndex = 2

Top = 4440

Width = 1335

End

Begin VB.CommandButton Command2

Caption = "СТАРТ"

Height = 255

Left = 3120

TabIndex = 1

Top = 3960

Width = 1335

End

Begin VB.CommandButton Command1

Caption = "Очистка"

Height = 255

Left = 120

TabIndex = 0

Top = 4440

Width = 1335

End

Begin VB.Label Label1

Caption = "S ="

Height = 255

Index = 12

Left = 1560

TabIndex = 26

Top = 3960

Width = 375

End

Begin VB.Label Label1

Caption = "p ="

Height = 255

Index = 11

Left = 240

TabIndex = 25

Top = 3960

Width = 375

End

Begin VB.Label Label1

Caption = "c ="

Height = 255

Index = 10

Left = 3120

TabIndex = 24

Top = 3480

Width = 375

End

Begin VB.Label Label1

Caption = "b ="

Height = 255

Index = 9

Left = 1560

TabIndex = 23

Top = 3480

Width = 375

End

Begin VB.Label Label1

Caption = "a ="

Height = 255

Index = 8

Left = 240

TabIndex = 22

Top = 3480

Width = 375

End

Begin VB.Label Label1

Caption = "Y3 ="

Height = 255

Index = 7

Left = 3000

TabIndex = 21

Top = 2640

Width = 375

End

Begin VB.Label Label1

Caption = "Y2 ="

Height = 255

Index = 6

Left = 1560

TabIndex = 20

Top = 2640

Width = 375

End

Begin VB.Label Label1

Caption = "Y1 ="

Height = 255

Index = 5

Left = 240

TabIndex = 19

Top = 2640

Width = 375

End

Begin VB.Label Label1

Caption = "X3 ="

Height = 255

Index = 4

Left = 3000

TabIndex = 18

Top = 2160

Width = 375

End

Begin VB.Label Label1

Caption = "X2 ="

Height = 255

Index = 3

Left = 1560

TabIndex = 17

Top = 2160

Width = 375

End

Begin VB.Label Label1

Caption = "X1 ="

Height = 255

Index = 2

Left = 240

TabIndex = 16

Top = 2160

Width = 375

End

Begin VB.Label Label1

Caption = $"Form1.frx":0000

Height = 1335

Index = 1

Left = 240

TabIndex = 15

Top = 480

Width = 4335

End

Begin VB.Label Label1

Caption = "Наочний приклад"

Height = 255

Index = 0

Left = 7680

TabIndex = 14

Top = 120

Width = 3015

End

Begin VB.Image Image1

DragMode = 1 'Авто

Height = 4290

Left = 4800

Picture = "Form1.frx":0142

Stretch = -1 'True

Top = 480

Width = 7650

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Private Sub Command1_Click()

Text1(0).Text = ""

Text1(1).Text = ""

Text1(2).Text = ""

Text1(3).Text = ""

Text1(4).Text = ""

Text1(5).Text = ""

Text1(6).Text = ""

Text1(7).Text = ""

Text1(8).Text = ""

Text1(9).Text = ""

Text1(10).Text = ""

End Sub

Private Sub Command2_Click()

X1 = Text1(0).Text

X2 = Text1(3).Text

X3 = Text1(1).Text

Y1 = Text1(4).Text

Y2 = Text1(2).Text

Y3 = Text1(5).Text

a = Abs(X2 - X1)

b = Abs(Y3 - Y1)

c = Round(Sqr(a * a + b * b) * 100) / 100

p = Round((a / 1 + b / 1 + c / 1) * 100) / 100

s = a * b / 2

Text1(6).Text = a

Text1(7).Text = b

Text1(8).Text = c

Text1(9).Text = p

Text1(10).Text = s

End Sub

Private Sub Command3_Click()

End

End Sub

Розв’язування задачі в Pascal ABC.NET

Частина коду

procedure Form1.button2_Click(sender: Object; e: EventArgs);

begin

TextBox1.Text:='';

TextBox2.Text:='';

TextBox3.Text:='';

TextBox4.Text:='';

TextBox5.Text:='';

TextBox6.Text:='';

TextBox7.Text:='';

TextBox8.Text:='';

TextBox9.Text:='';

TextBox12.Text:='';

TextBox11.Text:='';

end;

procedure Form1.button3_Click(sender: Object; e: EventArgs);

begin

Close;

end;

procedure Form1.button1_Click(sender: Object; e: EventArgs);

var x1,x2,x3,y1,y2,y3,a,b,c,S,p:real;

begin

x1:=StrToFloat(TextBox1.Text);

x2:=StrToFloat(TextBox2.Text);

x3:=StrToFloat(TextBox3.Text);

y1:=StrToFloat(TextBox4.Text);

y2:=StrToFloat(TextBox5.Text);

y3:=StrToFloat(TextBox6.Text);

a:= round(abs(x2-x1)*100)/100;

b:= round(abs(y3-y1)*100)/100;

c:= round(sqrt(sqr(a) + sqr(b))*100)/100;

s := round(a * b / 2*100)/100;

p:=round((a+b+c)*100)/100;;

TextBox7.Text:=FloatToStr(a);

TextBox8.Text:=FloatToStr(b);

TextBox9.Text:=FloatToStr(c);

TextBox12.Text:=FloatToStr(p);

TextBox11.Text:=FloatToStr(S);

end;

Розв’язування задачі в VB.NET

Код

Public Class Form1

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

End

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

TextBox6.Text = ""

TextBox8.Text = ""

TextBox9.Text = ""

TextBox11.Text = ""

TextBox12.Text = ""

End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

Dim X1 As Double = Convert.ToDouble(TextBox1.Text)

Dim Y1 As Double = Convert.ToDouble(TextBox2.Text)

Dim X2 As Double = Convert.ToDouble(TextBox3.Text)

Dim Y2 As Double = Convert.ToDouble(TextBox4.Text)

Dim X3 As Double = Convert.ToDouble(TextBox5.Text)

Dim Y3 As Double = Convert.ToDouble(TextBox6.Text)

Dim a As Double = Math.Abs(X2 - X1)

Dim b As Double = Math.Abs(Y3 - Y1)

Dim c As Double = Math.Round(Math.Sqrt(a * a + b * b) * 100) / 100

Dim p As Double = a + b + c

Dim s As Double = a * b / 2

TextBox8.Text = Convert.ToString(a)

TextBox10.Text = Convert.ToString(b)

TextBox12.Text = Convert.ToString(c)

TextBox11.Text = Convert.ToString(p)

TextBox9.Text = Convert.ToString(s)

End Sub

End Class

Розв’язування задачі в C#

Частина коду

private void button3_Click(object sender, EventArgs e)

{

System.Environment.Exit(0);

}

private void button2_Click(object sender, EventArgs e)

{

textBox1.Text = "";

textBox2.Text = "";

textBox3.Text = "";

textBox4.Text = "";

textBox5.Text = "";

textBox6.Text = "";

textBox13.Text = "";

textBox9.Text = "";

textBox10.Text = "";

textBox11.Text = "";

textBox12.Text = "";

}

private void button1_Click(object sender, EventArgs e)

{

double X1 = Convert.ToDouble(textBox1.Text);

double Y1 = Convert.ToDouble(textBox2.Text);

double X2 = Convert.ToDouble(textBox3.Text);

double Y2 = Convert.ToDouble(textBox4.Text);

double X3 = Convert.ToDouble(textBox5.Text);

double Y3 = Convert.ToDouble(textBox6.Text);

double a = Math.Abs(X2 - X1);

double b = Math.Abs(Y3 - Y1);

double c = Math.Round(Math.Sqrt(a * a + b * b) * 100) / 100;

double p = a + b + c;

double s = a * b / 2;

textBox13.Text = Convert.ToString(a);

textBox11.Text = Convert.ToString(b);

textBox9.Text = Convert.ToString(c);

textBox12.Text = Convert.ToString(p);

textBox10.Text = Convert.ToString(s);

}

Розв’язування задачі в Python

Код

from tkinter import *

def click ():

x1 = float (entry1.get())

y1 = float (entry2.get())

x2 = float (entry3.get())

y2 = float (entry4.get())

x3 = float (entry5.get())

y3 = float (entry6.get())

a =((x2-x1)**(2))**(1/2)

b =((y3-y1)**(2))**(1/2)

c =((b)**(2)+(a)**(2))**(1/2)

s = a * b/2

p = a+b+c

entry7.insert(0, c)

entry8.insert(0, s)

entry9.insert(0, p)

def click1 ():

entry1.delete(0, END)

entry2.delete(0, END)

entry3.delete(0, END)

entry4.delete(0, END)

entry5.delete(0, END)

entry6.delete(0, END)

entry7.delete(0, END)

entry8.delete(0, END)

entry9.delete(0, END)

root=Tk()

root.title('Прямокутний трикутник. Координатна площина')

root.geometry('500x600')

label = Label (text = 'Маємо прямокутний трикутник на декартовiй площинi.Вiдомi 3 точки.\n 1 точка - прямий кут.\n 2 - нижнiй кут (У будь-якому випадку - горизонтальна осi ОХ). \n 3 - верхнiй кут (У будь-якому випадку - горизонтальна осi ОY). \n Звiдки - y1=y2, x3=x1. Задача дiйсна коли катети паралельнi осям координат. \n Знайти площу, периметр та сторони трикутника.')

label.pack(pady = 10)

labe2 = Label (text = 'x1')

labe2.pack(pady = 1)

entry1 = Entry ()

entry1.pack (pady = 1)

labe3 = Label (text = 'y1 ')

labe3.pack(pady = 1)

entry2 = Entry ()

entry2.pack (pady = 1)

labe4 = Label (text = 'x2 ')

labe4.pack(pady = 1)

entry3 = Entry ()

entry3.pack (pady = 1)

labe5 = Label (text = 'y2 ')

labe5.pack(pady = 1)

entry4 = Entry ()

entry4.pack (pady = 1)

labe6 = Label (text = 'x3 ')

labe6.pack(pady = 1)

entry5 = Entry ()

entry5.pack (pady = 1)

labe7 = Label (text = 'y3 ')

labe7.pack(pady = 1)

entry6 = Entry ()

entry6.pack (pady = 1)

button = Button (text='Старт', command=click)

button.pack (pady = 10)

button = Button (text='Очистка', command=click1)

button.pack (pady = 1)

labe8 = Label (text = 'Гiпотенуза с ')

labe8.pack(pady = 1)

entry7 = Entry ()

entry7.pack (pady = 1)

labe9 = Label (text = 'Площа S ')

labe9.pack(pady = 1)

entry8 = Entry ()

entry8.pack (pady = 1)

labe10 = Label (text = 'Периметр p ')

labe10.pack(pady = 1)

entry9 = Entry ()

entry9.pack (pady = 1)

Розв’язування задачі в Scratch

VI етап. Дослідження отриманих результатів на реальність і на відповідність умові

Після одержання підсумкової програми маємо проаналізувати її реальність.

Якщо таке дослідження виявляє помилки, потрібно шукати їхні причини, виправляти їх і знову проходити етапи, наступні за тим, на якому виявилися помилки