1. Program
Function
Program Function;
uses crt;
procedure Menu;
begin
writeln('Menu Program');
writeln('1. Luas Segitiga');
writeln('2. Keliling Kegitiga');
...
Program pascal 4
Rabu, 13 April 2016
Program pascal 3
1. Program
Perulangan 1
Program Perulangan1;
uses crt;
var n : integer;
begin
write('Jumlah Perulangan= ');
readln(n);
repeat
writeln(n,'.
','Saya Belajar Pascal');
n:=n+1;
until n>=11;
end.
...
Program pascal 2
1. Program
Hitung Campuran
program HitungCampuran;
uses crt;
var jawab:integer;
begin
write('5 x 7 + 5 / 4
=');readln(jawab);
If jawab=10 Then
Writeln('Selamat Jawaban Anda
Benar')
else
writeln('Coba Lagi, Jawaban Anda
Masih Salah');
end.
...
Langganan:
Postingan (Atom)
