Materi Dan Soal TIK SMA

tugas kelas xi

program

uses wincrt;
var
a1,a2,h:real; plh:integer;

kb:char; label qw;

begin

qw:
writeln;
writeln(' program kalkulator sedehana ');
writeln('++++++++++++++++++++++++++++++');
writeln('1. Program penjumlahan ');
writeln('2. Program pengurangan ');
writeln('3. Program perkalian ');
writeln('4. Program pembagian ');
writeln('==============================');
write('pilih program anda :');readln(plh);

if plh=1 then
begin
write('masukan angka pertama: ');readln(a1);
write('masukan angka kedua : ');readln(a2);
h:=a1+a2;
write('hasilnya adalah : ' ,h:2:0);
end;

if plh=2 then
begin
write('masukan angka pertama: ');readln(a1);
write('masukan angka kedua : ');readln(a2);
h:=a1-a2;
write('hasilnya adalah : ' ,h:2:0);
end;

if plh=3 then
begin
write('masukan angka pertama: ');readln(a1);
write('masukan angka kedua : ');readln(a2);
h:=a1*a2;
write('hasilnya adalah : ' ,h:2:0);
end;

if plh=4 then
begin
write('masukan angka pertama: ');readln(a1);
write('masukan angka kedua : ');readln(a2);
h:=a1*a2;
write('hasilnya adalah : ' ,h:2:0);
end;

writeln;
writeln('+++++++++++++++++++++++++');
writeln('anda mau menjalankan lagi :');
kb:=readkey;
if kb='y' then goto qw;
writeln;
end.

silabus tik x-xii

resume

while-do dan repeat-until