konversi

program percabangan dan array pascal

Posted on Updated on


selanjutnya, program ini menggunakan struktur percabangan pada pascal dan array. digunakan untuk mengkonversi nilai yang diinput menjadi huruf dan menentukan apakah orang tersebut lulus atau tidak.

Minggu ke                  : 3

Nama program          :Program Percabangan dan Array

Fungsi program         :

  • Menggunakan statement percabangan pada pascal.
  • Menggunakan array pada pascal dan menampilkan elemen array.

Listing program        :

uses crt ;

var

a,b,c,d : Integer ;

nama    : array [1..5] of string ;

nilai   : array [1..5] of integer ;

predikat: array [1..5] of string ;

ket     : array [1..5] of string ;

begin

clrscr ;

for a := 1 to 5 do

begin

write ( ‘ nama mahasiswa : ‘ ) ;

readln ( nama[a] ) ;

write ( ‘ nilai          : ‘ ) ;

readln ( nilai[a] ) ;

if nilai[a] >= 90 then predikat[a] := ‘A’ else

if nilai[a] >= 75 then predikat[a] := ‘B’ else

if nilai[a] >= 50 then predikat[a] := ‘C’ else

if nilai[a] >= 40 then predikat[a] := ‘D’ else

predikat[a] := ‘E’ ;

if nilai[a] >= 90 then ket[a] := ‘lulus’ else

if nilai[a] >= 75 then ket[a] := ‘lulus’ else

if nilai[a] >= 50 then ket[a] := ‘lulus’ else

if nilai[a] >= 40 then ket[a] := ‘perbaikan’ else

ket[a] := ‘tidak lulus’ ;

writeln (”) ;

end ;

clrscr ;

writeln (”) ;

writeln ( ‘              DAFTAR NILAI SEMESTER 1            ‘ ) ;

writeln ( ‘————————————————-‘ ) ;

writeln ( ‘      nama        nilai    predikat      ket     ‘ ) ;

writeln ( ‘————————————————-‘ ) ;

for b := 1 to 5 do

writeln ( ‘     ‘+nama[b]+’        ‘,nilai[b],’        ‘+predikat[b]+’         ‘+ket[b]) ;

writeln ( ‘————————————————-‘ ) ;

readln

end.

Output program:

tampilan program saat input data
tampilan program saat input data
tampilan program saat menampilkan data
tampilan program saat menampilkan data

 



Web development jakarta

Iklan

Program konversi suhu dengan pascal

Posted on Updated on


Pada artikel ini saya akan membahas tentang program untuk menghitung atau mengkonversikan satuan suhu celcius ke satuan lainnya,, pada program ini anda dapat memilih 3 pilihan yaitu konversi dari celsius ke kelvin, celsius ke fahrenheit, atau dari celcius ke reamur..

Listing programnya sebagai berikut :

uses crt;

var

cel, pil:integer;

hasil : real;

param: string;

begin

clrscr;

writeln(‘———————–‘);

writeln(‘KONVERSI SUHU’);

writeln(‘———————–‘);

writeln(‘1. celcius->kelvin’);

writeln(‘2. celcius->fahrenheit’);

writeln(‘3. celcius->reamur’);

writeln(‘———————–‘);

write(‘masukan pilihan: ‘);

readln(pil);

write(‘masukan besar suhu dalam celcius: ‘) ;

readln(cel);

case pil of

1:

begin

hasil:= cel+273;

param:=’kelvin’;

end;

2:

begin

hasil:= cel*1.8+32;

param:=’fakrenheit’;

end;

3:

begin

hasil:= cel*0.8;

param:= ‘reamur’;

end;

else

writeln(‘input salah..’);

end;

writeln(cel, ‘ celcius = ‘,hasil:10:2, ‘ ‘,param);

readln();

end.

output program:

demikian penjelasan programnya, logika program tinggal dikaliin aja, (saya lagi males jelasin logika), jari udah mulai kriting,,hahaaa..



Web development jakarta

semoga bermanfaat ya..terima kasih^_^ jangan lupa comment..