- Beranda
- Komunitas
- Tech
- Programmer Forum
BANTU ANE NYEMPURNAIN PROGRAM QUEUE INI GAN(PASCAl)
TS
BillKaulizt
BANTU ANE NYEMPURNAIN PROGRAM QUEUE INI GAN(PASCAl)
bisa bantu gak gan sama ini program,ane bingung katanya ini program queue
Berikut ini potongan program yang berisi prosedur yang mengerjakan tugas membaca sebaris input string.String tersebut dibagi dua bagian yang dipisahkan dengan karakter “:”.Sebagai hasilnya ,prosedur ini akan menghasilkan pesan-pesan berikut:
• “INPUT SALAH” ,apabila inputnya tidak memuat tanda “;”.
• “KIRI”, apabila bagian kiri (sebelum tanda “;”) lebih panjang dibanding bagian kanan
• “KANAN” ,apabila bagian kanan (sesudah tanda “;”) lebih panjang dibanding sebelah kiri.
• “BERBEDA”,apabila panjang kiri sama dengan panjang bagian,kanan tapi stringnya berbeda
• “SAMA”, apabila string bagian kiri sama dengan string bagian kanan.
Program Contoh_queue;
uses crt;
const maks_Q = 10;
type item : record
data = char;
{sisipkan deklarasi tipe dan variebel queue disini}
{sisipkan deklarasi prosedur-prosedur standar pada queue disini}
Procedure perikasa_dan_analisa
var x :item ;
i : integer;
kata ,hasil:string []
sama : boolean;
begin
repeat
clrscr ;
write (“Masukan kata yang akan di analisa
;
readln( kata);
If kata <> ‘’ then
begin
i : 1 ;
inisialisasi(q);
while ( i <=length (kata) and (kata [i] <> ‘:” do
begin
x.data = kata[i];
inqueue (x,Q);
i:=i +1
end;
if i>length(kata ) then hasil :=’INPUT SALAH’;
else
begin
i:=i+1
sama :true;
while (i<=length (kata) and not (empty(Q)) do
begin
dequeue (x,Q)
If kata [i] <> x.data then sama : true
i:i+i;
end;
If not (empty(Q) then hasil :”KIRI”;
else if (i-1) < length (kata) then hasil :”KANAN”
else hasil :”BERBEDA”;
end;
write (‘Kesimpulan : ‘,hasil) readln;
end
until kata;
end;
(main program)
begin
periksa_dan_analisa;
end;
udah ane coba gan tp belum berhasil dan programnya error
Berikut ini potongan program yang berisi prosedur yang mengerjakan tugas membaca sebaris input string.String tersebut dibagi dua bagian yang dipisahkan dengan karakter “:”.Sebagai hasilnya ,prosedur ini akan menghasilkan pesan-pesan berikut:
• “INPUT SALAH” ,apabila inputnya tidak memuat tanda “;”.
• “KIRI”, apabila bagian kiri (sebelum tanda “;”) lebih panjang dibanding bagian kanan
• “KANAN” ,apabila bagian kanan (sesudah tanda “;”) lebih panjang dibanding sebelah kiri.
• “BERBEDA”,apabila panjang kiri sama dengan panjang bagian,kanan tapi stringnya berbeda
• “SAMA”, apabila string bagian kiri sama dengan string bagian kanan.
Spoiler for for problem:
Program Contoh_queue;
uses crt;
const maks_Q = 10;
type item : record
data = char;
{sisipkan deklarasi tipe dan variebel queue disini}
{sisipkan deklarasi prosedur-prosedur standar pada queue disini}
Procedure perikasa_dan_analisa
var x :item ;
i : integer;
kata ,hasil:string []
sama : boolean;
begin
repeat
clrscr ;
write (“Masukan kata yang akan di analisa
;readln( kata);
If kata <> ‘’ then
begin
i : 1 ;
inisialisasi(q);
while ( i <=length (kata) and (kata [i] <> ‘:” do
begin
x.data = kata[i];
inqueue (x,Q);
i:=i +1
end;
if i>length(kata ) then hasil :=’INPUT SALAH’;
else
begin
i:=i+1
sama :true;
while (i<=length (kata) and not (empty(Q)) do
begin
dequeue (x,Q)
If kata [i] <> x.data then sama : true
i:i+i;
end;
If not (empty(Q) then hasil :”KIRI”;
else if (i-1) < length (kata) then hasil :”KANAN”
else hasil :”BERBEDA”;
end;
write (‘Kesimpulan : ‘,hasil) readln;
end
until kata;
end;
(main program)
begin
periksa_dan_analisa;
end;
udah ane coba gan tp belum berhasil dan programnya error
0
994
5
Komentar yang asik ya
Urutan
Terbaru
Terlama
Komentar yang asik ya
Komunitas Pilihan