program akar;
Uses Wincrt;
var pilih:char;

procedure penjumlahan;
var bil1,bil2:integer;
hasil:real;
begin
write(‘Anda memasuki program penjumlahan pada akar’);
writeln;
writeln(‘Masukan bil1 yang diakar:’);
read(bil1);
writeln(‘Masukan bil2 yang diakar:’);
read(bil2);
hasil:=sqrt(bil1)+sqrt(bil2);
writeln(‘Hasil jumlah bil1 dan bil2 adalah:’,hasil:2:4);
end;

procedure Pengurangan;
var bil1,bil2:integer;
hasil:real;
begin
writeln(‘Operasi akar bagian pengurangan’);
writeln;
writeln(‘Bil1 yang diakar:’);
read(bil1);
writeln(‘Bil2 yang diakar:’);
read(bil2);
hasil:=sqrt(bil1)-sqrt(bil2);
writeln(‘Hasil pengurangan dari bil1 dan bil2 adalah:’,hasil:2:4);
end;

procedure Perkalian;
var bil1,bil2:integer;
hasil:real;
begin
writeln(‘Operasi akar bagian perkalian’);
writeln;
writeln(‘Masukan bil1 yang diakar:’);
read(bil1);
writeln(‘Masukan bil2 yang diakar:’);
read(bil2);
hasil:=sqrt(bil1)*sqrt(bil2);
writeln(‘Hasil kali bil1 dan bil2 adalah:’,hasil:2:4);
end;

procedure Pembagian;
var bil1,bil2:integer;
hasil:real;
begin
writeln(‘Operasi akar bagian pembagian’);
writeln;
writeln(‘Bil1 yang diakar:’);
read(bil1);
writeln(‘Bil2 yang diakar:’);
read(bil2);
hasil:=sqrt(bil1)/sqrt(bil2);
writeln(‘Hasil bagi bil1 dan bil2 adalah:’,hasil:2:4)
end;

begin
write(‘Pilih operasi yang ada inginkan [1]Penjumlahan,[2]Pengurangan,[3]Perkalian,[4]Pembagian:’);
readln(pilih);
clrscr;
case pilih of
‘1’:penjumlahan;
‘2’:pengurangan;
‘3’:perkalian;
‘4’:pembagian;
else
write(‘Maaf, tidak tersedia’);
end;
End.

 

program urut_angka;
uses wincrt;
var angka:integer;

begin
angka:= 0;
while angka<100 do
begin
angka:=angka+1;
writeln(angka);
end;
end.

program urut_angka;
uses wincrt;
var angka:integer;

begin
angka:= 1;
repeat
angka:= angka+1;
writeln(angka);
until angka>100;
end.