tarzını belirle
uses crt;
var m,n:string; i,j,k,l,c:byte; begin REPEAT clrscr; write('GORUNTULEME TARZINIZI SECIN (1-2-3?) ='); READLN(C); CLRSCR; REPEAT UNTIL (C=1) OR (C=2) OR (C=3); if c=1 then begin write('1. Goruntulume Metnini Sectiniz.Bir Metin Giriniz = '); readln(m); CLRSCR; for i:=1 to 7 do begin TEXTCOLOR(I); gotoxy(8-i,i+3); write(m); end; for j:=2 to 7 do begin TEXTCOLOR(J); gotoxy(j,j+9); write(m); end; for k:=1 to 7 do begin TEXTCOLOR(K); gotoxy(14+k,k+3); write(m); end; for l:=1 to 6 do begin TEXTCOLOR(L); gotoxy(21-l,l+10); write(m); end; end else if c=2 then begin write('2. Goruntulume Metnini Sectiniz. Bir Metin Girin = '); readln(n); CLRSCR; for i:=1 to 7 do begin TEXTCOLOR(I); gotoxy(28+i,i+3); write(n); end; for j:=1 to 7 do begin TEXTCOLOR(J); gotoxy(36-j,j+9); write(n); end; for k:=1 to 7 do begin TEXTCOLOR(K); gotoxy(47-k,k+3); write(n); end; for l:=1 to 6 do begin TEXTCOLOR(L); gotoxy(40+l,l+10); write(n); end; end else if c=3 then begin writeln('2 Goruntuleme Seklini Birden Sectiniz.'); write('Lutfen 1. Metni Giriniz = '); readln(m); write('Lutfen 2. Metni Giriniz = '); readln(n); for i:=1 to 7 do begin TEXTCOLOR(I); gotoxy(8-i,i+7); write(m); end; for j:=2 to 7 do begin TEXTCOLOR(J); gotoxy(j,j+13); write(m); end; for k:=1 to 7 do begin TEXTCOLOR(K); gotoxy(14+k,k+7); write(m); end; for l:=1 to 6 do begin TEXTCOLOR(L); gotoxy(21-l,l+14); write(m); end; for i:=1 to 7 do begin TEXTCOLOR(I); gotoxy(28+i,i+7); write(n); end; for j:=1 to 7 do begin TEXTCOLOR(J); gotoxy(36-j,j+13); write(n); end; for k:=1 to 7 do begin TEXTCOLOR(K); gotoxy(47-k,k+7); write(n); end; for l:=1 to 6 do begin TEXTCOLOR(L); gotoxy(40+l,l+14); write(n); end; end; UNTIL READKEY=#27; end. |
wowww süper
|
buldum diyosun yanı ..:D
|
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
emeğe saygı
|
Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 04:57 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.