Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Programlama > Pascal

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 04 March 2008, 13:17   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:31
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart Pascal dilinde çok fazla kullanılan kodları türkçe yazın

Pascal dilinde çok fazla kullanılan kodları türkçe yazın

(* ////tamer\\\\ *)
unit turkce;
interface
procedure renk(t:integer);
procedure temizle;
procedure yaz(xax:string);
procedure yazi(x:string);
procedure enterabasinca;
procedure hedef(ax,by:byte);
procedure hiz(eehh:integer);
procedure ses(aahh:integer);
function xnerde: Byte;
function ynerde:Byte;
function bosalan(surucu: Byte): Longint;
function bekle: Char;
function kapasite(surucu_k:byte):Longint;
function kopyala(axc: String; bxc : Integer; cxc: Integer): String;
procedure sayiyaz(rty:integer);
procedure sayiyazi(rtf:integer);
procedure sayiyaata(var i:integer);
procedure yeni(adres,jgj:string);
implementation
uses crt,dos;
procedure renk(t:integer);
begin
textcolor(t);
end;
procedure temizle;
begin
clrscr;
end;
procedure yaz(xax:string);
begin
writeln('');
writeln(xax);
end;
procedure yazi(x:string);
begin
write(x);
end;
procedure enterabasinca;
begin
readln;
end;
procedure hedef(ax,by:byte);
begin
gotoxy(ax,by);
end;
procedure hiz(eehh:integer);
begin
delay(eehh);
end;
procedure ses(aahh:integer);
begin
sound(aahh);
end;
function xnerde: Byte;
begin
xnerde:=wherex;
end;
function ynerde:Byte;
begin
ynerde:=wherey;
end;
function bosalan(surucu: Byte): Longint;
begin
bosalan:=diskfree(surucu);
end;
function bekle: Char;
begin
bekle:=readkey;
end;
function kapasite(surucu_k:byte):Longint;
begin
kapasite:=disksize(surucu_k);
end;
function kopyala(axc: String; bxc : Integer; cxc: Integer): String;
begin
kopyala:=copy(axc,bxc,cxc);
end;
procedure sayiyaz(rty:integer);
begin
writeln(rty);
end;
procedure sayiyazi(rtf:integer);
begin
write(rtf);
end;
procedure sayiyaata(var i:integer);
var
f:text;
begin
assign(f,ParamStr(1));
reset(f);
read(f,i);
end;
procedure yeni(adres,jgj:string);
var
aup:text;
begin
assign(aup,adres);
rewrite(aup);
write(aup,jgj);
close(aup);
end;
end.


Bu kodları compile,make,built yapın.TPU dosyası oluşacak.Dosyanın adını turkce yapın.

TÜRKÇE ÇALIŞAN KODLAR Ve Bilgi::

Türkçe Pascal!! Oğuz Eroğlu
Adresguz_eroglu67@hotmail.co.uk

Çekinmeyin kaydedin : )



NEDİR BU? NASIL ÇALIŞIR?

Öncelikle Türkçe Pascalı kullanmak için Türkçe.tpu Türkçe.pas Türkçe.bak isimli

üç adet dosyayı Turbo Pascalın bin klasörüne kopyalayın veya kes yapıştır yapın.


ÖNEMLİ:::: Ardından program yazmaya başlarken :::

Uses turkce,..; şeklinde başlayın.


ÖRN::: uses turkce,crt;

Uses graph,turkce;

Uses turkce;
Eğer başka bir derleyici kullanıyorsanız (TP DIŞINDA) çalışıcağına dair garanti veremem çünkü Turbo Pascalla yazıldı.

Şimdi gelelim nedir bu dosyalar?

Bu dosyalar pascal programlama dilini Türkçe kullanabilmenize olanak verir.Türkçe kodlar Türkçe programlama…

HANGİ KODLAR TÜRKÇE ÇALIŞIR?


1-) renk(renk kodu) yazının rengini ayarlamanızı sağlar. Örn::

renk(100);

renk(50);

Renk Kodlarında 100 den sonrası yanıp sönen renkleri ifade eder…



2-)temizle; kodu ekrandaki bütün yazıları siler…

örn;

writeln(‘klklk’);
readln;
temizle;


3-)yaz(‘…’); ve yazi(‘….’); kodu ekrana yazı yazar..

ÖNEMLİ::: yaz(‘..’); kodu ekranda yeni bir satıra geçer.. yazi(‘..’); kodu bunu yapmaz.Aynı satıra devam eder.


Örn: yaz(‘Ali Ata Bakmış’);



4-)enterabasinca; kodu işlemin enter tuşuna basılınca gerçekleşmesini sağlar

örn:

enterabasinca;
end.


5-)hedef(x,y); kodu ekranın istenilen x ve y koordinatlarına gidilmesini sağlar.

Örn:

Hedef(35,21);
Yaz(‘ali ata bak olum’);


6-)hiz(..); kodu komutun gerçekleşeceği zaman bekleme süresini ayarlar..(Delay gibi)

örn:

yaz(‘Ali’);
hiz(100);
yaz(‘Ata Bak’);

NOT: hiz(1000)==1 saniyelik bekleme süresi…



7-)ses(..); kodu kasadan ses çıkarmayı sağlar..


örn:
repeat
ses(800);
until keypressed;
nosound;

Not:Bu komutu kullanarak org programı yazabilirsiniz..



8-)xnerde; ve ynerde; komutları ekranın hangi koordinatlarda olduğunu belirler.(wherex ve wherey gibi);


örn::

hedef(30,8);
yazi(‘Ali ata bakk bee ‘);
enterabasinca;
hedef(xnerde+1,ynerde);
end.


9-)bosalan(..); ve kapasite(..); kodları diskteki bos alanı ve disk kapasitesini belirler.


0--)GeçerLi disk.


Sayiyaz(bosalan(0));



10-) bekle; kodu bir tuşa basılana kadar programı bekletir.


Örn::

Var c:char;
Begin
C:=bekle;
Yaz(‘abcd’);
Enterabasinca;
End.

11-)

kopyala(…..); kodu anlatılmaz yaşanır : ) örneğe bakın anlarsınız


uses turkce,crt;
var
a:string;
begin
temizle;
a:=’abcdef’
a:=kopyala(a,3,2);
yaz(a);
enterabasinca;
end.

EKRAN ÇIKTISI::: cd

Yani 3. harften başladı 2 harf gitti ve kodyaladı


12-)sayiyaz(..); ve sayiyazi(..); kodları ekrana sayı değerlerini yazar. Yaz ve yazi kodlarıyla aynı mantıktadır.


13-)sayiyaata(..); kodu değişken ataması yapar.

Örn:

Yaz(‘’);
Sayiyaata(a);
Yaz(‘’);
Sayiyaata(b);
Sayiyaz(a+b);

Gibi



14-)yeni(……); kodu belirtilen adrese yeni dosya açar…


KULLANIM::yeni(‘adres’,’yazılacak yazı’);

Örn:

.
.
.
yeni(‘c:\tp\yeni.txt’,’Ali Ata Bak’);
.
.
.

c:\tp klasörüne yeni.txt diye dosya oluştu ve içinde Ali Ata Bak yazıyor.



Alıntı ile Cevapla
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler

Benzer Konular
Konu Başlıkları Konuyu Başlatan

Papatyam Forum Ana Kategori Başlıkları

Cevaplar Son Mesajlar
Html Kodları 2 agasarlinuris html 4 08 April 2009 16:13
Html Kodları agasarlinuris html 0 21 January 2009 21:31
Pascal Programlama Dili CoNQueRoR_61 Pascal 0 20 January 2009 14:53
Yazın dış kulak enfeksiyonlarına dikkat! PESTEMAL Sağlık ve Hastalıklar 0 11 March 2008 14:52
Yazın güneş ve çocuğunuz PESTEMAL Kadın ve Çocuk Sağlığı 0 11 March 2008 14:27

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.