Browsing Archive: March, 2011

Assign to read file txt API

Posted by Ketut Joko on Wednesday, March 23, 2011, In : Assign 
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 ...
 

Perkalian Matrix

Posted by Ketut Joko on Wednesday, March 23, 2011, In : array 
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 ...
 
« Back to posts
 
Jumlah Pengunjung
hit counter
html hit counter