PROGRAM ARITMATIKA DENGAN FLOWCHART

PROGRAM ARITMATIKA DENGAN FLOWCHART

Program matematika;

 uses wincrt;

 var

 a,b,d,e : integer;

 c:real;

 lagi:char;

 begin

 repeat

 clrscr;

 writeln('PROGRAM OPERASI MATEMATIKA : ');

 writeln('*************************** : ');

 write('masukan angka pertama : ');readln(a);

 write('masukan angka kedua : ');readln(b);

 writeln('pilih operasi : ');

 writeln('Operasi Pengurangan : 1 ');

 writeln('Operasi Penjumlahan : 2 ');

 writeln('Operasi Perkalian : 3 ');

 writeln('Operasi Pembagian : 4 ');

 write('masukan pilihan anda :');read(d);

 if d=1 then

 begin

 c:=(a-b);

 writeln('Hasil dari ',a,' - ',b,' adalah ',c:0:0);

 end;

 if d=2 then

 begin

 c:=(a+b);

 writeln('Hasil dari ',a,' + ',b,' adalah ',c:0:0);

 end; if d=3 then

 begin

 c:=(a*b);

 writeln('Hasil dari ',a,' * ',b,' adalah ',c:0:0);

 end;

 if d=4 then

 begin

 c:=(a/b);

 writeln('Hasil dari ',a,' : ',b,' adalah ',c:0:0);

 end;

 writeln;

 write ('Apakah anda ingin mencoba lagi? (y/n)'); readln (Lagi);

 until Lagi = 'y';

 end.

 

BERIKUT FLOWCHART PROGRAM DIATAS