forum kita

Rabu, 30 November 2011

PROGRAM STUDY PERKULIAHAN PADA SEMESTER 1

PROGRAM STUDY PERKULIAHAN PADA SEMESTER 1

uses wincrt;

function carinilai(x :integer) : char;

var jawab:char;

begin

jawab:='?; if (x>80) and (x<100) then

jawab:='A' else if (x>70) and (x<80) then

jawab:='B' else if (x>50) and (x<70) then

jawab:='C' else if (x>30) and (x<50) then

jawab:='D' else if (x<30) then

jawab:='E'; carinilai:=jawab;

end;

var mata_kuliah1,mata_kuliah2, mata_kuliah3, mata_kuliah4, mata_kuliah5, mata_kuliah6, mata_kuliah7, mata_kuliah8, mata_kuliah9, mata_kuliah10:string;nama :string;

n1,n2,n3,n4,n5,n6,n7,n8,n9,n10:integer; total:integer; cn:char; pil:char;

begin

repeat

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M S T U D Y S E M E S T E R 1 |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('masukan nama anda : ');readln(nama);

gotoxy(20,9);write('mata kuliah 1 : ');readln(mata_kuliah1);

gotoxy(20,10);write('nilai : ');readln(n1);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M S T U D Y S E M E S T E R 1 |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 2 : ');readln(mata_kuliah2);

gotoxy(20,9);write('nilai : ');readln(n2);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M S T U D Y S E M E S T E R 1 |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 3 : ');readln(mata_kuliah3);

gotoxy(20,9);write('nilai : ');readln(n3);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M S T U D Y S E M E S T E R 1 |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 4 : ');readln(mata_kuliah4);

gotoxy(20,9);write('nilai : ');readln(n4);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M S T U D Y S E M E S T E R 1 |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 5 : ');readln(mata_kuliah5);

gotoxy(20,9);write('nilai : ');readln(n5);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M S T U D Y S E M E S T E R 1 |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 6 : ');readln(mata_kuliah6);

gotoxy(20,9);write('nilai : ');readln(n6);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M S T U D Y S E M E S T E R 1 |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 7 : ');readln(mata_kuliah7);

gotoxy(20,9);write('nilai : ');readln(n7);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M S T U D Y S E M E S T E R 1 |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 8 : ');readln(mata_kuliah8);

gotoxy(20,9);write('nilai : ');readln(n8);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M S T U D Y S E M E S T E R 1 |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 9 : ');readln(mata_kuliah9);

gotoxy(20,9);write('nilai : ');readln(n9);

clrscr; gotoxy(20,1);writeln('ket. masukan nilai dengan angka satuan');

gotoxy(20,5);writeln('| P R O G R A M S T U D Y S E M E S T E R 1 |');

gotoxy(15,7);writeln('|----------------------------------------------------------|');

gotoxy(20,8);write('mata kuliah 10 : ');readln(mata_kuliah10);

gotoxy(20,9);write('nilai : ');readln(n10);

total:=n1+n2+n3+n4+n5+n6+n7+n8+n9+n10;

clrscr; cn:=carinilai(total); writeln('nilai pada semester 1');

writeln('________________________'); writeln('nama | total nilai | nilai '); WRITELN('++++++++++++++++++++++++++++++++++++++++++');

writeln(nama:10,'|',total:15,'|',cn:10,'|'); writeln; write('apakah anda ingin mengulanginya lagi[Y/T]: ');readln(pil);

until upcase(pil)='Y';

end.

Mencari angka

MENCARI ANGKA

uses wincrt;

label ulang1,ulang2;

const a='mohamad echa putra ';

b='A2.1100133';

c='tugas algoritma';

type x=array[1..100] of integer;

var i,posisi,cari:longint;

angka : x;

n : integer;

ada :boolean;

pil :char;

begin

ulang1:writeln;

clrscr;

writeln('nama : ',a);

writeln('nim : ',b);

writeln('mata kuliah : ',c);

writeln

('_______________________________________');

gotoxy(20,8);

writeln('program squensial search ');

gotoxy(20,9);writeln('secara acak ');

gotoxy(15,10);writeln

('_______________________________________');

gotoxy(20,12);

write('berapa angka yang ingin anda masukan : '); readln(n);

for i:= 1 to n do

begin

write('angka',i,' : ');readln(angka[i]);

end;

ulang2:writeln;

clrscr;

writeln('nama : ',a);

writeln('nim : ',b);

writeln('mata kuliah : ',c);

writeln

('_______________________________________');

writeln;

writeln('angka yang telah terdaftar ');

writeln

('_______________________________________');

for i:=1 to n do

begin

write(angka[i]:8);

end;

writeln;

write('angka yang anda cari : ');readln(cari);

i:=0;

while (i<=n) and ( not ada) do

begin

i:=i+1;

if angka[i]=cari then

begin

posisi:=i;

ada:=true;

end;

end;

if ada then

begin

writeln;

writeln

('bilangan [ ',angka[posisi],' ] ketemu pada posisi : ',posisi);

end

else

begin

writeln;

writeln('maaf bilangan ',cari,' tidak di temukan');

end;

write

('apakah anda ingin mencari lagi [ Y/T ] : ');readln(pil);

if pil in['Y','y'] then

begin

goto ulang2;

end

else

begin

goto ulang1;

end;

end.

Selasa, 25 Oktober 2011

membuat program di notepad

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

membuat program di notepad

MENYEMBUNYIKAN SEMUA FILE

@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

Membuat Program Di Notepad

MENGHILANGKAN/MENYEMBUNYIKAN FOLDER

1.buka notepad

2.copy script di bawah ini

         echo off
        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

              echo off
              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.