PASCAL

PEMBELIAN BARANG: TEMPERATUR/SUHU,DERAJAT:

USES WINCRT; USES WINCRT;
VAR VAR
TOTA L : REAL; SUHU : INTEGR;
NAMA : STRING[25]; BEGIN
HARGA : INTEGER; WRITE( ‘SUHU’);
JUMLAH : INTEGER; READ ( SUHU );
BEGIN if suhu <0 then WRITE (‘NAMA BARANG’); write (‘ padat’) READ (NAMA); else WRITE (‘HARGA SATUAN’); if suhu > 0 then
READ (HARGA); if suhu <100 then WRITE (‘JUMLAH BARANG’); write (‘cair’) READ (JUMLAH); else TOTAL : = HARGA * JUMLAH; if suhu > 100 then
WRITE ( TOTAL : 4 : 2); write (‘uap’)
END. else
ABC(3BUAH): write (‘gas’)
USES WINCRT; end.
VAR
A,B,C : INTEGER;
BEGIN
WRITE (‘NILAI A’);
READ (A);
WRITE (‘NILAI B’);
READ (B);
WRITE (‘NILAI C’);
READ (C);
If A>B then
If A>C then
Else
Write (‘C lebih besar ‘)
Else
If B>A then
If B>C then
Write (‘B lebih besar’)
Else
Write (‘C lebih besar’)
end.