Minggu, 24 November 2013
Turbo Pascal
12.53 | 
Diposting oleh
Unknown
Pemrograman Pascal adalah salah satu
bahasa pemrograman yang tidak lekang dimakan waktu. sebagai bahan pembelajaran
demi menigaktakn mutu pembelajaran pemrograman bagi mahasiswa maka di gunakan
bahasa pemrograman turbo pascal. Pada praktek ini kami menggunakan turbo pascal
1,5.
TPW adalah program yang digunakan dalam penggunaan bahasa pemrograman PASCAL pada komputer dengan operating sistem adalah windows. Turbo Pascal sendiri merupakan versi yang populer dalam PASCAL. PASCAL sudah menjadi bahasa standar dalam dunia pendidikan komputer.
Pascal adalah salah satu bahasa pemrograman yang paling sederhana dan merupakan bahasa yang dasar. Sehingga bisa jadi bagi seseorang yang pengin jadi programmer bahasa pascal salahsatu yang kudu dikuasai.
Pada semester 3 ini kami ada mata Pemrograman I. Dan praktikumnya menggunakan program TPW ini. Tidak terlalu sulit untuk mengerti bahasa pascal ini.
Sebab struktur dalam pascal memiliki
banyak kesamaan dengan struktur dalam algoritma. Jadi yang penting kita
mengetahui algoritmanya maka dengan hanya mengubah bentuk strukturnya sesuai
Pascal dalam program TPW ini maka program yang kita susun dengan algoritma
tersebut akan dapat dijalankan.
itulah sekilas tentang materi pemrograman I dan menggunakan bahasa Turbo Pascal.
itulah sekilas tentang materi pemrograman I dan menggunakan bahasa Turbo Pascal.
2. Tipe data
a. integer = bilangan bulat
b. real = desimal
c. string = kata dan kalimat
d. char = ‘a’ atau ‘b’
e. Boolean = true dan false
3. Latihan Soal
Pada Pertemuan praktek pertama
dipemrograman I, saya belajar cara mencetak kalimat pada layar pascal,
menghitung luas bangun datar dan voliume bangun ruang.
1. Untuk latihan pertama kami
membuat hasil output ‘belajar bahasa pascal’ dan ‘sekolah(enter) tinggi
informatika(enter) dan komputer.
2. Program untuk Menghitung Luas
persegi panjang dan volume balok, adapun rumusnya adalah:
Luas persegi panjang = Panjang(p) *
Lebar(L)
Volume Balok = Panjang(p) * Lebar(L)
* Tinggi(T)
1. Latihan Pertama.
A. progam pertamaku;
Uses wincrt;
Begin
Write(‘Belajar Pascal pertamaku’);
End.
Outputnya : Belajar Pascal Petamaku
B. program pertamaku;
uses wincrt;
uses wincrt;
writeln(‘sekoalh’);
writeln(‘Tinggi Informatika’);
writeln(‘Dan Komputer’);
end.
Outputnya: Sekolah
Tinggi Informatika
Dan Komputer
2. Menghitung Luas Persegi Panjang dan volume balok.
uses wincrt;
var
panjang,lebar,tinggi:integer;
begin
write(‘panjang=’);readln(panjang);
write(‘lebar=’);readln(lebar);
write(‘tinggi=’);readln(tinggi);
writeln(‘Luas =’,panjang * lebar);
writeln(‘Volume balok =’,panjang *
lebar * tinggi);
end.
Proses Pengulangan
Dalam pemerosesan suatu data atau penghitungan serigkali dijumpai peroses penghilangan yang amat membosankan bila dikerjakan secara manual. Dalam hal ini pemakain komputer akan sangat berguna untuk melakukan pengulangan proses tersebut.
Bahasa pascal mengenal beberapa macam cara untuk melakukan proses pengulangan, yaitu:
Dalam pemerosesan suatu data atau penghitungan serigkali dijumpai peroses penghilangan yang amat membosankan bila dikerjakan secara manual. Dalam hal ini pemakain komputer akan sangat berguna untuk melakukan pengulangan proses tersebut.
Bahasa pascal mengenal beberapa macam cara untuk melakukan proses pengulangan, yaitu:
a. While…do…
b. Repeat….until…
c. For…to…do…
d. If…then…
e. Case…of…
a. Pernyataan
while..do..
Pernayataan ini dilakukan untuk
melakukan proses pengulangan bila kondisi atau syrat tertentu yang terdapat
pada awal blok terpenuhi. Proses pengulangan setelah pernyataan Do dilakukkan
bila kondisi pada pernyataan While terpenuhi. Bila proses pengulangan tersebut
terdiri dari beberapa pernyataan, maka harus dibuat blok dengan diawali
pernyataan Begin dan diakhri pernyataan End.
Contoh program sederhana.
1.Program While_do_pertama;
Uses wincrt;
Const c:= 1609344
Var a,b:real ;
Begin
Writeln(‘konversi’);
Writeln(‘kilometer mil’);
a:=0;
while a< 20 do
begin
a:= a + 1;
b:= c* a;
writeln(a : 15 : 2, b: 8:2);
end;
end.
2.Program While_do_kedua;
Uses wincrt;
Uses wincrt;
Var
jumlah, data ,i: integer;
lagi : char;
rata_rata : real;
rata_rata : real;
Begin
Lagi:='Y';
Lagi:='Y';
while Lagi='Y' do
begin
Write ('Masukan Nilai : ');
inc(i);
inc(i);
Readln(Data);
Jumlah:=jumlah+data;
Write ('Apakah anda ingin
menginputkan data lagi (Y/T)?: ');
Lagi:=upcase(readkey);
Lagi:=upcase(readkey);
writeln;
end;
writeln;
rata_rata:=Jumlah/i;
writeln('Hasil rata-rata :
',rata_rata:0:2);
end.
b. Repeat…until…
Selain While..do..,bahasa pascal
mengenal pasangan pernyataan Repeat…Until.. untuk proses pengulangan. Proses
pengulangan terjadi setelah pernyataan Repeat berakhir pada pernytaan Until. Bila
kondisi pada pernyataan Until masih terpenuhi, proses pengulangan akan
dilakukan lagi.
Contoh program:
1.Program Repeat_Until_pertama;
uses wincrt;
var
i:integer;
begin
clrscr;
i:=1;
repeat
writeln(‘Bahasa Pemograman Pascal’);
i:=i+1;
until (i>5);
readln;
end.
i:integer;
begin
clrscr;
i:=1;
repeat
writeln(‘Bahasa Pemograman Pascal’);
i:=i+1;
until (i>5);
readln;
end.
2.Program repeat_until_kedua;
uses wincrt;
var
jumlah,I,data:integer;
lagi
:char;
rata_rata : real;
Begin
repeat
Write ('Masukkan Nilai : ');
inc(i);
readln(data);
jumlah:=(jumlah +data);
Write ('Apakah anda ingin
menginputkan data lagi (Y/T) ?');
Lagi:=upcase (readkey);
writeln;
until lagi='T';
write;
rata_rata:=jumlah/i;
writeln('Hasil rata-rata
:',rata_rata:0:2);
End.
c. For…to…do…
1.Program for_do_pertama;
uses wincrt;
var
x,y:integer;
begin
for y:= 10 downto 1 do
begin
for x:= 1 to y do
begin
write('*');
end;
writeln;
end;
end.
uses wincrt;
var
x,y:integer;
begin
for y:= 10 downto 1 do
begin
for x:= 1 to y do
begin
write('*');
end;
writeln;
end;
end.
2.Program for_do_kedua;
uses wincrt;
var
x,a,c,y,i:integer;
begin
y:=1;
x:=10;
a:=10;
c:=28;
gotoxy(a,i);
for i:=1 to 18 do begin
write('*');
end;
for i:=1 to 10 do begin
gotoxy(a,i);write('*');
gotoxy(c,i);write('*');
writeln;
inc(a);
dec(c);
end;
end
Langganan:
Postingan (Atom)