Pemograman pascal : bilangan ganjil 1-100

Menampilkan bilangan ganjil dari angka 1 s/d 100 

    1. Beri Nilai A = 2.

    2. Untuk  I = 1 sampai 100 lakuka 

        2.1  Cetak Nilai A

        2.2 Jika A mod 2 = 1 , maka nilai A = bilangan ganjil

uses crt;

var I,A: integer;

begin

 A:=1;

 clrscr;

     for I:= 1 to 100 do

     begin

     if I mod 2= 1 then

     write(I:5);

   end;

     Readln;

 end.

Pascal Kelipatan 3 dari angka 1 s/d 20

uses crt;

var I,A: integer;

begin

  clrscr;

  A:=3;

  for I:=1 to 6 do

  begin

     writeln(A);

     A:=A+3

  end;

  Readln;

end.

Algoritma membuat pakaian

Algoritma untuk membuat sebuah pakaian jadi (baju atau celana) dari bahan mentah (kain) yang disediakan.

Jawab:

1. Siapkan alat dan bahannya

2. Buatlah pola sesuai model pakaian (baju atau celana) yang diinginkan

3. Guntinglah kain sesuai model pola

4. Obras pinggiran kain yang telah digunting tadi

5. Kemudian jahit kain yang telah diobras tadi untuk dibuat pakaian (baju atau celana)

Algoritma 3 pasang suami istri

Masing-masing pasangan disimbolkan dengan S₁ I₁, S₂ I₂, dan S₃ I₃

         Algoritmanya: 

         {di desa A: S₁, I₁, S₂, I₂, S₃, I₃ --- di desa B: belum ada} 

I₁ dan I₂ menyeberang ke desa B

         {di desa A: S₁, S₂, S₃, I₃ --- di desa B: I₁, I₂}

I₂ kembali ke desa A

        {di desa A: S₁, S₂, I₂, S₃, I₃ --- di desa B: I₁} 

I₂ dan I₃ menyebrang ke desa B

         {di desa A: S₁, S₂, S₃ --- di desa B: I₁, I₂, I₃}

I₃ kembali ke desa A

         {di desa A: S₁, S₂, S₃, I₃ --- di desa B: I₁, I₂}

S₁ dan S₂ menyeberang ke desa B

         {di desa A:  S₃, I₃ --- di desa B: S₁, I₁, S₂, I₂}

S₂ dan I₂ kembali ke desa A

         {di desa A: S₂, I₂, S₃, I₃ --- di desa B: S₁, I₁}

S₂ dan S₃ menyeberang ke desa B

         {di desa A: I₂, I₃ --- di desa B: S₁, I₁, S₂, S₃}

I₁ kembali ke desa A

         {di desa A: I₁, I₂, I₃ --- di desa B: S₁, S₂, S₃}

I₁ dan I₂ menyeberang ke desa B

           {di desa A: I₃ --- di desa B: S₁, I₁, S₂, I₂, S₃}

I₂ kembali ke desa A

         {di desa A: I₂, I₃ --- di desa B: S₁, I₁, S₂, S₃}

I₂ dan I₃ menyebrang ke desa B

         {di desa A: habis --- di desa B: S₁, I₁, S₂, I₂, S₃, I₃}

Algoritma untuk mengisi pulsa HP

• Voucher Elektrik

1. Ketik SMS berikut: kodenominal_pulsanomor_penerimaPIN
2. Masukkan nomor provider pulsa
3. Kirim
4. Pulsa otomatis masuk ke nomor penerima setelah SMS berhasil diterima oleh provider pulsa.

• Voucher Fisik

1. Gesek kartu untuk melihat kode voucher
2. Ketikkan kode voucher sesuai perintah (berbeda untuk tiap jenis Kartu SIM)
3. Lalu tekan yes/Ok/telp.
4. Pulsa otomatis bertambah sesuai nominal pada voucher.

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);

end.

Program Konversi Suhu Fareinheit Ke Celcius

Uses Crt;

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);

end.