0 Cara Mengobati Asma dengan Obat Tradisional

A. Bahan Ramuan menyembuhkan Asma dengan Daun-daunan

- Bahan

• Daun Seledri 3 tangkai
• Daun Randu 9 Lembar
• Garam dan Gula Aren secukupnya

Gambar Daun Randu

- Cara Penggunaan dan Pemakaian

• Semua bahan ditumbuk halus menjadi satu, kemudian masukkan ke dalam gelas, tambahkan air 1/2 gelar, aduk rata.
• Diminum setiap pagi, lakukan ini minimal 3 hari.

B. Bahan Ramuan menyembuhkan Asma dengan Bawang Putih dan Madu

- Bahan

• Bawang Putih 5 siung
• Madu asli 1 sendok makan

- Cara Penggunaan dan Pemakaian

• Bawang Putih diiris kecil-kecil lalu direbus dengan 1 gelas air biarkan hingga tinggal 1/2 gelas.  Masukkan madu ke dalam air rebus itu lalu diaduk
• Diminum sekali habis pagi hari.  Sorenya buat lagi, lakukan selama seminggu.
• Selain Cara Mengobati Asma dengan Obat Tradisional , diharapkan mandi dengan air hangat, tidur dan istirahat yang cukup, jangan merokok dan hindarkan udara dingin.

Read more

0 Turbo Pascal Window: Program Membalikkan Kata

Program Membalikkan;
uses wincrt;
var
   i,panjang:integer;
   kata,balik:string;
begin
     clrscr;
     writeln('Balik Kata');
     writeln('==========');
     writeln('Masukkan Sebuah Kata');readln(kata);
     panjang:=length(kata);
     balik:=' ';

     for i:=panjang downto i do
     balik:=balik+kata[i];
     writeln('Hasil Pembalikannya :',balik);
     readln;
end. 

Read more

0 Turbo Pascal Window: Program Bukan Nol

 Program Sederhana untuk menentukan bilangan tersebut 0 atau bukan... Konyol memang... tetapi penting sebagai dasar pembelajara. Haha... Check it out! Bentuk Program sebagai berikut:
Program BukanNol;
uses wincrt;
var
   x:integer;
begin
     clrscr;
     write('Masukkan Nilai 0!:');readln(x);
     while x<>0 do
     begin
     clrscr;
     write('Masukkan Nilai 0!:');readln(x);
     end;
write('Terima Kasih telah memasukkan nilai 0:)');
readln;
end.

Read more

0 Turbo Pascal Window: Password

Kadang untuk proteksi , password merupakan hal yang sangat penting. Dan ternyata, password juga dibuat menggunakan bahasa program. Contohnya sebagai berikut:
program password;
uses wincrt
var
    x:string;
begin
    clrscr;
    write('masukkan password! : ');readln(x);
    while x <> 'ampera' do
    begin
    clrscr;
    writeln('password anda salah');
    writeln;
    write('masukkan password! :');readln(x);
    end.
clrscr;
writeln('password anda benar!');
readln;
end.

Outputnya Jika kita memasukkan Kata yang salah (contoh di atas: bukan AMPERA) maka akan memunculkan pesan 'Password Anda Salah!' Kemudian perintah baru untuk memasukkan password kembali. Jika kita mengetikkan AMPERA maka akan keluar perintah 'Password Anda Benar.' ^^

Read more

2 Turbo Pascal Window: Deret Hitung Real Bentuk Segitiga Paskal

 Berikut adalah Program Pascal untuk membuat segitiga siku-siku namun dengan deret hitung bilangan real 1,2,3,4 dst. Check it out:
Program DeretAngkaSikuSiku;
uses wincrt;
var
   i,j,m:integer;
begin
     clrscr;
     write('Masukkan Sembarang Angka: ');readln(m);
     i:=1;
     while i<=m do
     begin
          j:=1;
          while j<=i do
          begin
               j:=j+0;
               write(j);
               inc(j);
          end;
          writeln;
          inc(i);
     end;
     readln;
end.

Read more

1 Turbo Pascal Window: Program Segitiga Pascal Dengan Inputan Apapun

Berikut adalah input koding untuk membuat program segitiga pascal dengan menggunakan variable tunggal apa saja yang dideret sebanyak 10 kali... ^^
berikut codingnya:
Program SegitigaSikuSiku;
uses wincrt;
var
   i,j:integer;
   m:char;
begin
     clrscr;
     write('Masukkan Sembarang Karakter: ');readln(m);
     i:=1;
     while i<=10 do
     begin
          j:=1;
          while j<=i do
          begin
               write(m);
               inc(j);
          end;
          writeln;
          inc(i);
     end;
     readln;
end.

Read more

1 Turbo Pascal Window: Membuat Segitiga Berbintang

Program BintangSegitiga;
uses wincrt;
var
   i,j,m:integer;
begin
     clrscr;
     write('Masukkan Sembarang Angka: ');readln(m);
     i:=1;
     while i<=m do
     begin
          j:=1;
          while j<=i do
          begin
               write('*');
               inc(j);
          end;
          writeln;
          inc(i);
     end;
     readln;
end.

Read more

4 Turbo Pascal Window: Segitiga Paskal Terbalik

Program SegitigaPascalTerbalik;
uses wincrt;
var
   a,b,c,d:integer;

begin
     clrscr;                
     write('masukkan angka : ');readln(a);
     c:=a;
     for b:=1 to a do
     begin
          for d:=1 to c do
          begin
          write('*');
     end;
     writeln;
     dec(c);
     end;
     readln;
end.

Read more

1 Turbo Pascal: Program Lengkap Membuat Perhitungan Mahasiswa

 Pada Mata Kuliah Paket Program Aplikasi, kami dari kelas Sistem 
Informasi diberikan tugas untuk membuat program dengan ketentuan sebagai
 berikut:

1. Pengecekan operator di mana operator harus dapat memasukkan username dan password yang benar jika ada. Maka proses itu akan berulang terus menerus. (while do)
2. Nilai yang diinputkan ada 4 macam aktivitas kelas, nilai tugas, nilai UTS dan nilai UAS
3. Untuk perhitungan grade didapatkan dari nilai akhir dengan perhitungan
4. Tampilkan nilai akhir mahasiswa, grade dan keterangan lulus (A-D), tidak lulus (E), dan gagal (x)

Berikut tampilang programnya:

Read more

0 Membuat Program Pembagian 1 sampai 10 T.Pascal

Buat teman2 yang lagi buat tugas kul membuat program pembagian 1 to 10 dengan turbo pascal ne aq kasih source code nya.

uses crt;

var

 a,b,c : integer;

 begin

 clrscr;

    a:=0;

    while a < 1 do

    begin

    a:=a+1;

    b:=0;

    while b < 10 do

    begin

    b:=b+1;

    c:=a div b;

    writeln(a,':',b,'=',c:3);

    end;

    writeln;

    end;

    readln;

    end.

Read more