Contoh Contoh Program Pemilihan dan Perulangan Menggunakan Pascal
Sekedar berbagi. Moga moga bermanfaat. langsung aja yah agan agan
1. Program Increment menggunakan while-do
var x,a,b,c:integer;
begin
x:=0;
write(‘Masukkan batas awal ‘);
read(a);
write(‘Masukkan batas akhir ‘);
read(b);
write(‘Masukkan increment ‘);
read(c);
while (a<=b) do
begin
x:=x+a;
writeln(‘Nilai a ‘,a);
a:=a+c;
end;
writeln(‘Jumlahnya ‘,x);
readln;
readln;
end.
2. Program Segitiga Piramid Menaik Menggunakan while – do
var x,i,j:integer;
begin
write(‘Masukkan Nilai 1-10: ‘);
readln(x);
i:=1;
j:=1;
while (i<=x) and (x<=10) do
begin
j:=1;
while(j<=i) do
begin
while (j<=i)do
begin
write(i);
j:=j+1;
end;
end;
i:=i+1;
writeln;
begin
write(‘Masukkan Nilai 1-10: ‘);
readln(x);
i:=1;
j:=1;
while (i<=x) and (x<=10) do
begin
j:=1;
while(j<=i) do
begin
while (j<=i)do
begin
write(i);
j:=j+1;
end;
end;
i:=i+1;
writeln;
end;
readln;
end.
3. Menetukan Bilangan Ganjil & Genap Menggunakan If Then Else
var x:integer;
begin
write(‘Masukkan angka ‘);
readln(x);
if(x mod 2=0) then
begin
write(‘Bilangan Genap’);
readln;
end
else
write(‘Bilangan Ganjil’);
readln;
end.
begin
write(‘Masukkan angka ‘);
readln(x);
if(x mod 2=0) then
begin
write(‘Bilangan Genap’);
readln;
end
else
write(‘Bilangan Ganjil’);
readln;
end.
Hari ini cukup ini dulu. Insya Allah besok di tambahkan untuk contoh contoh lainnya. Tolong dipelajari.
salam kenal…
saya mau menanyakan bagaimana membuat program dengan soal seperti ini :
mensimulasikan sebuah kalkulator sederhana untuk melakukan operasi aritmatika sebagai berikut : dibaca operasi 1, operator, dan operand 2. Tentukan hasil operasi aritmatika :
Operand1 operator operand2
7 “+” 3
Maka hasilnya adalah 10.
saya masih belum paham bagaimana membuatnya…
jadi mohon bantuannya…
Trims sebelumnya…
maaf ya baru buka blog, soalnya habis sakit. mungkin coding saya ini bisa membantu
program Project1;
var op1, op2 :integer;
oper:string;
hasil:real;
begin
write(‘Masukan Operand 1: ‘);
readln(op1);
write(‘Masukan Operator : ‘);
readln(oper);
write(‘Masukan Operand 2: ‘);
readln(op2);
if oper=’+’
then begin
hasil:=op1 + op2;
end;
if oper=’-’
then begin
hasil:=op1 – op2;
end;
if oper=’*’
then begin
hasil:=op1 * op2;
end;
if oper=’/’
then begin
hasil:=op1/op2;
end;
writeln;
writeln(‘——————————’);
writeln(‘Operand 1 |Operator| Operand 2′);
writeln(‘——————————’);
writeln(op1:4, oper:12, op2:11);
writeln(‘——————————’);
writeln;
write(‘Maka Hasilnya adalah : ‘,hasil:6:2);
readln;
end.
oo..gitu… syukur dah sembuh, jadi bsa jwab ini ya… ^^
trims banyak ya….!!
ntar programx dicoba…
gimana begitu atau ada lagi kurangnya,,,?? wah telat lagi balesnya soalnya habis ikut lomba jadi nggak sempat ngurus blog (doh)
mohon koreksi ulang contoh nomor 2..
@Sintaa.. Apanya yang harus dikoreksi..?? saya coba ulang bisa kok. Dan programnya pun muncul…
Gara gara tanda petik di baris ke tiga aja pon……Masa gtu aja ga tau kk….Mungkin dia silap pas ngetikan.
oh… sorii ya baru balass.. baru aa kesempatan lagi buat ngeblog
Gan … sy bkin program Menentukan Bilangan Ganjil/genap dgn menggunakan Perulangan… gini kerja saya :
program bilangan Ganji;
uses crt;
var
i,b,n,batas: integer;
begin
clrscr;
write(‘Input angka = ‘);readln(batas);
gotoxy(5,5); writeln(‘GENAP’);
for i := 1 to batas do
begin
if (i mod 2 = 0) then
writeln(i, ‘ ‘);
end;
writeln(‘GANJIL’);
for i:= 1 to batas do
begin
if (i mod 2 =1 ) then
writeln(i, ‘ ‘);
end;
readln;
end.
itu script udh bisa berjalan tp tdk sesuai dng keinginan… maunya sih kaya’ Gini outputnya :
Input angka = 10
Genap Ganjil
2 1
4 3
6 7
8 9
10
total = total=
mohon pencerahahnnya… alx ku baru nie belajar …