Tugas dari bu Abi ini masih acak-acakan. silahkan dirapikan sendiri ya pren...
Program xxx; uses wincrt; var x:char; a,b,c,d:string; i,j,k:integer; Label awal,lanjut; {GNU licence, By d12x} procedure buatkotak; begin gotoxy(1,1);writeln('*************************************************'); for i:= 2 to 15 do begin gotoxy(1,i);writeln('* *'); end; gotoxy(1,3);writeln('*************************************************'); gotoxy(1,16);writeln('*************************************************'); gotoxy(5,2);write (' NEW(N) / RUN(R) = '); end; procedure bersih; begin for i:=4 to 7 do gotoxy(3,i);writeln(' '); end; begin awal: buatkotak; a:=''; b:=''; c:=''; d:=''; lanjut: gotoxy(40,2); writeln(' '); gotoXY(40,2); Readln(x); if (Upcase(x)='N') then goto awal; if (Upcase(x)='R') then gotoXY(3,4); readln(a); gotoxy(3,5); readln(b); gotoxy(3,6); readln(c); gotoxy(3,7); readln(d); if not (a='Prog..') then begin gotoxy(2,9); writeln('Error 1 : salah ketik'); end; if not (d='End..') then begin gotoxy(2,12); writeln('Error 2 : salah ketik'); end; if not (b='') then begin gotoxy(2,10); writeln(copy(b,pos('[',b)+1,length(b)-pos('[',b))); end; if not (c='') then begin gotoxy(2,11); writeln(copy(c,pos('[',c)+1,length(c)-pos('[',c))); end; goto lanjut; end. |
No comments:
Post a Comment