Pemrograman Dasar dg Turbo Pascal

Pemrograman Dasar Dengan Turbo Pascal

Assalamu'alaikum warahmatullahi wabarakatuh.

Selamat pagi buat yang bacanya pagi, selamat siang buat yang bacanya siang, dan selamat malam tentunya buat yang bacanya malam, pokoe selamat dah, hehe.

Kali ini saya akan berbagi artikel tentang pemrograman menggunakan turbo pascal, kebetulan saya kuliah di Institut Teknologi Padang, Jurusan Teknik Informatika, sehingga Pemrograman Dasar ini juga merupakan salah satu mata kuliah dasar disana.

Ok, kita langsung saja.

program no1; {Konversi suhu}
uses wincrt;
var
  c,r,f:real;{soal no1}

begin
     write('Fahrenheit  : '); readln(f);
     c:=5/9*(f-32);
     r:=4/9*(f-32);
     writeln(f:1:0,' fahrenheit = ',c:1:0 ,' celcius,',r:1:0,' Reamur');
end.

program no3; {Keliling dan Luas Lingkaran}
uses wincrt;
const
     pi=3.14;
var
   r : integer;
   k,l : real;
begin
     write('Jari-jari : '); readln(r);
     k:=2*pi*r;
     l:=pi*sqr(r);
     writeln('Keliling Lingkaran = ',k:2:2);
     writeln('Luas lingkaran     = ',l:2:2);
end.

program soal_no_4;
uses wincrt;
var
   a,b : integer;
   l,c : real;

begin
     write('Siku-siku pertama   : ');readln(a);
     write('Siku-siku lainnya   : '); readln(b);
     l:=0.5*a*b;
     c:=sqrt(sqr(a)+sqr(b));
     writeln('Luas Segitiga Siku-siku           = ',l:1:2,' Satuan');
     writeln('Sisi Miring Segitiga Siku-siku    = ',c:1:2,' satuan');
end.


Program no_8;
uses wincrt;
var
   k,a, b, c : integer;
   s, l : real;
begin
     write('Sisi segitiga (a)   : '); readln(a);
     write('Sisi segitiga (b)   : '); readln(b);
     write('Sisi segitiga (c)   : '); readln(c);
     k:=a+b+c;
     s:=0.5*k;
     l:=sqrt(s*(s-a)*(s-b)*(s-c));   
     writeln('Keliling  = ',k);
     writeln('luas      = ',l:1:2);
end.

program no_9;
uses wincrt;
const
     pi=3.14;
var
   a,b,c : integer;
   s,r,l : real;
begin
     write('Sisi segitiga (a)   : '); readln(a);
     write('Sisi segitiga (b)   : '); readln(b);
     write('Sisi segitiga (c)   : '); readln(c);
     s:=0.5*(a+b+c);
     r:=(sqrt(s*(s-a)*(s-b)*(s-c)))/s;
     l:=pi*sqr(r);
     writeln('Jari-jari lingkaran dalam segitiga = ',r:1:2,' Satuan');
     writeln('Luas lingkaran dalam segitiga      = ',l:1:2,' Satuan');
end.  

program no_10;
uses wincrt;
const
     pi=3.14;
var
   a, b, c : integer;
   s, y, l : real;
begin
     write('Sisi segitiga (a) : '); readln(a);
     write('Sisi segitiga (b) : '); readln(b);
     write('Sisi segitiga (c) : '); readln(c);
     s:=0.5*(a+b+c);
     y:=(a*b*c)/4*(sqrt(s*(s-a)*(s-b)*(s-c)));
     l:=pi*sqr(y);
     writeln('Jari-jari Lingkaran         = ',y:2:2);
     writeln('Lua Lingkaran Luar Segitiga = ',l:2:2);
end.


program no_13;
uses wincrt;
var
   a, b, c, l, i : integer;

begin
     write('Rusuk balok ke (a)       : '); readln(a);
     write('Rusuk balok ke (b)       : '); readln(b);
     write('Rusuk balok ke (c)       : '); readln(c);
     l:=2*(a*b+a*c+b*c);
     i:=a*b*c;
     writeln('Luas Permukaan Balok = ',l);
     writeln('Sisi Balok           = ',i);
end.


program no_14;
uses wincrt;
const
     pi=3.14;
var
   r : integer;
   l,i : real;
begin
     write('Jari-Jari Bola : '); readln(r);
     l:=4*pi*sqr(r);
     i:=(4*pi*sqr(r)*r)/3;
     writeln('Luas Bola = ',l:2:2);
     writeln('Isi Bola  = ',i:2:2);
end.


program no_15;
uses wincrt;
const
     pi=3.14;
var
   r, t : integer;
   l, i : real;
begin
     write('Jari-jari Tabung : '); readln(r);
     write('Tinggi Tabung    : '); readln(t);
     l:=2*pi*sqr(r)+2*pi*r*t;
     i:=pi*sqr(r)*t;
     writeln('Luas Permukaan Tabung = ',l:2:2);
     writeln('Isi Tabung            = ',i:2:2);
end.


program no_17;
uses wincrt;
const
     pi=3.14;
var
   R, H : integer;
   L, I : real;
begin
     write('Jari-jari Bola      : '); readln(R);
     write('Tinggi Tembereng    : '); readln(H);
     L:=2*pi*R*H;
     I:=1/3*pi*sqr(H)*(3*R-H);
     writeln('Luas Tembereng Bola = ',L:2:2);
     writeln('Isi Tembereng Bola  = ',I:2:2);
end.


program no_18;
uses wincrt;
const
     pi=3.14;
var
   A, B, H : integer;
   L, I : real;
begin
     write('Jari-Jari Kerucut Terpancung (A) : '); readln(A);
     write('Jari-Jari Kerucut Terpancung (B) : '); readln(B);
     Write('Tinggi Kerucut Terpancung        : '); readln(H);
     L:=pi*(A+B)*H+pi*sqr(A)+pi*sqr(B);
     I:=1/3*pi*H*(sqr(A)+A*B+sqr(B));
     writeln('Luas Seluruh Permukaan = ',L:2:2);
     writeln('Isi Kerucut Terpancung = ',I:2:2);
end.

program no_19;
uses wincrt;
const
     pi=3.14;
var
   A, B : integer;
   L, I : real;
begin
     write('Jari-Jari Dalam (A)         : '); readln(A);
     write('Jari-Jari Luar  (B)         : '); readln(B);
     I:=1/4*sqr(pi)*(B+A)*sqr(B-A);
     L:=sqr(pi)*(sqr(B)-sqr(A));
     writeln('Isi Torus            = ',L:2:2);
     writeln('Luas Permukaan Torus = ',I:2:2);
end.
  

program no_20;
uses wincrt;
const
     pi=3.14;
var
   A, B : integer;
   L, K, I : real;
begin
     write('Sumbu (A)         : '); readln(A);
     write('Sumbu (B)         : '); readln(B);
     L:=pi*A*B;
     K:=2*pi*sqrt(0.5*sqr(A)+sqr(B));
     I:=pi*A*sqr(B);
     writeln('LuasElips      = ',L:2:2);
     writeln('Keliling Elips = ',K:2:2);
     writeln('Isi Elips      = ',I:2:2);
end.

program no_21;
uses wincrt;
var
   V0, a, t : integer;
   Vt, St   : real;
begin
     write('Kecepatan Awal    : '); readln(V0);
     write('Percepatan        : '); readln(a);
     write('Waktu             : '); readln(t);
     Vt:=V0+a*t;
     St:=V0*t+0.5*a*sqr(t);
     writeln('Kecepatan Saat t = ',Vt:2:2);
     writeln('Jarak Sesuadh t  = ',St:2:2);
end.


program no_22;
uses wincrt;
const
     g=9.8;
var
   m,v,h : integer;
   ep, ek : real;


begin
     writeln('1. Hitung Energi Kinetik'); writeln('2. Hitung Energi Potensial');
     writeln;
     writeln('Hitung Energi Kinetik');
     writeln;
     write('Massa             : '); readln(m);
     write('Kecepatan         : '); readln(v);
     writeln;
     writeln('Hitung energi Potensial');
     writeln;
     write('Ketinggian        : '); readln(h);
     ek:=0.5*m*sqr(v);
     ep:=m*g*h;
     writeln;
     writeln('Energi kinetik   = ',ek:1:2);
     writeln('Energi Potensial = ',ep:1:2);

end.


program no_23;
uses wincrt;
var
  v, R, I, w : integer;
begin
     write('Kuat Arus (Ampere) : '); readln(I);
     write('Tahanan (ohm)      : '); readln(R);
     v:=i*R;
     w:=v*I;
     writeln('Selisih Potensial = ',v,' Volt');
     writeln('Daya              = ',w,' Watt');
end.