Tugas pascal3

Praktikum 3

Membuat program matematika sederhana dengan eksekusi lebih dari satu kali

Program1 penjumlahan
Uses wincrt;
Var
Angka1,Angka2,Hasil:real;
K:Char;
Label A;
Begin
A:
Write(‘masukan angka 1’);readln(Angka1);
Write(‘masukan angka 2’);readln(Angka2);
Hasil:= Angka1+Angka2;
Writeln(‘Hasil jumlahnya adalah : ’ ,Hasil);
Writeln(‘anda ingin lagi :’);K:=readkey;if K=’y’ then goto A;
End.

Tugas anda
Buatlah progam dengan eksekusi lebih dari 1 kali pengurangan , pembagian, dan perkalian