Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Web Tasarım - Programlama
  • Yazılım Geliştirme
  • Delphi / C++ /Vb
  • Bu Konuda
Şimdi Ara

pascaldan anlayan biri iki dakika bakı versin

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
7
Cevap
0
Favori
665
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
0 oy
Öne Çıkar
Cevapla
Sayfa: 1
Giriş
Mesaj
  • merhabalar üniversite okuyorum ve hoca bir ödev verdi 64 adet ögrencinin adının vize notunu final notunu gireceksin ve program bunları belirli katsayılarla carparak sonucları belirli satırlara alt altta yazacak işte adı karşısında vize notu sonra final notu basarı durumu ve 65 üstü veya altı ise geçti veya kaldı yazacak herseyi yaptım programı çalıştırdım mesala 1 kişinin adı vize notu ve final notunu giriyorum bana yanyana hepsini yazıyor fakat kişi sayisini artırdıgım zaman en son kişinin final notunu girdikten sonra yine hepsi alt alta sıralanıyor herkesin ismi alt lata yazılıyor fakat sadece sonuncu adamın vize final ve basarı ile durumu gözüküyor diger ogrencilerde boş gözüküyor program sagıda bir yerde basit bir hata yaptıgımı düsünüyorum ama bulamıyorum.

    uses crt;
    const
    vizekat=0.4;finalkat=0.6;
    var
    vize,final:array[1..100] of byte;
    basari:array[1..100] of real;
    ad:array[1..100] of string;
    i,ogrencisayisi:byte;
    begin
    clrscr;
    write('ogrenci sayisini giriniz:');readln(ogrencisayisi);
    for i:=1 to ogrencisayisi do begin
    write(i,'.ogrencinin adi=');readln(ad);
    write(i,'.ogrencinin vize notu=');readln(vize);
    write(i,'.ogrencinin final notu=');readln(final);
    basari:=vize*vizekat+final*finalkat;
    clrscr;
    end;
    writeln('adi:'); gotoxy(20,1); writeln('vize:');
    gotoxy(30,1); writeln('final:'); gotoxy(40,1);writeln('basarisi');
    gotoxy(50,1); writeln('durumu:');
    for i:=1 to ogrencisayisi do
    writeln(ad); gotoxy(20,i+1); writeln(vize);gotoxy(30,i+1);
    writeln(final); gotoxy(40,i+1); writeln(round(basari)); gotoxy(50,i+1);
    if basari>=65 then writeln('gecti') else writeln('kaldi');
    readln;
    end.



    < Bu mesaj bu kişi tarafından değiştirildi elvis21 -- 14 Aralık 2012; 9:36:37 >







  • yokmu sorunu bulabilecek biri
  • şu adrese bir bak istersen.

    http://www.paylastr.org/visual-basic-%7C-delphi-%7C-pascal/64602-pascal-da-2-vize-1-final-gecme-notu-hesaplayan-kod.html
  • Üniversitelerde hala pascal mı gösteriliyor
  • quote:

    Orijinalden alıntı: cihatyildirim

    Üniversitelerde hala pascal mı gösteriliyor

    uygulama sınavı bile yapıyorlar :D
  • Bizede öğrenciyken pascal gösteriyolardı derste. Hoca yaşlı ve geri kafalı olunca, e bide kişisel gelişimine önem vermiyosa tamam artık. Adam kafasının dikine gidiyo. Tamam olay dili öğrenmek değil algoritma yada veri yapılarını öğrenmek ama güncel bir dille olsa olmuyo mu.
    Bir ara hocalarıda birkaç yılda bir sınava sokacaklardı. O noldu bilmiyorum. İtiraz falan ettiler galiba. Öyle bir sınav olsa kesin bizim hocaların yarısından fazlası kalırdı
  • Eğitim sistemi çok saçma bu ülkede biliyoruz da bu kadarına da pess doğrusu.
    • 
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz. DH’ye girerek kullanım izni vermiş sayılırsınız.
Anladım Veri Politikamız