PASCAL

Hello semua... :), this i will tell you how to open text files.. enjoy this code...

var
   f: Text;
   s: String;
 
begin
   Assign(f,'c:\windows.txt');
   Reset(f);
   while not eof(f) do
   begin
      Readln(f,s);
      writeln(s);
      end;
   readln;
end.

Continue reading...

Berikut merupakan kode perkalian 2 matrix :

uses crt;
var
a,f,k:array[1..100,1..100] of integer;
b,c,i,j,l,z:longint; m,n,d,e,g,h:byte;
begin clrscr;
write(' Program Perkalian 2 Matriks');readln;writeln;writeln;
writeln('Masukkan data untuk matriks pertama (M1)'); writeln;
write('banyaknya baris matriks pertama: '); readln(b);
write('banyaknya kolom matriks pertama: '); readln(c);writeln;
for d:= 1 to b do
begin
for e:= 1 to c do
begin
write('entri baris ke-',d,' kolom ke-',e,': '); readln(a[d,e]);
end;
end...
Continue reading...

berikut adalah listing program yang dapat mengkonversi dari celcius ke fahrenheit dan ke reaumur.

program suhu;
uses crt;
var celcius : integer;
    reamur,fahrenhait : real;
begin
     clrscr;
     writeln('Program konversi suhu');
     writeln('---------------------');
     write('Suhu dalam celcius : ');readln(celcius);
     reamur:=4/5*celcius;
     fahrenhait:=9/5*celcius+32;
     writeln('Suhu dalam reamur=',reamur:5:2);
     writeln('Suhu dalam fahrenhait= ',fahrenhait:5:2);
     readln;
end.

...
Continue reading...

berikut merupakan suhu converter, namun disini menggunakan rentangan convertan sesuai inputan. namun saya hanya menampilkan celcius ke farenheit saja.


program tabelsuhu;
var f:real;
c1,c2,i, j: integer;
begin
write('masukkan suhu celcius awal : ');readln(c1);
write('masukkan suhu celcius akhir : '); readln(c2);
writeln('tabel conversi suhu');
writeln('-------------------------');
writeln('no   celcius  fahrenheit');
writeln('-------------------------');

j := 0;
for i := c1 to c2 do
begin
j := j+1;
f:= 1.8*i...
Continue reading...

Kali ini saya akan memaparkan bagaimana membuat space(tempat) untuk spasi. ini biasanya digunakan untuk pembuatan tabel, ini hanya diperlukan untuk kerapian. kususnya peng arsipan.


program spasi;
uses crt;
type data=record
     nama,nim:string;
     end;

var i,text:integer;
dt : array[1..2] of data;
function spasi(teks:string):string;
var teks1:string;
j:integer;
begin
teks1:=teks;
for j := 1 to (20-length(teks1)) do
teks1 := teks1 + ' ';
spasi := teks1;

end;

begin
for i := 1 to 2 do
begin
write('masukkan nama :...
Continue reading...