Jika anda amati 2 script program di bawah ini mirip. script ke-2 hanyalah hasil modifikasi program pertama yang hanya diganti rumus, dan variabelnya sera kata-kata yang tampil setelah program dijalankan.
Struktur program selalu sama
Program 1
uses wincrt;
var
A : integer;
B : integer;
C : integer;
Begin
write ('Bilangan Pertama:');readln(A);
write ('Bilangan Kedua:');readln(B);
C := A + B ;
writeln('Hasil Penjumlahannya adalah = ', C);
end.
Program ke-2
Program luaspermukubus ;
uses wincrt;
var
r : integer;
L : integer;
Begin
write ('Rusuk:');readln(r);
L := r*r*6 ;
writeln('Luas Permukaan Kubus adalah = ', L);
end.
Struktur program selalu sama
Program 1
uses wincrt;
var
A : integer;
B : integer;
C : integer;
Begin
write ('Bilangan Pertama:');readln(A);
write ('Bilangan Kedua:');readln(B);
C := A + B ;
writeln('Hasil Penjumlahannya adalah = ', C);
end.
Program ke-2
Program luaspermukubus ;
uses wincrt;
var
r : integer;
L : integer;
Begin
write ('Rusuk:');readln(r);
L := r*r*6 ;
writeln('Luas Permukaan Kubus adalah = ', L);
end.
No comments:
Post a Comment