Materi Dan Soal TIK SMA

Percobaan 1

uses wincrt;
var
A,B,C:REAL;

BEGIN
WRITELN('PENJUMLAHAN');
WRITE('MASUKKAN A : ');READLN(A);
WRITE('MASUKKAN B : ');READLN(B);
C:=A+B;
WRITELN('JADI JUMLAHNYA : ' ,C:2:2);
END.

perulangan sederhana deret aritmatika 1-2-3-4-5 diselesaikan dengan

 1. for-to do

uses wincrt;
var
i:integer;

begin
for i:=1 to 5 do
writeln(i);
end.

2. while do

uses wincrt;
var
i:integer;
begin
i:=0;
while i<=4 do
      begin
      i:=i+1;
      writeln(i);
      end;
end.

Program predikat nilai

uses wincrt;
var

nilai:integer;
ket:string[6];

begin
writeln('hasil ulangan');
write('masukkan nilai  : ');readln(nilai);
if nilai>90 then ket:='A' else
if nilai>= 80 then ket:='B' else
if nilai>= 70 then ket:='C' else
if nilai>= 60 then ket:='D' else
ket:='E';
writeln(ket);
end.