Program Menentukan_Segitiga;
Uses crt;
Var A,B,C,X,Y:integer;
Begin
clrscr;
  Writeln('Program Menentukan Segitiga');
  Writeln('=========================');
  Writeln;
  Write('Masukkan Sisi A: ');readln(A);
  Write('Masukkan Sisi B: ');readln(B);
  Write('Masukkan Sisi C: ');readln(C);
  Writeln;
  X:=sqr(C);
  Y:=sqr(A)+sqr(B);
  if (X
    Writeln('Segitiga Lancip')
  else if (X=Y) then
    Writeln('Segitiga Siku-Siku')
  else
    Writeln('Segitiga Tumpul');
readln;
End.

kemudian Run, tekan Ctrl+F9
input bilangan kedalam program...
dan hasilnya :  




jika terjadi kesalahan dalam program, mohon di komen agar bisa kami perbaiki, oce kawan :D 

Silahkan dikembangkan lebih jauh lagi, karna kami hanya menyediakan program-program sederhana untuk dikembangkan oleh para pembaca sekalian...

mohon maaf apabila ada salah-salah kata dari kami ya!!
Terima Kasih  :D

Komentar

Posting Komentar

Postingan populer dari blog ini

candu

Hujan teriaknya kau akan sembuh teriaknya kau harus berhenti mengeluh teriaknya kau kembali menuntun hati untuk berhenti bersikukuh dari alur kehidupan yang berbicara sedih atau kebahagiaan yang diluap luap ? Hujan Bukan sederetan benda jatuh yang seakan menginjak nginjak Bukan ketidakpastian yang entah tak terhitung karena jamak Karena hujan rahmat yang diberikanNya Agar kita tidak lari dari alam semesta Hujan Mengingatkan ketika sosok dirimu tak lagi dikenali Bahkan oleh dirimu sendiri Coba berpaling lah sebentar Dari dia yang kau impikan itu Lantas ? Menghadaplah padaNya Maka akan kau temukan lagi Sosok yang kadang terlupakan Dia yang sejak awal menetapkan mu sebagai Impiannya. -Mochamad Yoss Antono- (14 November 2017 at 22:15) Bekasi
Baca selengkapnya

Pratikum Dasar pemograman (case of)

Gambar
Statemen Case Nama_Var Of :  Statemen Case NamaVar Of dipakai untuk penyeleksian berganda. NamaVar adalah nama variabel yang harus bertype ordinal seperti Char, byte atau integer. Padanan dengan If … Then , misalnya kita memiliki varibel Pil yang bertipe Char, dan dihadapi seleksi pilihan :   If Pil = ‘a’ Then Statemen2;   If Pil = ‘b’ Then Statemen2;   Dst ... Dapat ditulis dengan statemen Case … Of dengan syntax sbb : Case Pil Of ‘ a’ : Statemen1; ‘ b’ : Statemen2; End ;  contoh program case     PENYELEKSIAN KONDISI DENGAN IF BERSARANG     Bersarang bertujuan untuk mengkondisikan fungsi IF dalam IF, IF bersarang adalah gabungan fungsi IF Ganda contoh if bersarang  
Baca selengkapnya
20 oktober 2017 (Diksi Punya orang ) luka itu apa ? semiotika hati isyarat bunyi menukik seakan menguliti menerpa seakan meneriaki menggelegak memicu nurani luka itu apa? kabut kelam menyemut temaram luka ? bentuk metafora rasa sakit melembut hingga berbuah kebahagiaan karena luka sebuah anugerah isyarat kasih sayang sang Pencipta luluh melalui tangan lembut ucapan halus orangtua -Mochamad Yoss Antono-
Baca selengkapnya