paskal 1

tugas paskal 1 ini adalah sebuh contoh program pada paskal yang saya buat dahulu 


program tugas1;

uses crt;

var penambahan,pengurangan,perkalian,pembagian,x,y,hasil :integer;

    bagi : real;

    A,B,C,D,angka : char;

label atas;

begin

atas:

clrscr;

writeln('APLIKASI PERHITUNGAN');

writeln('');

writeln('PILIHLAH MENU YANG ANDA SUKA!');

writeln('');

writeln('A.Penambahan');

writeln('B.Pengurangan');

writeln('C.Perkalian');

writeln('D.Pembagian');

readln(angka);

case (angka) of

'A':writeln('menghitung penambahan');

'B':writeln('menghitung pengurangan');

'C':writeln('menghitung perkalian');

'D':writeln('menghitung pembagian');

else

write('Silakan Ulangi Lagi'); readln;

goto atas;

end;

if(angka='A') then

 begin

write('Masukan nilai 1 = ');readln(x);

write('Masukan nilai 2 = ');readln(y);

hasil:=x+y;

writeln('hasilnya = ',hasil);

end else if(angka='B')then

 begin

write('Masukan nilai 1 = ');readln(x);

write('Masukan nilai 2 = ');readln(y);

hasil:=x-y;

writeln('hasilnya = ',hasil);

end else if(angka='C')then

 begin

write('Masukan nilai 1 = ');readln(x);

write('Masukan nilai 2 = ');readln(y);

hasil:=x*y;

writeln('hasilnya = ',hasil);

end else if(angka='D')then

 begin

write('Masukan nilai 1 = ');readln(x);

write('Masukan nilai 2 = ');readln(y);

bagi:=x/y;

writeln('hasilnya = ',bagi);

end;

readln;

end.

Title Post: paskal 1
Rating: 100% based on 99998 ratings. 5 user reviews.
Author: bagashp

Terimakasih sudah berkunjung di blog BagZT , Jika ada kritik dan saran silahkan tinggalkan komentar dibawah