Cevapla
 
Konu Araçları
Eski 09-03-04, 08:00 #1
bytuman bytuman çevrimdışı
Post 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 CevaplaAlıntı Yaparak Cevapla
Eski 11-03-04, 10:43 #2
bytuman bytuman çevrimdışı
Varsayılan 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 CevaplaAlıntı Yaparak Cevapla
Eski 12-03-04, 00:07 #3
NaRCoTiC NaRCoTiC çevrimdışı
Varsayılan Cvp: Pascal Dersleri & Örnekleri


devam etmeni isterim
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 15-03-04, 07:44 #4
Rai Rai çevrimdışı
Varsayılan Cvp: Pascal Dersleri & Örnekleri

tabii ki ett
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 16-03-04, 10:00 #5
bytuman bytuman çevrimdışı
Varsayılan Cvp: Pascal Dersleri & Örnekleri

bu aksam bu yazının bulundugu yerde yeni dersler oloucaktır
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 20-03-04, 10:51 #6
NaRCoTiC NaRCoTiC çevrimdışı
Varsayılan Cvp: Pascal Dersleri & Örnekleri

geç kaldın
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 25-03-04, 12:39 #7
bytuman bytuman çevrimdışı
Varsayılan Cvp: Pascal Dersleri & Örnekleri

kusura bakma su aralar sorunlarım var en yakın zamanda devam edicem
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 31-03-04, 17:16 #8
NaRCoTiC NaRCoTiC çevrimdışı
Varsayılan Cvp: Pascal Dersleri & Örnekleri

ne demek sorunlarını hallet sonra devam edersin
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 08-02-05, 18:42 #9
goldbrain goldbrain çevrimdışı
Varsayılan 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 CevaplaAlıntı Yaparak Cevapla
Eski 22-02-09, 02:21 #10
saki_09 saki_09 çevrimdışı
Varsayılan C: Pascal Dersleri & Örnekleri

dewam etmeni dileriz...
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 11-04-09, 00:04 #11
gokaytopal1 gokaytopal1 çevrimdışı
Varsayılan C: Pascal Dersleri & Örnekleri

paylaşım için sağol...
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 01-01-10, 04:17 #12
avangardenator9 avangardenator9 çevrimdışı
Varsayılan 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 CevaplaAlıntı Yaparak Cevapla
Eski 12-01-10, 10:48 #13
havin_ural havin_ural çevrimdışı
Varsayılan 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 CevaplaAlıntı Yaparak Cevapla
Eski 12-01-10, 10:50 #14
havin_ural havin_ural çevrimdışı
Varsayılan 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 CevaplaAlıntı Yaparak Cevapla
Eski 15-04-10, 19:46 #15
makaay3838 makaay3838 çevrimdışı
Varsayılan 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 CevaplaAlıntı Yaparak Cevapla
Eski 17-04-10, 17:30 #16
makaay3838 makaay3838 çevrimdışı
Varsayılan 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 CevaplaAlıntı Yaparak Cevapla
Eski 23-04-10, 15:34 #17
Prefixed Prefixed çevrimdışı
Post 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 CevaplaAlıntı Yaparak Cevapla
Cevapla

Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz

Konu Araçları

Gönderme Kuralları
Yeni konu açamazsınız
Cevap yazamazsınız
Dosya gönderemezsiniz
Mesajlarınızı düzenleyemezsiniz

BB code is Açık
Smiley Açık
[IMG] kodu Açık
HTML kodu Kapalı



Tüm saatler GMT +3. Şuan saat: 15:20
(Türkiye için artık GMT +3 seçilmelidir.)

 
5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz. Reklam Mailimiz. Gizlilik Politikası. Tatil
Copyright © 2019