Menentukan bilangan genap atau ganjil dengan free pascal


Program menentukan bilangan Genap atau Ganjil, dengan memasukan bilangan :

Program JenisBil;

var
x, sisa : integer;
ket : string;

Begin

Write (‘Masukan semua Bilangan : ‘); Readln (x);

sisa := x mod 2;

if sisa = 0 then ket := ‘Genap’ else ket := ‘Ganjil’;

write (‘Jadi jenis bilangan adalah :’); write (ket);

end.

5 thoughts on “Menentukan bilangan genap atau ganjil dengan free pascal

  1. { Program : suhu.pas }
    { Dibuat oleh : Wahyudin }
    { Tanggal : 3 Juli 2009 }
    { ————————— }
    { Temperatur dalam derajat Farenheit, diubah dalam derajat Celsius dan }
    { derajat Reaumur }

    Program suhu;

    Uses crt;

    Var
    F,C,R : Real;

    Begin
    write (‘Suhu dalam Derajat Farrenheit : ‘);
    readln (F);

    C := (5/9) * (F – 32);

    R := (4/9) * (F – 32);

    writeln (‘Suhu dalam Celsius : ‘+C:0:2);
    writeln (‘Suhu dalam Reamur : ‘+R:0:2);

    end.

  2. program yang menarik,, namun coba dipratikan kembali,, karena ada sedikit kesalahan di

    writeln (’Suhu dalam Celsius : ‘+C:0:2);
    writeln (’Suhu dalam Reamur : ‘+R:0:2);

    yang seharusnya :

    writeln (‘Suhu dalam Celsius : ‘,+C:0:2);
    writeln (‘Suhu dalam Reamur : ‘,+R:0:2);

    thanks so much…!!!

  3. Gan … sy mau nanya… butuh koreksi …sy bkin program Menentukan Bilangan Ganjil/genap dgn menggunakan Perulangan… gini kerja saya :
    program bilangan Ganji;
    uses crt;
    var
    i,b,n,batas: integer;
    begin
    clrscr;
    write(‘Input angka = ‘);readln(batas);
    gotoxy(5,5); writeln(‘GENAP’);
    for i := 1 to batas do
    begin

    if (i mod 2 = 0) then
    writeln(i, ‘ ‘);
    end;
    gotoxy(15,5);writeln(‘GANJIL’);
    for i:= 1 to batas do
    begin

    if (i mod 2 =1 ) then
    writeln(i, ‘ ‘);
    end;

    readln;
    end.

    itu script udh bisa berjalan tp tdk sesuai dng keinginan… maunya sih kaya’ Gini outputnya :

    Input angka = 10
    Genap Ganjil
    2 1
    4 3
    6 7
    8 9
    10
    total = total=

    nah listing yg sy buat itu nggak bgtu jadi’y dia kaya’ gini =
    Input angka = 10
    genap
    2
    4
    6
    8
    ganjil
    1
    3
    5
    7
    9

    sy pake gotoxy tapi aneh hasil’y…cuma 1 angka saja yang muncul yg lain nggak keliatan…

    mohon pencerahahnnya… alx ku baru nie belajar …🙂

    • program bilangan_Ganjil;

      uses crt;

      var
      i,batas,tganjil,tgenap: integer;

      begin
      clrscr;
      write(‘Input angka =’);readln(batas);
      writeln(‘Ganjil Genap’);

      tganjil := 0; tgenap := 0;
      for i := 1 to batas do
      begin
      if (i mod 2 0) then
      begin
      write(i, ‘ ‘);
      tganjil := tganjil+1;
      end
      else
      begin
      writeln(i);
      tgenap := tgenap+1;
      end;
      end;
      writeln(‘ ‘);
      write(‘Total:’,tganjil);writeln(‘ Total:’,tgenap);
      writeln(‘ ‘);
      end.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s