#include
#include
#include
int a;
char z;

int desimal()
{
int a,b,c;
cout<<"============================="<
cout<<"| Konversi Bilangan Desimal |"<
cout<<"============================="<
cout<<"Masukkan bilangan desimal : "; cin>>a;
cout<<<"Bilangan oktalnya adalah : "<<
cout<<<"Bilangan heksadesimalnya adalah : "<<
return a;
}
int segitiga_siku2()
{
float a,t,luas,keliling,m;
cout<<"Masukkan Panjang Alas : "; cin>>a;
cout<<"Masukkan Panjang Tinggi : "; cin>>t;
m=sqrt((a*a)+(t*t));
cout<<"Sisi Miring : "<<
luas=a*t*0.5;
cout<<"Luas Segitiga : "<<
keliling=a+t+m;
cout<<"Keliling Segitiga : "<
return luas,keliling;
}
int persegi_panjang()
{
int p,l,luas,keliling;
cout<<"Masukkan Panjang persegi : "; cin>>p;
cout<<"Masukkan Lebar persegi : "; cin>>l;
luas=p*l;
cout<<"Luas Persegi Panjang : "<<
keliling=2*(p+l);
cout<<"Keliling Persegi Panjang : "<
return luas,keliling;
}
void main()
{
do {
clrscr();
cout<<"==============================="<
cout<<"| Menu Pilihan |"<
cout<<"==============================="<
cout<<"| 1. Desimal |"<
cout<<"| 2. Oktal |"<
cout<<"| 3. Biner |"<
cout<<"| 4. Heksadesimal |"<
cout<<"==============================="<
cout<<" "<
cout<<"Masukkan Pilihan bilangan awal : "; cin>>a;
switch (a)
{
case 1 :
desimal();
break;

default:
cout<<"Pilihlah sesuai hati nuranimu."; } cout<
cout<<"Ketik sembarang untuk mengulang atau ketik 'n' untuk mengakhiri : "; cin>>z;
}while (z !='n');
}

uses wincrt;
const max_elemen=20;
type str = string[20];
stack = record
elemen:array[1..max_elemen] of char;
atas : integer;
end;

var T:stack;
atas:integer;

procedure push(var a :stack; kar:char);
begin
if a.atas = max_elemen then
writeln('STACK SUDAH PENUH ')
else
begin
inc(a.atas);
a.elemen[a.atas]:= kar;
end;
end;
function pop(var a:stack):char;
begin
if a.atas = 0 then
writeln('STACK SUDAH KOSONG')
else
begin
pop:=a.elemen[a.atas];
dec(a.atas);
end;
end;
procedure konversi(var T : Stack);
var Kal:str;
i,j :integer;
begin
write('kalimat :');readln(Kal);
for i := length(Kal) downto 0 do
begin
if i <> 0 then {jika indeks kalimat belum habis lakukan push atau pop}
begin
if Kal[i] <> ' ' then {jika tidak ditemukan spasi berarti tiap huruf di-Push ke stack}
begin
push(T,Kal[i]);
end
else {jika ditemukan berarti dalam stack telah terisi satu kata}
begin
for j := 1 to T.atas do
begin
write(pop(T)); {Tulis semua huruf dalam stack}
end;
write(' ');
end;
end
else {indeks kalimat sudah habis}
begin
for j := 1 to T.atas do
write(pop(T)); {tampilkan semua huruf dalam stack yang tersisa}
end;
end;
end;
begin {Program utama}
T.atas:=0;
konversi(T);
end.