MENAMPILKAN SEMUA FILE YANG TERHIDDEN
@echo off
echo menampilkan semua data yang terhidden pada drive
echo by.mohamad echa putra
echo ================================================
set /p drive=input
attrib -r -h -s %drive%:\*.* /s /d
pause
Selasa, 25 Oktober 2011
membuat program di notepad
MENYEMBUNYIKAN SEMUA FILE
@echo offecho menampilkan semua data yang terhidden pada drive
echo by.mohamad echa putra
echo ================================================
set /p drive=input
attrib +r +h +s %drive%:\*.* /s /d
pause
Membuat Program Di Notepad
MENGHILANGKAN/MENYEMBUNYIKAN FOLDER
1.buka notepad
2.copy script di bawah ini
set /p folder=input
attrib +s +h %folder%
pause
3.simpan file dengan nama menghilang.bat
Membuat Program Di Notepad
MENAMPILKAN DATA
1. Buka aplikasi notepad
2. masukan script di bawah ini
set /p folder=input
attrib -s -h %folder%
pause
3.save dengan nama menampilkan data.bat
PASKAL
Script segitiga
uses wincrt;
var
alas :real;
tinggi
:real;
hasil
:real;
ui :char;
begin
repeat
clrscr;
writeln;
writeln('program menghitung luas segitiga');
writeln;
writeln('by mohamad echa putra');
writeln('================================');
writeln;
writeln;
write('Alas :'); readln(alas);
write('tinggi :'); readln(tinggi);
hasil:=alas*tinggi*0.5;
writeln('_________________________');
write('hasilnya:',hasil);
writeln;
writeln;
Write('Mau Ulang Lagi? [Y/T]:');Readln(ui);
Until
Upcase(ui)<>'Y';
end.
PASKAL
MEMBUAT RUMUS LINGKARAN
uses
wincrt;
var
hasil,r :real;
ui :char;
begin
repeat
clrscr;
writeln;
writeln('Program
luas lingkaran');
writeln(‘by
mohamad echa putra’);
writeln;
writeln('======================');
writeln;
write('jari-jari
lingkaran:');readln(r);
hasil:=22/7*sqr(r);
writeln('hasilnya
=',hasil);
writeln;
write('apakah
anda ingin mengulanginya lagi???? [Y/T]'); readln(ui);
until
upcase(ui)<>'Y';
end.
PASKAL
PROGRAM PENGULANGAN MENGGUNAKAN
REPEAT UNTIL
Uses
wincrt;
Var ui :char;
A :string;
Begin
repeat
Clrscr;
Write(‘masukan
nama : ‘);readln(A);
Clrscr;
Writeln(‘hai
‘,A);
Writeln;
Write('apakah
anda ingin mengulang lagi????<Y/T> ');
readln(ui);
Until
upcase(ui)<>'Y';
End.
PASKAL
MEMBUAT DATA MAHASISWA
Uses wincrt;
Type mahasiswa = record
nim :string;
Nama :string;
Alamat :string;
Pekerjaan :string;
Umur :string;
End;
Var data :mahasiswa;
ui :char;
Begin
Clrscr;
Writeln(‘==================================’);
Writeln;
Writeln(‘ membuat
data mahasiswa ’);
Writeln;
Writeln(‘by mohamad echa putra’);
Writeln;
Writeln(‘==================================’);
Writeln;
Writeln;
Write(‘nim :
‘); readln(data.nim);
Write(‘nama :
‘); readln(data.nama);
Write(‘alamat :
‘); readln(data.alamat);
Write(‘pekerjaan : ‘);
readln(data.pekerjaan);
Write(‘umur :
‘); readln(data.umur);
Writeln;
Writeln;
Clrscr;
Writeln(‘==========================================’);
Writeln;
Writeln(‘
data mahasiswa ‘);
Writeln;
Writeln(‘===========================================’);
Writeln;
Writeln(‘nim |nama |alamat |pekerjaan |umur’);
Writeln(data.nim,’| ‘,data.nama,’| ‘,data.alamat,’| ‘,data.pekerjaan,’| ‘,data.umur);
Writeln;
Writeln;
End.
PASKAL
Membuat user dan password di paskal
Uses wincrt;
Const
User=’putra’;
Pass=’1’;
Var a,b :string;
Begin
Write(‘user : ‘);readln(a);
Write(‘password : ‘);readln(b);
If
(user=a) and (pass=b) then
Begin
Write(‘bagus’);
end
Else
Begin
Write(‘maaf
program anda salah’);
End;
End.