Program Dev Pascal 1 (suhu dan acak angka)

Program Dev Pascal 1
Contoh program dengan menggunakan bahasa pascal :

Program Konversi_Suhu;

Uses WinCrt;

     var f,c:real;

begin

     Writeln('Program Konversi Fareinheit Ke Celcius');

     Writeln('======================================');

     Writeln;

     Write('Masukan Suhu dalam Farenheit: ');readln(f);

                    c:=5/9*(f-32);

     Writeln;

     Writeln('Jadi Suhu Dalam Celcius Adalah: ',c:4:2);

readln;

end.

Program Menghitung_Jarak;

Uses crt;

var

 x1,x2,y1,y2:integer;

 d:real;

begin

 Writeln('Program Menghitung Jarak Titik A dan B');

 Writeln('======================================');

 Writeln;

 Write('Masukan Nilai A (X1): ');readln(x1);

 Write('Masukan Nilai B (X2): ');readln(x2);

 Write('Masukan Nilai A (Y1): ');readln(y1);

 Write('Masukan Nilai B (Y2): ');readln(y2);

 d:=sqrt(sqr(x2-x1)+sqr(y2-y1));

 Writeln;

 Writeln('Jadi Jarak Titik A ke B Adalah: ',d:4:2);

readln;

end.

Program Baris_4;

Uses Wincrt;

const

     akhir = 4;

var

   baris,kolom : integer;

   begin

   for baris := akhir downto 1 do

   begin

        for kolom := baris downto 1 do

        write(kolom);

        writeln;

   end;

   readln;

end.

program tampil_bilangan_ganjil;

uses crt;

var

   a: integer;

begin

   a := 1;

   repeat

      if (a mod 2) = 1 then // pengecekan sisa hasil pembagian 2, jika 1 bilangan genap

        write(a,' ');

      a := a + 1

   until a = 101; // pembatasan repeat

   readln;

end.

program perulangan_bintang ;

uses crt;

var

   a, b : integer;

begin

     clrscr;

     a:=1;

     while a<=5 do

     begin

          b:=1;

          while b<=a do

          begin

               write ('*':3);

               b:=b+1;

          end;

          writeln;

          a:=a+1;

     end;

     readln;

end.

Program Acak_Dengan_Repeat_Until;

Uses Crt;

Var

   Baris, Kolom : Byte;

Begin

     Clrscr;

     Repeat

           GotoXY(34,12);Write('Tekan Escape Selesai ...');

           Baris := Random(23);

           Kolom := Random(80);

           GotoXY(Kolom,Baris);Write('*',' Kolom ',Kolom,' Baris ',Baris);

           Delay(10);

     Until KeyPressed;

End.

Program Acak_dg_While_Do;

Uses Crt;

Const

     Escape = #27;

Var

   Baca : Char;

   Baris, Kolom : Byte;

Begin

     Clrscr;

     Baca :=' ';

     While Baca <> Escape Do

     Begin

          GotoXY(34,12);Write('Tekan Escape Selesai ...');

          Baris := Random(23);

          Kolom := Random(80);

          GotoXY(Kolom,Baris);Write('*',' Kolom ',Kolom,' Baris ',Baris);

          Baca := ReadKey;Clrscr;

     End;

End.

Program Menggeser_Bintang;

Uses Crt;

Var

        Bintang : Integer;

Begin

        Clrscr;

        For Bintang  := 5 to 23 do

        Begin

               Gotoxy(5,Bintang );

               Writeln('*');

               Delay (100);

        End;

        For Bintang := 5 to 75 do

        Begin

               Gotoxy(Bintang,23 );

               Writeln('*');

               Delay (100);

        End;

        For Bintang := 23 downto 5 do

        Begin

               Gotoxy(75,Bintang );

               Writeln('*');

               Delay (100);

        End;

        For Bintang := 75 downto 5 do

        Begin

               Gotoxy(Bintang,5 );

               Writeln('*');

               Delay (100);

        End;

readln;

End.





thank`s to my teacher :
www.andriputra.blogspot.com