Cari
×

Daftarkan diri

Use your Facebook account for quick registration

OR

Create a Shvoong account from scratch

Already a Member? Masuk!
×

Masuk

Sign in using your Facebook account

OR

Not a Member? Daftarkan diri!
×

Daftarkan diri

Use your Facebook account for quick registration

OR

Masuk

Sign in using your Facebook account

Halaman Utama Shvoong>Sains>Matematika>Program pascal menghitung luas segitiga, lingkaran dan bintang

Program pascal menghitung luas segitiga, lingkaran dan bintang

oleh: afauzi266     Pengarang : feri
ª
 
program tugas_prokom1;
uses wincrt;
var pil,ulang:char;
r,a,t,hasil1,hasil2:real;
n,baris,i:integer;
const phi=3.14;
begin
repeat
writeln('MENU PILIHAN':25);
writeln('=======================================');
writeln('pilih 1 untuk menghitung luas lingkaran');
writeln('pilih 2 untuk menghitung luas segitiga');
writeln('pilih 3 untuk membuat bintang');
writeln('=======================================');
write('Pilihan Anda: '); readln(pil);
if pil='1' then
begin
writeln('"menghitung luas lingkaran"':30);
write('panjang jari-jari : ');readln(r);
hasil1:= phi*sqr(r);
writeln('luas= 3.14 x',r:0:2,' x',r:0:2,' =',hasil1:8:2);
end
else
if pil='2' then
begin
writeln('"menghitung luas segitiga"':30);
write('panjang alas : ');readln(a);
write('tinggi : ');readln(t);
hasil2:=1/2*a*t;
writeln('luas = 1/2 x',a:0:2,' x',t:0:2,' =',hasil2:8:2);
end
else
if pil='3' then
begin
writeln('"membuat gambar bintang"':30);
write('masukkan angka: ');readln(n);
for baris:=1 to n do
write('*');
end
else
writeln('======anda salah pencet======');
writeln;
writeln('=============================');
write('mau pilih lagi ? Y atau T: ');readln(ulang);
clrscr;
until(ulang='T') or (ulang='t');
gotoxy(20,10);writeln('terima kasih telah menggunakan program ini':40);
end.

Huft, susah lho bljr pascal . . . .
Kalo uda mahir mah gampang . . .
ni aku punya contoh program kalkulator dengan TPW 1.5
uses wincrt;

var
a,c,d : integer;
operator, z:char;
begin

repeat
clrscr;
Writeln('PETUNJUK:');
Writeln('1. Masukkan angka pertama');
Writeln('2. Masukkan operator (+, -, /, *)');
Writeln('3. Masukkan Angka kedua');

Writeln('PERHITUNGAN: ');

Write('Masukkan angka: '); readln(a);
write('Operator: '); readln(Operator);
write('Angka ke dua: '); readln(c);

case operator of
'+': d:=a + c;
'-': d:=a - c;
'/': d:=a div c;
'*': d:=a * c;
end;

writeln('Hasil: ',d);
writeln;
Write('Hitung lagi? (y/n) '); readln(z);

until Upcase(z) <> 'Y';

uses wincrt;
var x,y,hasil:real;
jawab:char;
begin
write ('masukan angka ke-1:');readln (x);
write ('pilih operator: (+)/(-)/(*)/(/)');readln (jawab);
write ('masukan angka ke-2:');readln (y);
if ( jawab= '+') then
begin
hasil:= x+y
end;
if ( jawab = '-') then
begin
hasil:= x-y
end;
if ( jawab = '*') then
begin
hasil:= x*y
end;
if (jawab='/') then
begin
hasil:= x/y
end;
write ('hasilnya: ',(hasil):5:2);
end.
Diterbitkan di: 13 Juli, 2012   
Mohon dinilai : 1 2 3 4 5
  1. Menjawab   Pertanyaan  :    Ada contoh program bintang miring nggak? Lihat semua
  1. Menjawab   Pertanyaan  :    - Buat identifier untuk phi dengan tipe konstanta, untuk yang lainnya dengan tipe variabel - Rumus: Luas lingkaran = phi*(jari2*jari2) Luas segitiga = (luas*tinggi)/2 ---> gunakan div untuk p Lihat semua
Terjemahkan Kirim Link Cetak
X

.