TUGAS ANDEKA ANDEKI

Bray bisa bantu kh tugas andeca andeci
yg hrus makek ada IF , Case
For, Repeat, While

bsa minta contoh'a atau pun yg udah jd

jumaat trakhir

Alfi Haryadi wrote:Bray bisa bantu kh tugas andeca andeci
yg hrus makek ada IF , Case
For, Repeat, While

bsa minta contoh'a atau pun yg udah jd

jumaat trakhir

Ini sedikit penjelasan mengenai yang saudara Alfi tanyakan..



Yang pertama mengenai penggunaan "IF (Percabangan)"

Percabangan "IF..ELSE" digunakan untuk pengujian sebuah kondisi.
Jika kondisi yang diuji tersebut terpenuhi, maka program akan menjalankan pernyataan-pernyataan tertentu. Jika kondisi yang diuji itu salah, maka program akan menjalankan pernyataan yang lain. Contohnya :

Code:

Uses Crt;
Var
 Nil1, Nil2 : Integer;
 NilRata    : Real;
Begin
  ClrScr;
  Write('Masukan Nilai 1 : ');
  ReadLn(Nil1);
  Write('Masukan Nilai 2 : ');
  ReadLn(Nil2);
  NilRata := (Nil1 + Nil2)/2;
  WriteLn('Nilai Rata-Rata = ', NilRata:5:2);
  IF NilRata >= 60 THEN
    WriteLn('Hasilnya = Lulus')
  ELSE
    WriteLn('Hasilnya = Gagal');
 ReadLn;
End.

Nih Contoh lainnya menghitung berat badan:

Code:

Program Berat_badan ;

uses crt ;
var berat : integer ;
begin
write ( ‘ masukkan berat badan : ‘ ); readln (berat) ;
if berat > 37 then
writeln (‘berat’);
else
writeln ( ‘ kurus ‘ ) ;
readln ;
end.

Penjelasan yang lainnya nyusul bos ya..

soalnya Travel udah mw berangkat...

Maaffffff.......

Yang lain mungkin bisa nambahin...