Nilai Kalimat Matematik | Free Pascal | Latihan

Karena di judul udah di tulis L A T I H A N, maka langsung aja cek soalnya.
Soalnya seperti berikut ini.

Seseorang memberikan Anda sebuah kalimat matematika sederhana. Tentukan nilainya.

Format Masukan

Sebuah baris berisi sebuah kalimat matematika dalam bentuk "A op B", dengan A dan B adalah bilangan bulat (-10.000 ≤ A, B ≤ 10.000) dan op adalah sebuah karakter yang merupakan salah satu dari '+', '-', '*', '<', '>', dan '='.

Format Keluaran

Sebuah baris berisi nilai dari kalimat matematika tersebut. Apabila op merupakan '+', '-', atau '*', cetak hasil dari operasi matematika tersebut. Apabila op merupakan '<', '>', atau '=', cetak "benar" apabila kalimat matematika tersebut bernilai benar dan cetak "salah" apabila kalimat matematika tersebut bernilai salah.

Input

100 - 50

Output

50

Contoh Input

-6 < 4

Contoh Output

benar

Contoh Input

16 < 4

Contoh Output

salah

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a,b : longint;
        op1, op, op2 : char;
 
begin
  read(a);
  read(op1);
  read(op);
  read(op2);
  read(b);
  if op = '+' then writeln(a+b) else
  if op = '-' then writeln(a-b) else
  if op = '*' then writeln(a*b) else
  if op = '<' then
        begin
          if a < b then writeln('benar') else writeln('salah')
        end
        else
  if op = '>' then
        begin
          if a > b then writeln('benar') else writeln('salah')
        end
        else
  if op = '=' then
        begin
          if a = b then writeln('benar') else writeln('salah')
        end
end.

Petunjuk

Karena dalam satu baris Anda harus membaca dua buah bilangan dan tiga buah karakter, yaitu A, spasi, op, spasi, dan B, maka Anda harus menyebutkan satu demi satu masukan tersebut dalam perintah readln, sebagai berikut:

readln(A, sp, op, sp, B);

Variabel dummy sp diperlukan untuk 'membaca' karakter spasi. Disebut dummy karena setelah dibaca lalu diabaikan.

Setelah itu lakukan operasi sesuai yang diminta soal.