Ü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
1 Misafir - 1 Masaüstü
5 sn
7
Cevap
0
Favori
707
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.
    • Yapay Zeka’dan İlgili Konular
    Biri bana bu VALF meselesini anlatsın.8-16 arası fark nedir?
    18 yıl önce açıldı
    Bana ters R bulabilecek biri var mı?...
    18 yıl önce açıldı
    Allah rızası için biri bana dogrulama için çalışan sanal sms numarası nasıl buluyor söylesin
    7 yıl önce açıldı
    Daha Fazla Göster
    
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'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum