WEB LINK ABOUT TURBO PASCAL IN ENGLISH

1.http://dreadnaut.altervista.org/pascal/tp7ita/

2.http://www.programmersheaven.com/mb/pasprog/162477/162617/re-help-me--problem-with-turbo-pascal-7/?S=B20000

3.http://forums.whirlpool.net.au/forum-replies-archive.cfm/657609.html

4.http://www.techimo.com/forum/webmastering-programming/122793-help-about-turbo-pascal.html

5.http://www.pascal-central.com/plinks.html

6.http://garbo.uwasa.fi/pc/turbopas.html

7.http://www.programmersresource.com/forum/showthread.php?t=3651

8.http://forums.devshed.com/delphi-programming-90/turbo-pascal-help-needed-again-425320.html

9.http://forums.guru3d.com/showthread.php?t=30811

10.http://www.daniweb.com/forums/thread21883.html

11.http://ubuntuforums.org/archive/index.php/t-519397.html

12.http://en.allexperts.com/q/Pascal-1624/error-use-unit-turbo.htm

13.http://www.fh-jena.de/~gmueller/Kurs_halle/systeme/tp7.html

14.http://www.programmingforums.org/thread15142.html

ALAMAT-ALAMAT WEB TENTANG TURBO PASCAL

Ringkasan ini tidak tersedia. Harap klik di sini untuk melihat postingan.

Menghitung Volume Kubus

ALGORITMA PEMROGRAMAN TURBO PASCAL 7.0

Program_Menghitung_Volume_Kubus

Algoritma

1.Baca Input Nilai Sisi
2.Simpan ke Variable Sisi
3.Masukkan Rumus Kubus = Sisi x sisi x sisi, Simpan hasilnya ke Volume
4.Tampilkan ke Monitor Nilai Volume



PROGRAM_VOLUME_KUBUS;

Uses Crt;
Var
Sisi : word;
Volume : word;

Begin

Clrscr;

Write(‘Masukkan Sisi Kubus’);
Readln(Sisi);

Volume := Sisi*Sisi*Sisi;

Writeln(‘Volume Kubus Dengan Sisi = ‘,Sisi,’ Adalah ’,Volume);
Readln;
End.

Menghitung Volume Bola

ALGORITMA PEMROGRAMAN TURBO PASCAL 70

Program_Menghitung_Volume_Bola

Algoritma

1. Baca input nilai Jari-jari
2. Simpan ke variable jari_jari
3. Baca input nilai Tinggi
4. Simpan ke variable tinggi
5. Masukkan Rumus Bola = 4/3 x π x t3, simpan ke variable Volume
6. Tampilkan ke layer Monitor Volume



PROGRAM_VOLUME_BOLA;

Uses Crt;

Var
Jari_jari : word;
Tinggi : word;
Volume : real;

Begin

Clrscr;
Write(‘Masukkan Jari-jari Bola = ‘);
Readln(jari-jari);
Write(‘Masukkan Tinggi Bola = ‘);
Readln(tinggi);

Volume := 4/3 * 3.14159265 * tinggi * tinggi * tinggi ;

Writeln(‘Volume Bola adalah = ‘,volume);
Readln;
End.

Menghitung Volume Kerucut

ALGORITMA PEMROGRAMAN TURBO PASCAL 70

Program_Menghitung_Volume_Kerucut

Algoritma

1. Baca input nilai Jari-jari
2. Simpan ke variable jari_jari
3. Baca input nilai Tinggi
4. Simpan ke variable tinggi
5. Masukkan Rumus Kerucut = 1/3 x π x r 2 x t, simpan ke variable Volume
6. Tampilkan ke layer Monitor Volume Tabung


PROGRAM_VOLUME_KERUCUT;

Uses Crt;

Var
Jari_jari : word;
Tinggi : word;
Volume : real;

Begin

Clrscr;
Write(‘Masukkan Jari-jari Kerucut = ‘);
Readln(jari-jari);
Write(‘Masukkan Tinggi Kerucut = ‘);
Readln(tinggi);

Volume := 1/3 * 3.14159265 * jari_jari * jari_jari * tinggi ;

Writeln(‘Volume Kerucut adalah = ‘,volume);
Readln;
End.

Menghitung Volume Tabung

ALGORITMA PEMROGRAMAN TURBO PASCAL 70

Program_Menghitung_Volume_Tabung

Algoritma

1. Baca input nilai Jari-jari
2. Simpan ke variable jari_jari
3. Baca input nilai Tinggi
4. Simpan ke variable tinggi
5. Masukkan Rumus tabung = π x r 2 x t, simpan ke variable Volume
6. Tampilkan ke layer Monitor Volume Tabung


PROGRAM_VOLUME_TABUNG;

Uses Crt;

Var
Jari_jari : word;
Tinggi : word;
Volume : real;

Begin

Clrscr;
Write(‘Masukkan Jari-jari Tabung = ‘);
Readln(jari-jari);
Write(‘Masukkan Tinggi Tabung = ‘);
Readln(tinggi);

Volume := 3.14159265 * jari_jari * jari_jari * tinggi ;

Writeln(‘Volume Tabung adalah = ‘,volume);
Readln;
End.

Menghitung Volume Limas Segi Empat

ALGORITMA PEMROGRAMAN TURBO PASCAL 70

Program_Menghitung_Volume_LimasSegiEmpat

Algoritma

1. Baca input nilai panjang
2. Simpan ke variable panjang
3. Baca input nilai lebar
4. Simpan ke variable lebar
5. Baca input nilai tinggi
6. simpan ke variable tinggi
7. Masukkan Rumus Limas Segi Empat = 1/3 x panjang x lebar x tinggi,
simpan ke variable Volume
8. Tampilkan ke layer Monitor Volume Limas Segi Empat


PROGRAM_VOLUME_LIMASSEGIEMPAT;

Uses Crt;

Var
Panjang : word;
Lebar : word;
Tinggi : word;
Volume : real;

Begin

Clrscr;
Write(‘Masukkan Panjang Limas Segi Empat = ‘);
Readln(panjang);
Write(‘Masukkan Lebar Limas Segi Empat = ‘);
Readln(lebar);
Write(‘Masukkan Tinggi Limas Segi Empat = ‘);
Readln(tinggi);

Volume := 1/3 * panjang * lebar * tinggi ;

Writeln(‘Volume Limas Segi Empat adalah = ‘,volume);
Readln;
End.