Program Menu PASCAL Deret Bilangan dan Array Goto XY
selamat datang sahabat saya kali ini akan membagikan program pascal (Program Menu- Deret Bilangan dan Array Goto XY) baiklah langsung saja
- program pascal menu
program
menu;
uses
crt;
var
pilih:integer;
a,b,c,x:integer;
nama:array[1..100]
of string[5];
npm:array[1..100]
of string[8];
kelas:array[1..100]
of string[15];
min,temp:string;
n,i,bar,kelompok,tempatnya_min:integer;
begin
clrscr;
writeln('---------------------------');
writeln(' MENU UTAMA ');
writeln('---------------------------');
writeln;
writeln(' 1.Deret Bilangan Prima');
writeln(' 2.Array dan Goto XY');
writeln('---------------------------');
write('
PILIH (1-2):');readln(pilih);
if
pilih=1 then
begin
writeln('--------------------------');
writeln('Bilangan
Prima');
writeln('--------------------------');
write('Masukan
Bilangan Prima sampai:');read(x);
for
a:=1 to x do
begin
c:=0;
for
b:=1 to a do
begin
if
a mod b=0 then c:=c+1;
end;
if
c=2 then
write(x);
writeln('');
end;
readln;
end
else
if
pilih=2 then
begin
writeln('----------------------------');
writeln('Array
dan Goto XY');
writeln('----------------------------');
write('berapa
data yang ingin dimasukan:');readln(n);
for
i:=1 to n do
begin
clrscr;
gotoxy(30,4);write('data-',i:2);
gotoxy(10,7);write('nama:');
readln(nama[i]);
gotoxy(10,8);write('npm:');
readln(npm[i]);
gotoxy(10,9);write('kelas:');
readln(kelas[i]);
end;
for
kelompok:=1 to n do
begin
min:=kelas[kelompok];
for
i:=kelompok to n do
begin
if(kelas[i])=min
then
begin
min:=kelas[i];
tempatnya_min:=i;
end;
temp:=kelas[kelompok];
kelas[kelompok]:=kelas[tempatnya_min];
kelas[tempatnya_min]:=temp;
temp:=npm[kelompok];
npm[kelompok]:=npm[tempatnya_min];
npm[tempatnya_min]:=temp;
temp:=nama[kelompok];
nama[kelompok]:=nama[tempatnya_min];
nama[tempatnya_min]:=temp;
end;
clrscr;
gotoxy(5,4);write('--------------------------------------------------------');
gotoxy(5,5);write('no');
gotoxy(9,5);write('npm');
gotoxy(20,5);write('nama');
gotoxy(37,5);write('kelas');
gotoxy(47,5);write('tanda
tangan');
gotoxy(5,6);write('--------------------------------------------------------');
bar:=7;
for
i:=1 to n do
begin
gotoxy(5,bar);writeln(i:2);
gotoxy(9,bar);writeln(npm[i]);
gotoxy(20,bar);writeln(nama[i]);
gotoxy(37,bar);writeln(kelas[i]);
gotoxy(47,bar);writeln('.....');
bar:=bar+1;
end;
readln;
end
end;
end.
cukup sekian .... SEMOGA BERMANFAAT
Comments
Post a Comment