Welcome to My Blog

fungsi goto pada pascal

Posted on 30 Januari 2008 by Yeyep

uses wincrt;

var jml,a,b: integer;
nm,ket : array[1..40] of string;
hrg,jumlah,total,jumlahseluruh : array[1..40] of real;
begin

write(‘Jumlah Data : ‘); readln(jml);
writeln(”);
for a := 1 to jml do
begin
write(‘Nama Barang :’); readln(nm[a]);
write(‘Harga :’); readln(hrg[a]);
write(‘Jumlah :’);readln(jumlah[a]);

writeln(”);

end
;

clrscr;
gotoxy(5,2);write(‘—————————————————’);
gotoxy(5,3);write(‘Nama’);
gotoxy(20,3);write(‘Harga’);
gotoxy(30,3);write(‘Jumlah’);
gotoxy(40,3);write(‘Total’);
gotoxy(5,4);write(‘—————————————————’);

for b := 1 to jml do
begin
total[b]:=hrg[b]*jumlah[b];
gotoxy(5,5+b);write(nm[b]);
gotoxy(20,5+b);write(hrg[b]:8:0);
gotoxy(30,5+b);write(jumlah[b]:8:0);
gotoxy(40,5+b);writeln(total[b]:8:0);
end
;
writeln(‘ ====================================================’);
end.

DIarsipkan di bawah: Uncategorized | Leave a Comment »

gotoxy pada pascal

Posted on 30 Januari 2008 by Yeyep

uses wincrt;

var jml,a,b: integer;
nm,ket : array[1..40] of string;
hrg,jumlah,total : array[1..40] of real;
begin

write(‘Jumlah Data : ‘); readln(jml);
for a := 1 to jml do
begin
write(‘Nama Barang :’); readln(nm[a]);
write(‘Harga :’); readln(hrg[a]);
write(‘Jumlah :’);readln(jumlah[a]);

writeln(”);

end
;

for b := 1 to jml do
begin
total[b]:=hrg[b]*jumlah[b];
gotoxy(5,5+b);write(nm[b]);
gotoxy(20,5+b);write(hrg[b]:8:0);
gotoxy(30,5+b);write(jumlah[b]:8:0);
gotoxy(40,5+b);write(total[b]:8:0);
end
;

end.

DIarsipkan di bawah: Uncategorized | Leave a Comment »

fungsi Array pada pascal

Posted on 30 Januari 2008 by Yeyep

uses wincrt;

var jml,a,b: integer;
nm,ket : array[1..40] of string;
nilai : array[1..40] of integer;

begin

write(‘Jumlah Siswa : ‘); readln(jml);
for a := 1 to jml do
begin
write(‘Nama siswa ‘); readln(nm[a]);
write(‘Nilai siswa ‘); readln(nilai[a]);
writeln(”);

if nilai[a] > 80 then
ket[a] := ‘LULUS’
else
ket[a] := ‘GAGAL’
;

end
;

for b := 1 to jml do
begin
writeln(‘Nama Siswa : ‘,nm[b]);
writeln(‘Keterangan : ‘,ket[b]);
writeln(”);
end
;
end.

DIarsipkan di bawah: kuliahKu | Leave a Comment »