How to determine the type of triangle using Pascal/Cara Menentukan Jenis Segitiga dengan menggunakan Pascal

in #utopian-io7 years ago (edited)

What Will I Learn?

We will learn how to determine whether a triangle-shaped triangle Taper or a right triangle or Obtuse triangle.

Kita akan mempelajari cara untuk menentukan apakah sebuah segitiga itu berbentuk segitiga Lancip atau segitiga siku-siku atau segitiga Tumpul.

3.jpg
gambar diatas merupakan contoh sebuah segitiga lancip.

4.jpg
gambar diatas merupakan contoh sebuah segitiga Tumpul.

5.jpg
gambar diatas merupakan contoh sebuah segitiga Siku-siku

Untuk mengikuti tutorial ini, anda harus menginstalasi program Free Pascal atau fpc.
dan anda harus mengetahui dasar-dasar bahasa pemograman pascal.

Free Pascal is one type of programming that is widely used among education, health, the company and others. of the many types of existing programming, I am using free pascal because according to my commandments easy to remember and more practical.
in the world of education, especially math lessons, free Pascal is widely used to resolve quickly the results of a calculation that uses mathematical formulas that are available, such as determining the area of a triangle, calculate the area circle and others.
application to calculate the area of a triangle is already widely available and is the basic levels in learning programming, we will make a calculation application which can declare that the result is kind of one of the triangles, for example, an equilateral triangle, triangle obtuse triangle or taper.

Free Pascal merupakan salah satu jenis pemograman yang banyak digunakan di kalangan pendidikan, kesehatan, perusahaan dan lain-lain. dari sekian banyak jenis pemograman yang ada, saya menggunakan free pascal karena menurut saya perintah-perintahnya mudah di ingat dan lebih praktis.
didalam dunia pendidikan, khususnya pelajaran matematika, free pascal banyak digunakan untuk menyelesaikan secara cepat hasil dari sebuah perhitungan yang menggunakan rumus-rumus matematika yang tersedia, seperti menentukan luas segitiga, menghitung luas lingkaran dan lain-lain.
aplikasi untuk menghitung luas segitiga sudah banyak tersedia dan merupakan tingkatan dasar dalam belajar pemograman, kita akan membuat sebuah aplikasi perhitungan yang dapat menyatakan bahwa hasil hitungan tersebut merupakan jenis dari salah satu segitiga, misalnya segitiga sama sisi, segitiga tumpul ataupun segitiga lancip.
berikut ini adalah script untuk menentukan jenis segitiga
Program Menentukan_Jenis_Segitiga
Uses wincrt;
Var A,B,C,X,Y:integer;
Begin
Writeln<'Program Menentukan Jenis Segitiga dibuat oleh raghib'>;
Writeln<'============================================'>;
Write<'Input Panjang Sisi A: '>;readln;
Write<'Input Lebar Sisi B: '>;readln;
Write<'Input Panjang Sisi C: '>;readln;
Writeln;
X:=sqr;
y:=sqr+sqr;
if <x then
Writeln<'Ini adalah jenis Segitiga Lancip'>
else if <x=y> then
Writeln<'Ini adalah jenis Segitiga Siku-siku'>
else
Writeln<'Ini adalah Jenis Segitiga Tumpul'>
End.

2.jpg

setelah script selesai di ketikkan, maka kita akan jalan program tersebut dengan terlebih dahulu menekan tombol Compile --> Compile, kemudian baru tekan tombol Alt + F9 untuk run
6.jpg

hasil dari program tersebut sebagai berikut;
kita akan inputkan nilai dari ketiga sisi segitiga, setelah itu tekan enter, maka akan keluar hasil seperti pada gambar berikut;
1.jpg

7.jpg

untuk gambar segitiga diatas saya mengambilnya pada link berikut
https://segitigasmp.wordpress.com/jenis-jenis-segitiga/
dan jika anda ingin mempelajari lebih lanjut mengenai segitiga, anda dapat mengunjugi link tersebut.

Sort:  

Thank you for your contribution, yet it cannot be approved because it does not follow the Utopian Rules.

  • The code you included within your post does not match the examples/screenshots you are providing.
  • You did not properly explain the code to illustrate you being the person who wrote it.

You can contact us on Discord.
[utopian-moderator]

Hey @mcfarhat, I just gave you a tip for your hard work on moderation. Upvote this comment to support the utopian moderators and increase your future rewards!

ok, I will do that, thank's for your tip

ok @mcfarhat, thank you for your correction, it's my false to direct write code before see examples/screenshots, but I say to you if my article is original, just little false,
it's ok, maybe make me better for the next time

Coin Marketplace

STEEM 0.18
TRX 0.16
JST 0.029
BTC 76606.02
ETH 3048.30
USDT 1.00
SBD 2.62