Pascal Dersleri & Örnekleri

bytuman · 09-03-04, 08:00

Paskal hakkında 2, 3 soru gelmesinin ardından bu nu yazmaya karar verdim. programlama hakkında hiç bilmiyenin bile birseyler anlamasını ve basit te olsa birseyler yazmasını sağlamak.
kitaplardaki gibi bir sürü extra zımbırtı vermemeye calısıcagım. sorularınız olursa sorarsınız

oncelikle bu yazı yazılırken borland goz onune alınmıştır ama free veya gnu pascal da kullanabilirsiniz (hatalar olusabilir)

NOT: Pascalı kurarken calısmalarınızın ve paskalın aynı harddiskteolmasına dikkatedin. paskal programının ve program klasorlerinizin tr karakter ve bosluk içermemesine dikkat edin. örn:Pascal Çalışmalarım klasoru olusturmak yerine Pascalcalismalarim olusturun. birde pascal içinde tr karakter kullanmayın bu sorun cıkartmaz ama programdaokunamıyan karakterler cıkar...

Paskalda pogramlama basit olarak şudur // olarak başlıyan satırlar bir üst satırın acıklamadır lütfen birsey yazarken bu bolumleri çıkartın...

Kod:

Program
//programın adıdır.
uses
//herhangi bir komut kullanmak için
var
//var değişken demektir onları bu bolume yazıcagız
begin
//begin başla demektir ve asıl program bundan sonra başlar
end.
//end ise programı bitirmek içindir noktayı unutmayın

1.uses: gelişmiş bir bolum oldugu için ilk asamada onu atlıyorum.
2.variables yani değişkenler sunlardır.
a.Shortint -128 ile +127 arasındaki tam sayılardır
b.Byte 0 ile 255 arasındaki tam sayılardır
c.Integer -32768 ile +32767 arasındaki tam sayılardır
d.Word 0 ile 65535 arasındaki tam sayılardır
e.Longint -2146473648 ile +2146473647 arasındaki tam sayılardır
f.Real -sonsuz ile +sonsuz arasındaki herseydir (sayı ve rakam)
g.String 255 karaktere kadar çıkabilen harflerdir
h.Char sadece 1 karakter harftir.
3. begin ve end. programı başlatır ve bititrir. end; oarak kullanılırsa program bitmez.

programlamada bir seye baslarken hello world diye geyik vardır. bende bununla basladım

yazımdada bununla baslıyım... bir komur yazmak için program adını falan yazdıktan sonra bunları yazın.

Kod:

begin
  Writeln('Hello, World !');
end.

bu kodu yazdığınızda ekran acılıp kapanıcaktır ama siz goremesenizde ekranda
Hello, World !
gorunucektir.

bu yazıyı ekranda tutmak için readln komutu kullanıcaz bu sekilde biz enter tusuna bastıgımızda program kapanıcaktır.

Kod:

begin
  Writeln('Hello, World !');
  readln
//iste bu komut
end.

ayrıca read veya read ln komuru değişkeni programa okutmak için kullanılabilinir.

yavas yavas degisken kullanmayı ogrenelim. pascalda := eşittir demektir. ln komutu ise satır atlamak için kullanılır. yani hem write hem writeln vardır. ama write satırda devam etmek writeln ise satır atlamak için kullanılır. write yazdıgınız zaman ('birseyler') seklinde kullanmalısınız eger içine değişken giriyorsa ('birseyler',degisken,'yinebirseyler') virdul eklenir [dikkat sadece ' olan yerin onune veya arkasına "," eklenir)] biras karısık oldu galiba ornekten birseyler anlıabilirsiniz

Kod:

var
  yasim : Byte;
  adim : String;
  ulke : String;
//değişkenler bu şekilde kullanılır.
begin
  yasim := 19 ;
  adim := bytuman ;
  ulke := Ukrayna ;
//degiskenler program içinde bu sekilde tanıtılır.
  Writeln('Merhaba, ben ',adim);
//sadece degiskenin basinda ' oldugu için degiskenin basına virgul kondu. dikkat degiskenden sonra ' yok...
  Write(yasim,' yasindayim.');
//degiskenden sonra ' oldugu için degiskenin sonuna , kondu 
  writeln ('ben');
//sadece ben yazdırıldı
  write (ulke);
// ' kullanılmassa ve degisken girerseniz ' kullanmanıza gerek yoktur. ayrıca write komuru ile satıra devam edilmiştir
  write ('da yasiyorum');
// wirte komutu ile satıra devam edilmistir.
  readln
//programı ekranda gormem için kapatma komutu
end.
//programı bitir.

yukarıdaki ornekte değişkenleri program içine tanıttık. birde programı kullanan kişiyede bunları yaptırabiliriz. ornege bakınız

Kod:

var
  yasim : Byte;
  adim : String;
  ulke : String;
//degiskenlerimizi yazdik
begin
  Writeln('Adiniz nedir?');
//programı kullanan kişiye adını sorduk
  readln(adim);
//programın ad sorusuna verilen cevabı adım degiskenine kaydetti. 
  Writeln('kac yasindasiniz?');
//programi kullanan kisiye yasi soruldu
  readln(yasim);
//programın yas sorusuna verilen cevabı yasim degiskenine kaydetti
  Writeln('nerede yasiyorsunuz?');
//programi kullanan kisiye yasadigi yer soruldu 
  readln(ulke);
//programın yasanilan yer sorusuna verilen cevabı ulke degiskenine kaydetti
//simdi bunlari karsisindaki kişiye yazicak
  Writeln('Merhaba, siz ',adim);
//adim degiskeni kullanilarak isim yazildi
  Write(yasiniz,' yasindayim.');
yasim degiskeni yullanılarak yas yazıldı
  writeln ('siz');
  write (ulke);
  write ('da yasiyorsunuz');
//ulke degiskeni kullanılarak ulke yazıldı...
readln
//programı ekranda gormem için kapatma komutu
end.
//programı bitir.

bugünlük bu kadar yarın uses crt kullanımını gostericem

bytuman · 11-03-04, 10:43

arkadaşlar bu konu hakkımda devam etmemi isterseniz yazın gelen isteklere gore devam edip etmeme konusunda dusunucem (1 istek bile devam etmeme yeterlidir) saygılarımla

NaRCoTiC · 12-03-04, 00:07

devam etmeni isterim

Rai · 15-03-04, 07:44

tabii ki ett

bytuman · 16-03-04, 10:00

bu aksam bu yazının bulundugu yerde yeni dersler oloucaktır

NaRCoTiC · 20-03-04, 10:51

geç kaldın

bytuman · 25-03-04, 12:39

kusura bakma su aralar sorunlarım var en yakın zamanda devam edicem

NaRCoTiC · 31-03-04, 17:16

ne demek sorunlarını hallet sonra devam edersin

goldbrain · 08-02-05, 18:42

1 yıl geçti işlerinn bitmedi mi?

saki_09 · 22-02-09, 02:21

dewam etmeni dileriz...

gokaytopal1 · 11-04-09, 00:04

paylaşım için sağol...

avangardenator9 · 01-01-10, 04:17

arkadaşım bana pascalda aşk ölçer programı lazım ödevim için yardım edebilirsen sevinirim şimdiden teşekkürler.....

havin_ural · 12-01-10, 10:48

soru:klavyeden başlangıç ve bitişi belirten 2 sayi arasındaki 1 sayilarini ekrana yazılımı sayıların toplamı sayiların ortalması tek sayilarin ekrana yazılımı tek sayılarin toplamı ortalması aynı şekilde çift sayılarıda ayni şekilde olucak.bu sorunun cvp isdiyorum...

havin_ural · 12-01-10, 10:50

soru:klavyeden başlangıç ve bitişi belirten 2 sayi arasındaki 1 sayilarini ekrana yazılımı sayıların toplamı sayiların ortalması tek sayilarin ekrana yazılımı tek sayılarin toplamı ortalması aynı şekilde çift sayılarıda ayni şekilde olucak.bu sorunun cvp isdiyorum

makaay3838 · 15-04-10, 19:46

kardeş benim pascal da bir ödevim var yardım edebilir misin

Soru: Hastanede çalışan bir personel üç günde bir nöbet tutmaktadır. Bu personelin ilk nöbetini Pazartesi tuttuğunu düşünerek girilecek nöbet sayısının hangi güne denk geldiğini bulacak programı yazınız çok acil

makaay3838 · 17-04-10, 17:30

Soru 2 : Hastanede çalışan bir personel üç günde bir nöbet tutmaktadır. Bu personelin ilk nöbetini Pazartesi tuttuğunu düşünerek girilecek nöbet sayısının hangi güne denk geldiğini bulacak programı yazınız. Örn : 1. öbeti Pazartesi, 2. nöbeti Perşembe, 4. nöbeti Çarşamba

Soru 3 : Beş kişilik bir sınıfta yapılan sınavlarda geçme notu olarak sınıf ortalaması kullanılmaktadır. Puanı sınıf ortalamasının üstünde veya sınıf ortalamasına eşit olan öğrenciler dersi geçmekte, diğer öğrenciler dersten kalmaktadır. Sınava giren beş öğrencinin tek tek puanlarını alarak hangi öğrencilerin dersi geçip, hangilerinin dersi geçemediğini ekrana yazdıracak programı yazınız. Örn : 1. Öğrenci geçti., 2. Öğrenci kaldı gibi

Soru 4 : Kullanıcıdan doğum yılını alıp, 2010 yılına göre yaşını hesaplayacak programı yazınız.

yapabilirsen çok sevinecem benim sınav sorularım

Prefixed · 23-04-10, 15:34

makaay3838, Arkadaşım 4. Sorunun cevabı ;

PHP Code:


			
Uses crt;
var
yas,dyili:integer;
const
yil=2010;
begin clrscr;
write('Lutfen Dogum Yilinizi Giriniz ----> '); readln(dyili);
yas:=yil-dyili;
writeln('Yasiniz ----> ',yas,' `tir.');
readln;
end.

Diger sorularınıda çözüyorum..

09-03-04, 08:00	#1
bytuman	Pascal Dersleri & Örnekleri Paskal hakkında 2, 3 soru gelmesinin ardından bu nu yazmaya karar verdim. programlama hakkında hiç bilmiyenin bile birseyler anlamasını ve basit te olsa birseyler yazmasını sağlamak. kitaplardaki gibi bir sürü extra zımbırtı vermemeye calısıcagım. sorularınız olursa sorarsınız oncelikle bu yazı yazılırken borland goz onune alınmıştır ama free veya gnu pascal da kullanabilirsiniz (hatalar olusabilir) NOT: Pascalı kurarken calısmalarınızın ve paskalın aynı harddiskteolmasına dikkatedin. paskal programının ve program klasorlerinizin tr karakter ve bosluk içermemesine dikkat edin. örn:Pascal Çalışmalarım klasoru olusturmak yerine Pascalcalismalarim olusturun. birde pascal içinde tr karakter kullanmayın bu sorun cıkartmaz ama programdaokunamıyan karakterler cıkar... Paskalda pogramlama basit olarak şudur // olarak başlıyan satırlar bir üst satırın acıklamadır lütfen birsey yazarken bu bolumleri çıkartın... Kod: Program //programın adıdır. uses //herhangi bir komut kullanmak için var //var değişken demektir onları bu bolume yazıcagız begin //begin başla demektir ve asıl program bundan sonra başlar end. //end ise programı bitirmek içindir noktayı unutmayın 1.uses: gelişmiş bir bolum oldugu için ilk asamada onu atlıyorum. 2.variables yani değişkenler sunlardır. a.Shortint -128 ile +127 arasındaki tam sayılardır b.Byte 0 ile 255 arasındaki tam sayılardır c.Integer -32768 ile +32767 arasındaki tam sayılardır d.Word 0 ile 65535 arasındaki tam sayılardır e.Longint -2146473648 ile +2146473647 arasındaki tam sayılardır f.Real -sonsuz ile +sonsuz arasındaki herseydir (sayı ve rakam) g.String 255 karaktere kadar çıkabilen harflerdir h.Char sadece 1 karakter harftir. 3. begin ve end. programı başlatır ve bititrir. end; oarak kullanılırsa program bitmez. programlamada bir seye baslarken hello world diye geyik vardır. bende bununla basladım yazımdada bununla baslıyım... bir komur yazmak için program adını falan yazdıktan sonra bunları yazın. Kod: begin Writeln('Hello, World !'); end. bu kodu yazdığınızda ekran acılıp kapanıcaktır ama siz goremesenizde ekranda Hello, World ! gorunucektir. bu yazıyı ekranda tutmak için readln komutu kullanıcaz bu sekilde biz enter tusuna bastıgımızda program kapanıcaktır. Kod: begin Writeln('Hello, World !'); readln //iste bu komut end. ayrıca read veya read ln komuru değişkeni programa okutmak için kullanılabilinir. yavas yavas degisken kullanmayı ogrenelim. pascalda := eşittir demektir. ln komutu ise satır atlamak için kullanılır. yani hem write hem writeln vardır. ama write satırda devam etmek writeln ise satır atlamak için kullanılır. write yazdıgınız zaman ('birseyler') seklinde kullanmalısınız eger içine değişken giriyorsa ('birseyler',degisken,'yinebirseyler') virdul eklenir [dikkat sadece ' olan yerin onune veya arkasına "," eklenir)] biras karısık oldu galiba ornekten birseyler anlıabilirsiniz Kod: var yasim : Byte; adim : String; ulke : String; //değişkenler bu şekilde kullanılır. begin yasim := 19 ; adim := bytuman ; ulke := Ukrayna ; //degiskenler program içinde bu sekilde tanıtılır. Writeln('Merhaba, ben ',adim); //sadece degiskenin basinda ' oldugu için degiskenin basına virgul kondu. dikkat degiskenden sonra ' yok... Write(yasim,' yasindayim.'); //degiskenden sonra ' oldugu için degiskenin sonuna , kondu writeln ('ben'); //sadece ben yazdırıldı write (ulke); // ' kullanılmassa ve degisken girerseniz ' kullanmanıza gerek yoktur. ayrıca write komuru ile satıra devam edilmiştir write ('da yasiyorum'); // wirte komutu ile satıra devam edilmistir. readln //programı ekranda gormem için kapatma komutu end. //programı bitir. yukarıdaki ornekte değişkenleri program içine tanıttık. birde programı kullanan kişiyede bunları yaptırabiliriz. ornege bakınız Kod: var yasim : Byte; adim : String; ulke : String; //degiskenlerimizi yazdik begin Writeln('Adiniz nedir?'); //programı kullanan kişiye adını sorduk readln(adim); //programın ad sorusuna verilen cevabı adım degiskenine kaydetti. Writeln('kac yasindasiniz?'); //programi kullanan kisiye yasi soruldu readln(yasim); //programın yas sorusuna verilen cevabı yasim degiskenine kaydetti Writeln('nerede yasiyorsunuz?'); //programi kullanan kisiye yasadigi yer soruldu readln(ulke); //programın yasanilan yer sorusuna verilen cevabı ulke degiskenine kaydetti //simdi bunlari karsisindaki kişiye yazicak Writeln('Merhaba, siz ',adim); //adim degiskeni kullanilarak isim yazildi Write(yasiniz,' yasindayim.'); yasim degiskeni yullanılarak yas yazıldı writeln ('siz'); write (ulke); write ('da yasiyorsunuz'); //ulke degiskeni kullanılarak ulke yazıldı... readln //programı ekranda gormem için kapatma komutu end. //programı bitir. bugünlük bu kadar yarın uses crt kullanımını gostericem
	Alıntı Yaparak Cevapla

11-03-04, 10:43	#2
bytuman	Cvp: Pascal Dersleri & Örnekleri arkadaşlar bu konu hakkımda devam etmemi isterseniz yazın gelen isteklere gore devam edip etmeme konusunda dusunucem (1 istek bile devam etmeme yeterlidir) saygılarımla
	Alıntı Yaparak Cevapla

12-03-04, 00:07	#3
NaRCoTiC	Cvp: Pascal Dersleri & Örnekleri devam etmeni isterim
	Alıntı Yaparak Cevapla

15-03-04, 07:44	#4
Rai	Cvp: Pascal Dersleri & Örnekleri tabii ki ett
	Alıntı Yaparak Cevapla

16-03-04, 10:00	#5
bytuman	Cvp: Pascal Dersleri & Örnekleri bu aksam bu yazının bulundugu yerde yeni dersler oloucaktır
	Alıntı Yaparak Cevapla

20-03-04, 10:51	#6
NaRCoTiC	Cvp: Pascal Dersleri & Örnekleri geç kaldın
	Alıntı Yaparak Cevapla

25-03-04, 12:39	#7
bytuman	Cvp: Pascal Dersleri & Örnekleri kusura bakma su aralar sorunlarım var en yakın zamanda devam edicem
	Alıntı Yaparak Cevapla

31-03-04, 17:16	#8
NaRCoTiC	Cvp: Pascal Dersleri & Örnekleri ne demek sorunlarını hallet sonra devam edersin
	Alıntı Yaparak Cevapla

08-02-05, 18:42	#9
goldbrain	Cvp: Pascal Dersleri & Örnekleri 1 yıl geçti işlerinn bitmedi mi? Mesajı son düzenleyen goldbrain* ( 08-02-05 - 18:44 )*
	Alıntı Yaparak Cevapla

22-02-09, 02:21	#10
saki_09	C: Pascal Dersleri & Örnekleri dewam etmeni dileriz...
	Alıntı Yaparak Cevapla

11-04-09, 00:04	#11
gokaytopal1	C: Pascal Dersleri & Örnekleri paylaşım için sağol...
	Alıntı Yaparak Cevapla

01-01-10, 04:17	#12
avangardenator9	C: Pascal Dersleri & Örnekleri arkadaşım bana pascalda aşk ölçer programı lazım ödevim için yardım edebilirsen sevinirim şimdiden teşekkürler.....
	Alıntı Yaparak Cevapla

12-01-10, 10:48	#13
havin_ural	C: Pascal Dersleri & Örnekleri soru:klavyeden başlangıç ve bitişi belirten 2 sayi arasındaki 1 sayilarini ekrana yazılımı sayıların toplamı sayiların ortalması tek sayilarin ekrana yazılımı tek sayılarin toplamı ortalması aynı şekilde çift sayılarıda ayni şekilde olucak.bu sorunun cvp isdiyorum...
	Alıntı Yaparak Cevapla

12-01-10, 10:50	#14
havin_ural	C: Pascal Dersleri & Örnekleri soru:klavyeden başlangıç ve bitişi belirten 2 sayi arasındaki 1 sayilarini ekrana yazılımı sayıların toplamı sayiların ortalması tek sayilarin ekrana yazılımı tek sayılarin toplamı ortalması aynı şekilde çift sayılarıda ayni şekilde olucak.bu sorunun cvp isdiyorum
	Alıntı Yaparak Cevapla

15-04-10, 19:46	#15
makaay3838	C: Pascal Dersleri & Örnekleri kardeş benim pascal da bir ödevim var yardım edebilir misin Soru: Hastanede çalışan bir personel üç günde bir nöbet tutmaktadır. Bu personelin ilk nöbetini Pazartesi tuttuğunu düşünerek girilecek nöbet sayısının hangi güne denk geldiğini bulacak programı yazınız çok acil
	Alıntı Yaparak Cevapla

17-04-10, 17:30	#16
makaay3838	C: Pascal Dersleri & Örnekleri Soru 2 : Hastanede çalışan bir personel üç günde bir nöbet tutmaktadır. Bu personelin ilk nöbetini Pazartesi tuttuğunu düşünerek girilecek nöbet sayısının hangi güne denk geldiğini bulacak programı yazınız. Örn : 1. öbeti Pazartesi, 2. nöbeti Perşembe, 4. nöbeti Çarşamba Soru 3 : Beş kişilik bir sınıfta yapılan sınavlarda geçme notu olarak sınıf ortalaması kullanılmaktadır. Puanı sınıf ortalamasının üstünde veya sınıf ortalamasına eşit olan öğrenciler dersi geçmekte, diğer öğrenciler dersten kalmaktadır. Sınava giren beş öğrencinin tek tek puanlarını alarak hangi öğrencilerin dersi geçip, hangilerinin dersi geçemediğini ekrana yazdıracak programı yazınız. Örn : 1. Öğrenci geçti., 2. Öğrenci kaldı gibi Soru 4 : Kullanıcıdan doğum yılını alıp, 2010 yılına göre yaşını hesaplayacak programı yazınız. yapabilirsen çok sevinecem benim sınav sorularım
	Alıntı Yaparak Cevapla

23-04-10, 15:34	#17
Prefixed	C: Pascal Dersleri & Örnekleri makaay3838, Arkadaşım 4. Sorunun cevabı ; PHP Code: Uses crt; var yas,dyili:integer; const yil=2010; begin clrscr; write('Lutfen Dogum Yilinizi Giriniz ----> '); readln(dyili); yas:=yil-dyili; writeln('Yasiniz ----> ',yas,' `tir.'); readln; end. Diger sorularınıda çözüyorum..
	Alıntı Yaparak Cevapla

Konu Araçları
Çıktı Görüntüsünü Göster Sayfayı E-posta İle Yolla