SenjaSajak

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-sala...

Wanita itu !! Wanita, Selendang keimanan penegak kehormatan ilmu pengetahuan pelengkap keelokan cinta kasih pemancar kelembutan Sahabat, Wanita muda hari ini adalah peradaban yang akan menjad sandaran kemajuan karena dari rahimnya yang sucikan terlahirnya pemimpin-pemimpin besar yang akan mengisi ruang sejarah hari esok maka... Wanita hari ini mestilah mulia dan dimuliakan Wanita mulia buka dengan pujian Bukan pula dengan sanjungan Wanita mulia hari ini adalah yang menjaga kehormatan dirinya yang terus menerus belajar dengan kesungguhan seimbang antara iman,ilmu dan amal terus berkarya sesuai kemampuan BUKAN !! Bukan wanita ya bersembunyi dibalik topeng "emansipasi" Menuntut kesamaan derajat dengan kaum Adam disemua bidang dari hobi,pekerjaan bahkan bidang olahraga Bangga eksis menjadi wanita karir padaha anak menderita memepertontonkan aurat demi memuaskan syahwat Dekat dengan rakyat demi menjadi wakil rakyat padahal bejad tuntutan Quran jauh dari kehidupan na'udzubilla...