PROGRAM PASCAL DAN VB.NET

Contoh Looping pada Program Pascal 3 variabel
uses crt;
var a,b,c : integer;
begin
clrscr;
c:=0;
for a:=4 downto 1 do
begin
for b:= 1 to a do
begin
c:=c+1;
write(c,' ');
end;
writeln;
end;
readln;
end.

Outputnya adalah:

1 2 3 4
5 6 7
8 9
10

Contoh Looping Program Pascal Tiga Variable
uses crt;
var a,b,c : integer;
begin
clrscr;
c:=10;
for a:=1 to 4 do
begin
for b:= 1 to a do
begin
c:=c-1;
write(c,' ');
end;
writeln;
end;
readln;
end.

Outputnya adalah:

9
8 7
6 5 4
3 2 1 0

Contoh Looping Pada Pascal Tiga Variable
uses crt;
var a,b,c : integer;
begin
clrscr;
c:=0 ;
for a:=1 to 4 do
begin
for b:= 1 to a do
begin
c:=c+1;
write(c,' ');
end;
writeln;
end;
readln;
end.

Maka Outputnya Sebagai berikut:

1
2 3
4 5 6
7 8 9 10

Contoh Looping Program pada Pascal
uses crt;
var a,b : integer;
begin
clrscr;
for a:=1 to 5 do
begin
for b:= a downto 1 do
write(b,a,' ');
writeln;
end;
readln;
end.

Maka Outputnya Sebagai berikut:

11
22 12
33 23 13
44 34 24 14
55 45 35 25 15

Contoh Looping Program pada Pascal
uses crt;
var a,b : integer;
begin
clrscr;
for a:=5 downto 1 do
begin
for b:= a downto 1 do
write(b,' ');
writeln;
end;
readln;
end.

Maka Outputnya Seperti dibawah ini:

5 4 3 2 1
4 3 2 1
3 2 1
2 1
1

Contoh Looping Program pada Pascal
var a,b : integer;
begin
clrscr;
for a:=5 downto 1 do
begin
for b:= a to 5 do
write(b,' ');
writeln;
end;
readln;
end.

Outputnya seperti diawah ini:

5
4 5
3 4 5
2 3 4 5
1 2 3 4 5

Contoh Program Looping pada Pascal
uses crt;
var a,b : integer;
begin
clrscr;
for a:=1 to 5 do
begin
for b:= a to 5 do
write(b,' ');
writeln;
end;
readln;
end.


 CONTOH CONTOH PROGRAM PASCAL


Outputnya seperti dibawah ini:

1 2 3 4 5
2 3 4 5
3 4 5
4 5
5

Contoh Program Looping pada Pascal
uses crt;
var a,b : integer;
begin
clrscr;
for a:=5 downto 1 do
begin
for b:= 1 to a do
write(b,' ');
writeln;
end;
readln;
end.

Maka Outputnya seperti dibawah ini:

1 2 3 4 5
1 2 3 4
1 2 3
1 2
1
Contoh Fungsi Writeln pada Pascal
uses crt;
var a:integer;
begin
clrscr;
for a:=1 to 5 do
writeln(a*2);
writeln(a*10);
readln;
end.


Maka Outputnya seperti dibawah ini:

2
4
6
8
10
50

Contoh Program menghitung Luas Segitiga pada Pascal
Program Menghitung Luas Segitiga

program luas;
uses crt;
var
a,t: integer;
L: real;
begin
clrscr;
write('Masukan Nilai Alas:');
readln (a);
write('Masukan Nilai Tingi:');
readln(t);
writeln(' ');
L:=(a*t)/2;
writeln('Luas Segitiga adalah =',L:6:2);
readln;
end.


hasilnya seperti dibawah ini:

Masukan Nilai Alas:12
Masukan Nilai Tingi:8

Luas Segitiga adalah = 48.00Contoh Deret Pascal Hitung
uses crt;
var a,b,c : integer;
begin
clrscr;
c:=7;
for a:= 1 to 3 do
begin
for b:= 1 to a do
begin
c:=c-1;
write (c,' ');
end;
writeln;
end;
readln;
end.

Maka Hasinya seperti dibawah ini:

6
5 4
3 2 1

Contoh Program Deret Kuadrat Pada Console Aplication
Module Module1

    Sub Main()
        Dim a As Integer
        Dim b As Integer
        For a = 1 To 5
            For b = 1 To a
                Console.Write(b ^ 2)
                Console.Write(" ")
            Next b
            Console.WriteLine()

        Next a
        Console.ReadLine()

    End Sub

End Module


Hasi Output :


1
1 4
1 4 9
1 4 9 16
1 4 9 16 25
Program Menghitung Nilai DNS pada Console AplicationSunday, May 06, 2012 11:43 AMModule Module1

    Sub Main()
        Dim UTS, UAS As Integer
        Dim Nilai As Long
        Console.Write("Masukan Nilai UTS Anda: ")
        UTS = Console.ReadLine
        Console.Write("Masukan Nilai UAS Anda: ")
        UAS = Console.ReadLine
        Console.WriteLine("===========================")
        Console.WriteLine("")

        Nilai = (0.7 * UTS) + (0.3 * UAS)

        Select Case Nilai
            Case Is >= 80
                Console.WriteLine("      Selamat Anda LULUS!")
                Console.WriteLine(" Nilai Anda Pada DNS adalah: A")
            Case Is >= 70
                Console.WriteLine("     Selamat Anda LULUS!")
                Console.WriteLine(" Nilai Anda Pada DNS adalah: B")
            Case Is >= 60
                Console.WriteLine("      Selamat Anda LULUS!")
                Console.WriteLine(" Nilai Anda Pada DNS adalah: C")
            Case Is >= 50
                Console.WriteLine("      Selamat Anda LULUS!")
                Console.WriteLine("     Nilai Anda Pada DNS adalah: D")
            Case Else
                Console.WriteLine("      Maaf Anda TIDAK LULUS!")
        End Select
        Console.Write("     Anda Mendapat Nilai: ")
        Console.WriteLine(Nilai)
        Console.WriteLine("===============================")
        Console.ReadLine()
    End Sub


End Module






Contoh:


Masukan Nilai UTS Anda: 80
Masukan Nilai UAS Anda: 70
===========================

     Selamat Anda LULUS!
 Nilai Anda Pada DNS adalah: B
     Anda Mendapat Nilai: 77
===============================