![]() |
dikdörtgen çizimi
uses crt;
var a,b,c,d,k:byte; Procedure dikkenarli(x1,y1,x2,y2:byte); Var k:byte; Begin writeln('asd') ; Gotoxy(x1,y1);Write(#201); for k:=x1+1 to x2-1 do Write (#205); Write(#187); for k:= y1+1 to y2-1 do begin Gotoxy(x1,k);Write(#186); Gotoxy(x2,k);Write(#186); end; Gotoxy(x1,y2);Write(#200); for k:=x1+1 to x2-1 do Write(#205); Write(#188); End; procedure kordinatlar; begin clrscr; writeln('1 kordinatinı yaz'); readln(a); writeln('2 kordınatını yaz'); readln(b); writeln('3 kordınatını yaz'); readln(c); writeln('4 kordınatını yaz'); readln(d); clrscr; dikkenarli(a,b,c,d); write('gokhan aygun'); readln; end; begin kordinatlar; end. end. |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım için tşkrlr
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 23:57 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.