Geri git   Van.GEN.TR Forum | Yerel Van Forumu > Bilgisayar > Programlama > Pascal

Cevapla
 
Konu Araçları Stil
Alt 24/04/07, 01:00   #1
gokhanaygun
Tuğgeneral
 
gokhanaygun - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 36
Mesajlar: 925
Tecrübe Puanı: 26 gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold
Standart 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.
gokhanaygun isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 187
Alt 22/05/07, 11:49   #2
nergis_ayse
Çavuş
 
nergis_ayse - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: May 2007
Yaş: 34
Mesajlar: 76
Tecrübe Puanı: 19 nergis_ayse is a jewel in the rough nergis_ayse is a jewel in the rough nergis_ayse is a jewel in the rough
Standart

wowww süper
nergis_ayse isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 7
Alt 22/05/07, 12:05   #3
gokhanaygun
Tuğgeneral
 
gokhanaygun - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Apr 2007
Bulunduğu yer: VAN
Yaş: 36
Mesajlar: 925
Tecrübe Puanı: 26 gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold gokhanaygun is a splendid one to behold
Standart

buldum diyosun yanı ..
gokhanaygun isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 187
Alt 20/06/08, 15:12   #4
firari
Mareşal
 
firari - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Sep 2007
Mesajlar: 5.839
Tecrübe Puanı: 104 firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute firari has a reputation beyond repute
Standart

Paylaşım için tşkler…
__________________



firari isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 613
Takımınız:
Alt 30/06/08, 01:43   #5
Mattet
Cumhurbaşkanı
 
Mattet - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: May 2008
Bulunduğu yer: van
Mesajlar: 7.116
Tecrübe Puanı: 48 Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute Mattet has a reputation beyond repute
Standart

teŞekkÜrler PaylaŞim İİÇİn
__________________





Düşmeden Bulutlarda Koşmam GereK !
Mattet isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 866
Alt 31/07/08, 15:57   #6
Neutralizer
Yasaklı kullanıcı
 
Neutralizer - ait Kullanıcı Resmi (Avatar)
 
Üyelik tarihi: Jan 2008
Bulunduğu yer: İstediğin yerden
Mesajlar: 1.890
Tecrübe Puanı: 0 Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute Neutralizer has a reputation beyond repute
Standart

emeğe saygı
Neutralizer isimli Üye şimdilik offline konumundadır   Alıntı ile Cevapla
Konu Sayısı: 317
Takımınız:
Cevapla


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Konu Araçları
Stil

Yetkileriniz
Yeni Mesaj yazma yetkiniz Aktif değil dir.
Mesajlara Cevap verme yetkiniz aktif değil dir.
Eklenti ekleme yetkiniz Aktif değil dir.
Kendi Mesajınızı değiştirme yetkiniz Aktif değildir dir.

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-KodlarıKapalı
Gitmek istediğiniz klasörü seçiniz


Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 20:01 .


Powered by vBulletin
Copyright © 2000-2007 Jelsoft Enterprises Limited.
Sitemap
6, 5, 3, 7, 8, 9, 10, 11, 12, 13, 14, 15, 113, 16, 17, 18, 19, 81, 20, 27, 22, 23, 24, 25, 26, 48, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 43, 136, 40, 58, 45, 42, 44, 46, 47, 53, 54, 55, 56, 57, 59, 60, 70, 61, 62, 63, 64, 65, 66, 68, 69, 71, 72, 74, 75, 76, 77, 78, 79, 80, 82, 83, 96, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 98, 97, 100, 101, 102, 103, 106, 104, 105, 112, 109, 108, 107, 110, 111, 114, 115, 118, 116, 117, 119, 148, 154, 124, 165, 122, 120, 123, 121, 150, 153, 125, 128, 129, 131, 132, 133, 134, 135, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 147, 151, 149, 202, 175, 164, 152, 167, 155, 156, 157, 158, 159, 160, 161, 162, 163, 195, 169, 166, 168, 170, 171, 172, 199, 174, 173, 196, 200, 176, 177, 180, 178, 179, 182, 189, 187, 184, 186, 191, 192, 193, 194, 197, 198, 201, 203, 229, 204, 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 217, 218, 219, 220, 221, 222, 223, 224, 236, 231, 232, 233, 234, 235, 237, 240, 239, 241, 243, 242, 244,