Senin, 08 April 2013

Fungsi IF, Then dan Else Pada Pascal (2)


Pascal
Nah, bagaimana dengan jawaban anda pada soal dibagian pertama?
Jawaban :

program harga_jeruk;
uses crt;

var a : integer;
begin
writeln('Masukkan jumlah jeruk=');
readln(a);
If a<5 then write('Harga jeruk ='a*1750) 
else 
write('Harga jeruk='a*1500);
readln;
end.

PAHAM?

Ok, sekarang kita lanjut dengan soal berikutnya:

Buatlah program untuk memunculkan kata = bilangan genap dan ganjil, serta 0 = bilangan netral, contoh : 5 = bilangan ganjil, 6=bilangan genap..



Jawaban :

Untuk mengetahui apakah suatu bilangan ganjil atau genap, kita menggunakan mod. Mod adalah sisa pembagian. Sisa pembagian bilangan genap dengan 2 adalah 0. Jadi programnya adalah sebagai berikut:

program bilangan_ganjil_genap;
uses crt;
var a:integer;
begin
clrscr;
writeln('Masukkan angka=');
readln(a);
If a = 0 then write(a,'adalah bilangan netral')
else
If a mod 2 = 0 then write(a,'Adalah bilangan genap') 
else 
if write(a,'adalah bilangan ganjil');
readln;
end. 

----------------------------------------------------------------------------------------------------------------------
Sudah paham? Nah, sebagai latihan, saya berikan satu soal, simak soalnya :

Buatlah program untuk konversi nilai angka menjadi nilai huruf jika:
Nilai 0-50 -> A
Nilai 51-75->B
Nilai 76-100->C

OK? Tunggu di postingan selanjutnya... ^_^Share it^_^ 

Previous Fungsi If Then dan Else Pada Pascal
Next Soal If Pascal dan Jawabannya

5 komentar :

  1. aku ank rajawali juga, mau nanya
    bgaimna cra membuat program pascal yg outputx:

    program penerimaan siswa baru
    Nama :nama anda
    Kelas:kelas anda

    input
    nilai x: 65.00
    nilai y:72.25

    output
    nilai prestasi : 60.29
    hasil : cadangan

    NB: itu ankanya gak tetap bisa diganti ganti klo di run

    BalasHapus
    Balasan
    1. Salam Kenal...

      Itu yang dikasih Ibu Marlin kalo x =60% dan y = 40%.
      Jadi,

      program penerimaan_siswa_baru;
      uses crt;
      var a,b,x,y:real;
      begin
      clrscr;
      writeln('Program penerimaan siswa baru');
      writeln('Nama : Nama Anda sendiri');
      writeln('Nama : Kelas Anda sendiri');
      writeln;
      writeln('Input');
      write('Nilai X=');
      readln(x);
      write('Nilai y=');
      readln(y);
      a:=0.6*x;
      b:=0.4*y;
      writeln;
      writeln('Output');
      writeln('Nilai Prestasi =',a+b:0:2);
      if a+b >=70 then write('Hasil : Anda Lulus')
      else
      if a+b >= 50 then write('Hasil : Cadangan')
      else
      write('Hasil : Anda tidak diterima');
      readln;
      end.

      Ok? Semoga membantu....

      Hapus
  2. minta bantuannya dong :/

    prosedur untuk menghitung jumlah N buah bilangan genap pertama (bilangan genap dimulai dari 0). prosedur menerima parameter masukan N dan memberikan parameter keluaran jumlah N buah bilangan genap pertma.

    tolong di bantu yaa..

    BalasHapus
    Balasan
    1. Ini bahasa C atau bahasa Pascal ?

      Lebih gampang sih kalo pake Bahasa C:

      Algoritma
      Program Bilangan {Hitung Bilangan N genap}

      Deklarasi:
      Jml_genap, N, i : integer
      Read(N)
      Procedure hitungbilangangenap(input N: integer, output Jml_genap : integer)
      Write(jml_genap)

      algoritma
      Jml_genap = 1
      For iç0 up to N do
      If I mod 2 = 0 then jml_genap = jml_genap + 1
      End for

      Terjemahan Alogirtma :

      #include
      #include
      void bilangan_Genap(int n, int *j);

      int main()
      {
      int n, j;

      printf("Bilangan Tertingi :"); scanf("%d", &n);
      bilangan_Genap(n, &j);
      printf("\nJumlah bilangan genap \t:%d", j);
      getch();
      return 0;
      }

      //procedur
      void bilangan_Genap(int n, int*j)
      {
      int i;
      *j = 0;
      printf("Data Bilangan Genap\t:");
      for (i=1; i<=n; i++)
      {
      if (i % 2 == 0)
      *j = *j +1;
      }
      }

      Semoga Membantu

      Hapus

DILARANG MENGGUNAKAN SARA DAN BERKOMENTARLAH DENGAN BAIK