Alhamdulillahhirobbil'alamin
Program Ketujuh Algoritma & Pemrograman II Selesai
1. Screen Shot Program
 |
| Gambar 1.1 Menu utama program dan pilih menu 1 |
 |
| Gambar 1.2 Menu program 1 yaitu input data dan jika ingin menambahkan lagi input "y' |
 |
| Gambar 1.3 Menu utama program dan pilih menu 2 |
 |
| Gambar 1.4 Menu program 2 yaitu tampilan data yang sudah diinput |
 |
| Gambar 1.5 Menu utama program dan pilih menu 3 dan program akan keluar. |
Program
FileSdr;
Uses
Crt;
Var
tes : Text;
nama,nim : String;
no,shift,pilih,i : byte;
Tanya : Char;
Begin
Repeat
Clrscr;
Writeln(' Program File Text Sederhana');
Writeln(' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
Writeln(' | 1. Masukan Data Anda |');
Writeln(' | 2. Lihat Data |');
Writeln(' | 3. Keluar |');
Writeln(' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
Write(' Pilihan Anda : ');Readln(Pilih);
Case Pilih Of
1 : Begin
clrscr;
Assign(tes,'praktikum.txt');
rewrite(tes);
Repeat
inc(i);
writeln(' Data - ',i);
writeln(' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
write(' Nama : '); readln(nama);
writeln(tes,nama);
write(' NIM : '); readln(nim);
writeln(tes,nim);
write(' Shift : ');
readln(shift);writeln(tes,shift);
write(' No. Meja : ');
readln(no);
writeln(tes,no);
writeln(tes,' ');
Write(' Memasukan Lagi (Y/T) : ');
readln(tanya);
writeln(' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln;
Until UpCase(tanya) = 'T';
Close(tes);
End;
2 : Begin
clrscr;
Assign(tes,'praktikum.txt');
reset(tes);
i:= 0;
while not eof(tes) do
begin
inc(i);
readln(tes,nama); readln(tes,nim);
readln(tes,shift); readln(tes,no);
readln(tes);
writeln(' Data - ',i);
writeln('
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
writeln(' Nama : ',nama);
writeln(' NIM : ',nim);
writeln(' Shift : ',shift);
writeln(' No. Meja : ',no);
writeln;
end;
readln;
End;
else
End;
until
pilih=3;
End.
|
0 komentar :
Posting Komentar