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

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.931
    Beğenileri:
    323
    Ödül Puanları:
    2.230
    Meslek:
    Ne iş olursa yaparım abi
    Yer:
    leşim ANKARA:)
    Banka:
    1.432 Ç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.931
    Beğenileri:
    323
    Ödül Puanları:
    2.230
    Meslek:
    Ne iş olursa yaparım abi
    Yer:
    leşim ANKARA:)
    Banka:
    1.432 Ç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.931
    Beğenileri:
    323
    Ödül Puanları:
    2.230
    Meslek:
    Ne iş olursa yaparım abi
    Yer:
    leşim ANKARA:)
    Banka:
    1.432 Ç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
    .*)
     

Sayfayı Paylaş