Wednesday, April 20, 2011

Syntax Pembuatan Cartesian Menggunakan Pascal


uses wincrt;
var x,y:integer;
jawaban:char;
begin
repeat
clrscr;
begin

writeln('program menentukan kuadran dari x dan y ');
writeln(' |y');
writeln(' |');
writeln(' kuadran 2 | kuadran 1');
writeln(' |');
writeln(' |');
writeln(' _________ | _________ x');
writeln(' |');
writeln(' |');
writeln(' kuadran 3 | kuadran 4 ');
writeln(' |');
writeln(' |');

write(' Masukkan Koordinat X : ');readln(x);

write(' Masukkan Koordinat Y : ');readln(y);

if ((x>0)and(y>0)) then;
writeln(' Berada dalam Kuadran 1');


if((x>0)and(y<0))then writeln(' Berada dalam Kuadran 2') else if((x<0)and(y<0)) then writeln(' Berada dalam Kuadran 3') else if((x<0)and(y>0)) then
writeln(' Berada dalam Kuadran 4')

else if((x=0)and(y=0)) then


writeln(' ',x,' dan ',y,' ada dalam Titik tengah');
writeln ('apakah anda ingin mencoba lagi lagi(Y/T);');
readln(jawaban);
end;
until (jawaban='T');
donewincrt;

end.





Hasil Dari Syntax Diatas




No comments:

Adsens