Kamis, 05 Mei 2011
Selasa, 03 Mei 2011
Bantu Koreksiin Tugas no 2
Program Data_Mahasiswa_TeknikInformatika;
Uses
crt;
Type
DataMahasiswa = record
NIM : integer;
Nama : string [ 25 ];
Alamat : string [ 25 ];
Status : string [ 6 ];
FB : string [ 15 ];
end;
Var
Mahasiswa : DataMahasiswa;
Msiswa : File of DataMahasiswa;
answer : char;
Begin
clrscr;
writeln ( ' Data Inputan Nama Mahasiswa ');writeln;
assign(Msiswa,'DataMahasiswaTI.txt');
rewrite( Msiswa );
repeat
Write('NIM :');readln(Mahasiswa.NIM);
write('Nama :');readln(Mahasiswa.Nama);
write('Alamat:');readln(Mahasiswa.Alamat);
write('Status:');readln(Mahasiswa.Status);
write('FB :');readln(Mahasiswa.FB);
write(Msiswa,Mahasiswa);
writeln('Input Data Lagi ?');readln(answer);writeln;
until(answer = 't') or ( answer = 'T');
close(Msiswa);
while not eof ( Msiswa ) do
Begin
read( Msiswa,Mahasiswa);
writeln ( Mahasiswa.NIM,Mahasiswa.Nama,Mahasiswa.Alamat,Mahasiswa.Status,Mahasiswa.FB);
end;
close(Msiswa);
readln;
End.
Terima Kasih
Continue Reading »
Uses
crt;
Type
DataMahasiswa = record
NIM : integer;
Nama : string [ 25 ];
Alamat : string [ 25 ];
Status : string [ 6 ];
FB : string [ 15 ];
end;
Var
Mahasiswa : DataMahasiswa;
Msiswa : File of DataMahasiswa;
answer : char;
Begin
clrscr;
writeln ( ' Data Inputan Nama Mahasiswa ');writeln;
assign(Msiswa,'DataMahasiswaTI.txt');
rewrite( Msiswa );
repeat
Write('NIM :');readln(Mahasiswa.NIM);
write('Nama :');readln(Mahasiswa.Nama);
write('Alamat:');readln(Mahasiswa.Alamat);
write('Status:');readln(Mahasiswa.Status);
write('FB :');readln(Mahasiswa.FB);
write(Msiswa,Mahasiswa);
writeln('Input Data Lagi ?');readln(answer);writeln;
until(answer = 't') or ( answer = 'T');
close(Msiswa);
while not eof ( Msiswa ) do
Begin
read( Msiswa,Mahasiswa);
writeln ( Mahasiswa.NIM,Mahasiswa.Nama,Mahasiswa.Alamat,Mahasiswa.Status,Mahasiswa.FB);
end;
close(Msiswa);
readln;
End.
Terima Kasih
Tugas Algoritma Pemrograman no. 1
Tugas Algoritma. tolong dicoba di cek lagi
Ini menurut versi saya. mohon kritik dan sarannya ajha..
Terima Kasih
Program Biodata_Kita;
Uses crt;
Var
F : text;
C : char;
Begin
clrscr;
assign(F,' RiwayatHidup.txt');
rewrite(F);
writeln ( F,' Biodata Saya : ');
writeln ( F,' Nama : Nama Anda');
writeln ( F,' N.P.M : 10700 ');
writeln ( F,' Pekerjaan : Mahasiswa ');
writeln ( F,' Prodi : Teknik Infomatika ');
close( F);
assign ( F,'RiwayatHidup.txt');
reset(F);
while not eof ( F ) do
Begin
read ( F,c);
write(c);
end;
close ( F );
readln;
End.
Continue Reading »
Ini menurut versi saya. mohon kritik dan sarannya ajha..
Terima Kasih
Program Biodata_Kita;
Uses crt;
Var
F : text;
C : char;
Begin
clrscr;
assign(F,' RiwayatHidup.txt');
rewrite(F);
writeln ( F,' Biodata Saya : ');
writeln ( F,' Nama : Nama Anda');
writeln ( F,' N.P.M : 10700 ');
writeln ( F,' Pekerjaan : Mahasiswa ');
writeln ( F,' Prodi : Teknik Infomatika ');
close( F);
assign ( F,'RiwayatHidup.txt');
reset(F);
while not eof ( F ) do
Begin
read ( F,c);
write(c);
end;
close ( F );
readln;
End.
Senin, 18 April 2011
Download software MediaVideoConverter HD Video Converter
Dapatkan keuntungan dari PS3, Xbox dan Apple TV anda, dan menonton High-Definition (HD) video dengan PS3, Xbox dan Apple TV. MediaVideoConverter HD Video Converter dapat mengkonversi semua High-Definition dan video Standar-Definition HD AVI, H.264/AVC, HD MPEG4 TS, HD MPEG2 TS, WMV HD, HD Quick Time, dan video umum / format audio, dan bahkan membuat video dari foto dan mengambil gambar video. Juga sebagai converter AVCHD, MediaVideoConverter HD Video Converter dapat membantu Anda mengkonversi AVCHD (mts, M2ts) ke AVI, MPEG, MP4, dll untuk menikmati pada perangkat digital Anda. MediaVideoConverter HD Video Converter ini memungkinkan Anda untuk mengatur profil beberapa output sumber yang sama untuk mengkonversi video HD, dan menyesuaikan berbagai parameter seperti bit rate, frame rate, sample rate, dan sebagainya.
File Size: 29.03 MB
Sistem operasi: Windows XP, Windows Vista, Windows 7
Sistem operasi: Windows XP, Windows Vista, Windows 7
Link Download : http://www.mediavideoconverter.com/downloads/mvc-hd-video-converter.exe
sumber : http://gratis2.blogspot.com/2011/04/software-mediavideoconverter-hd-video.html
Macam-macam distro linux
Distro Linux (singkatan dari distribusi Linux) adalah sebutan untuk sistem operasi komputer dan aplikasinya, merupakan keluarga Unix yang menggunakan kernel Linux. Distribusi Linux bisa berupa perangkat lunak bebas dan bisa juga berupa perangkat lunak komersial seperti Red Hat Enterprise, SuSE, dan lain-lain. Ada banyak distribusi atau distro Linux yang telah muncul. Beberapa bertahan dan besar, bahkan sampai menghasilkan distro turunan, contohnya Distro Debian GNU/Linux. Distro ini telah menghasilkan puluhan distro anak, antara lain Ubuntu, Knoppix, Xandros, DSL, dan sebagainya.
Link Download Game Gratis
Nge-game adalah salah satu aktifitas yang banyak dilakukan orang di depan komputer, baik untuk mengisi waktu luang atau sekedar untuk “menyegarkan” pikiran. Banyak ragam game yang bisa dimainkan. Mulai game yang ringan sampai game “berat” yang benar-benar membutuhkan pemikiran dan spek hardware komputer yang tinggi. Tetapi untuk mendapatkan game, bagi yang masih awan pasti akan mengalami kesulitas, karena untuk mendapatkan game butuh teknik yang tidak semudah mencari artikel.
Kalau Anda suka dengan game-game ringan, Anda bisa mengunjungi GameTop.com. GameTop.com menyediakan puluhan game yang dapat Anda download secara gratis. Ada banyak kategori game yang bisa Anda pilih, misalnya arcade, racing, action, shooting, puzzle, dsb. Game tersebut rata-rata mempunyai ukuran yang relatif kecil, mulai dari 5 Mb sampai 20an Mb sehingga akan memudahkan Anda untuk mendownload.
sumber : http://www.klik-kanan.com/download-game-gratis.htm
Download software photoscape untuk pengolah foto
Photoscape merupakan software gratis yang dapat Anda gunakan untuk mengolah dan mempercantik foto atau gambar. Selain menawarkan fitur-fitur “dasar” seperti pengatur contrast (gelap atau terang) atau sharpen (untuk menajamkan warna pada foto), Photoscape juga dapat digunakan untuk menambahkan bingkai (frame) pada foto. Ada puluhan jenis bingkat yang dapat Anda pilih. Photoscape juga dilengkapi dengan fitur Filter, misalnya Film Effect, Antique Photo, Lens Flare, Texture, Pictorialization, dan puluhan jenis filter lainnya. Dengan filter-filter tersebut Anda bisa membuat foto Anda menjadi lebih menarik, antik atau bahkan lucu.
Anda juga bisa menggabungkan atau menyatukan foto dengan Photoscape ini. Anda tinggal melakukan drag and drop pada foto yang ingin Anda gabungkan dan mengubah ukuran foto jika diperlukan.
download : http://www.photoscape.org/ps/main/download.php
sumber : http://www.klik-kanan.com/mengolah-foto-dengan-photoscape.htm
