STRUKTUR DATA - STRUKTUR SEQUENCE (RUNTUNAN)

Struktur Sequence (Runtunan) adalah Sebuah instruksi yang dikerjakan secara berurutan baris perbaris mulai dari baris pertama hingga baris terakhir, tanpa ada loncatan atau perulangan.

Tiap instruksi dikerjakan satu per satu. 

Tiap instruksi dilaksanakan tepat sekali, tidak ada instruksi yang diulang. 

Urutan instruksi yang dilaksanakan pemroses sama dengan urutan instruksi sebagai tertulis di dalam teks algoritma. 

Akhir dari instruksi terakhir merupakan akhir algoritma.

Berikut ini 5 contoh Program Sequence dalam Pemrograman Pascal beserta hasil Outputnya :

1.       Data Mahasiswa

Program data_mahasiswa;

Uses Crt;

Var nm : String;

npm : Integer;

Begin

Clrscr;

Writeln ('masukkan nama dan NPM ');

Writeln ('-----------------------');

Write ('nama anda : ');

Readln (nm);

Write ('NPM anda : ');

Readln (npm);

End.

Hasil Output :

masukkan nama dan NPM

-----------------------

nama anda : ( dwi )

NPM anda : ( 33333 )

2.       Menghitung Luas keliling Persegi

program persegi;
uses crt;
var
sisi : integer;
keliling, luas : real;
begin
clrscr;

write(' Menghitung luas dan keliling persegi’);

writeln(‘--------------------------------‘);
write('Masukkan sisi persegi: ');

readln(sisi);
keliling := 4 * sisi;

luas := sisi * sisi;

writeln('keliling persegi = ', keliling:0:2);

writeln('luas persegi = ', luas:0:2);

readln;
end.

hasil output:

Menghitung luas dan keliling persegi

-----------------------------

Masukan sisi persegi : 2

keliling persegi = 8.00

luas persegi = 4.00

3.       Menghitung Konversi Suhu Celcius menjadi Reamur dan Farenhait

program Konversi_Suhu;

uses crt;

var
C : integer;

R,F : real;

begin
clrscr;

write(' Menghitung Konversi Suhu Celcius menjadi Reamur dan Farenhait');

writeln(‘----------------------------------------------------------‘);
write('Masukkan suhu celcius: ');

readln(C);
R := 4/5* C;

F := 9/5 * C + 32;

writeln('Suhu dalam Reamur = ', R:2:2);

writeln(‘Suhu dalam Farenhait = ', F:2:2);

readln;
end.

hasil output:

Menghitung Konversi Suhu Celcius menjadi Reamur dan Farenhait

-----------------------------------------------------------

'Masukkan suhu celcius : 37

Suhu dalam Reamur = 29,60

Suhu dalam Farenhait = 98,60

4.       Menghitung Usia

program Menhitung_Usia;

uses crt;

var
tl,ts,umur : integer;

Begin
clrscr;

write(' Menghitung usia’);

writeln(‘-------------‘);
write('Masukkan tahun lahir: ');

readln(tl);

write('Masukkan tahun sekarang: ');

readln(ts);
umur:= ts-tl; 

writeln(‘Usia anda adalah', umur);

readln;
end.

hasil output:

Menghitung usia

-----------------

Masukan tahun lahir : 1994

Masukan tahun sekarang : 2012

Usia anda adalah 18

5.       Menghitung Luas Segitiga

program Luas_Segitiga;

uses crt;

var

A,T: integer;

Luas : real;

begin
clrscr;

write(' Menghitung Luas Segitiga’);

writeln(‘----------------------‘);
write('Masukkan Alas : ');

readln(A);

write('Masukkan Tinggi : ');

readln(T);
Luas:= ½ * A * T; 

writeln(‘Luas Segitiga =', luas:2:2);

readln;
end.

hasil output:

Menghitung Luas Segitiga

----------------------

Masukan Alas : 5

Masukan Tinggi : 10

Luas Segitiga = 25.00