1. * 5651 Sayılı Kanun'a göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur.
    * Telif hakkına konu olan eserlerin yasal olmayan şekilde paylaşıldığını ve yasal haklarının çiğnendiğini düşünen hak sahiplerinin İLETİŞİM bölümünden bize ulaşmaları durumunda ilgili şikayet incelenip gereği 1 (bir) hafta içinde gereği yapılacaktır.
    E-posta adresimiz
Notu Gizle
Merhaba Ziyaretçi.

"BENİM DÜNYAM" konulu resim yarışması başladı. İlgili konuya BURADAN ulaşabilirsiniz.

Sizi de bu yarışmaya katılıma davet ediyoruz...

Pascal Örnekleri

Konusu 'Delphi İle Başlangıç' forumundadır ve merakettim tarafından 17 Ekim 2009 başlatılmıştır.

  1. merakettim
    Ecinni

    merakettim Öpözel Üye :*

    Katılım:
    19 Temmuz 2006
    Mesajlar:
    1.939
    Beğenileri:
    330
    Ödül Puanları:
    2.230
    Meslek:
    Ne iş olursa yaparım abi
    Yer:
    leşim ANKARA:)
    Banka:
    1.515 ÇTL
    Öğrenci notu hesaplama.pas
    PHP:
    program nothesap;
    uses crt;
    var
    vize,quiz,odev,devam,final:integer;
    basarin:real;

    begin

    write
    ('Vize notu:');
    readln(vize);
    write('Quiz notu:');
    readln(quiz);
    write('Odev notu:');
    readln(odev);
    write('Devam notu:');
    readln(devam);
    write('Final notu:');
    readln(final);
    basarin:=(((vize*0.5)+(quiz*0.25)+(odev*0.15)+(devam*0.1))*0.5)+(final*0.5);
    writeln('Ogrencinin Basari Notu : ',trunc(basarin));
    if 
    basarin>=65 then
    writeln
    ('Gectiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii')
    else
    writeln('Kaldiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii');
    end.

     
  2. merakettim
    Ecinni

    merakettim Öpözel Üye :*

    Katılım:
    19 Temmuz 2006
    Mesajlar:
    1.939
    Beğenileri:
    330
    Ödül Puanları:
    2.230
    Meslek:
    Ne iş olursa yaparım abi
    Yer:
    leşim ANKARA:)
    Banka:
    1.515 ÇTL
    (*Bir havaalanında 4 adet pist bulunmaktadır. Bir saatte havaalanına inecek uçak sayısı 1-20 arası ise 1. pist, 21-40 ise 1 ve 2 nolu pistler 41-60 ise 1,2 ve 3 nolu pistler, ve 60'ın üzerinde ise 4 pist birlikte açıllmaktadır. Uçak sayısını bilgisayara giren ve açılacak pist sayısını ekranda gösteren bir Pascal programı yazınız? *)



    PHP:
    program deneme;
    uses crt;
    var
    ucak:integer;

    begin

    write
    ('1 Saatte Inecek Ucak Sayisi:');
    readln(ucak);

    case 
    ucak of

    1..20
    :writeln('1 Numarali Pist Acilacak');
    21..40:writeln('1 ve 2 Numarali Pistler Acilacak');
    41..60:writeln('1,2 ve 3 Numarali Pistler Acilacak');
    61..1000:writeln('Tüm Pistler Acilacak');
    else
    writeln('Yanlis Ucak Satisi (Ucak Sayisi Harf,Sifir,Eksi veya Binden Fazla Olamaz');
    end;

    end.
     
  3. merakettim
    Ecinni

    merakettim Öpözel Üye :*

    Katılım:
    19 Temmuz 2006
    Mesajlar:
    1.939
    Beğenileri:
    330
    Ödül Puanları:
    2.230
    Meslek:
    Ne iş olursa yaparım abi
    Yer:
    leşim ANKARA:)
    Banka:
    1.515 ÇTL
    Klavyeden girlecek bir string ifadeyi yine klavyeden girilecek bir değer kadar ekranda tekrar halinde yazılmasını

    gerçekleştiren programı yazınız.


    PHP:
    program deneme;

    uses crt;

    var
    aa,bb:integer;
    yazi:string;

    begin
    write
    (':');
    readln(yazi);
    write('Sayiyi giriniz:');
    readln(bb);
    for 
    aa:=1 to bb do
    begin
    writeln
    ('Numara:',aa,'-->',yazi);
    end;

    end.

    (*
    Klavyeden girlecek bir string ifadeyi yine klavyeden girilecek bir değer kadar ekranda tekrar halinde yazılmasını 

    gerçekleştiren programı yazınız
    .*)
     
Benzer Konular
  1. jeriko

    Blaise Pascal

    jeriko, 3 Mayıs 2009, Paylaşıldığı Yer: Filozoflar
    Mesaj:
    0
    Görüntüleme:
    585
  2. merakettim
    Mesaj:
    5
    Görüntüleme:
    4.611
  3. Suskun
    Mesaj:
    0
    Görüntüleme:
    1.797
  4. ZeyNoO
    Mesaj:
    0
    Görüntüleme:
    1.333
  5. Suskun
    Mesaj:
    3
    Görüntüleme:
    1.963
Yüklüyor...

Sayfayı Paylaş