Advertisement
MoonDeMon

SCJ2 No 2 KEBALIK

Dec 9th, 2016
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.70 KB | None | 0 0
  1. program soal2;
  2. uses crt;
  3. var baris,bintangspasi,spasi,angka,tengah:integer;
  4. begin
  5. clrscr;
  6. write('Masukkan angka:');
  7. read(angka);
  8. for baris:=1 to angka do
  9. begin
  10. for spasi:=1 to baris-1 do
  11. begin
  12. write(' ');
  13. end;
  14. tengah:=angka-baris;
  15. for bintangspasi:=1 to tengah do
  16. begin
  17. write('* ');
  18. end;
  19. write('*');
  20. for spasi:=1 to angka-1 do
  21. begin
  22. write(' ');
  23. end;
  24. writeln;
  25. end;
  26. readkey;
  27. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement