arkadaşlar kendi çabalarımla uğraştım ama beceremedim herhalde yardımcı olabilir misiniz.. ödevim şu; Bir sınıftaki öğrenci sayısını kullanıcıya sorduktan sonra sırayla bu öğrencilerin isimlerini, vize ve final notlarını klavyeden bilgisayara giren, vize notunun %40'ı ve final notunun %60'şını alarak öğrenci başarı notunu hesaplayan, öğrenci başarı notu 50 ve üzeri ise ekrana "Geçti" aksi taktirde "Kaldı" yazdıran ve sınıf öğrenci başarı notu ortalamasını hesaplayan bir program yazınız? Örnek Ekran Çıktısı: Sınıftaki Öğrenci Sayısı : 3 1. Öğrencinin adı soyadı: Ali Gel 1. Vize Notu : 50 1. Final Notu : 50 İsim : Ali Gel Başarı Notu : 50 Durum : Geçti 2. Öğrencinin adı soyadı: Veli Git 2. Vize Notu : 100 2. Final Notu : 100 İsim : Veli Git Başarı Notu : 100 Durum : Geçti 3. Öğrencinin adı soyadı: Can Dan 3. Vize Notu : 0 3. Final Notu : 0 İsim : Can Dan Başarı Notu : 0 Durum : Kaldı Sınıf Başarı Notu = 50 ben kodları şu şekilde yaptım: program not_hesaplama; uses crt; var sayi:integer; ad:string; vize_notu, final_notu:integer; basari_notu:real; begin clrscr; Write ; readln ; Write ; readln ; Write ; readln ; Write ; readln ; begin Write ; read ; Write ; read ; basari_notu:=(vize_notu 0.40)+(final_notu 0.60); if basari_notu>50 then writeln else writeln end; writeln ; write ; readln ; end. bı yanlıslık var mı emın dıılım. yardımcı olursanız sevınırım..

Kod: Kod: program odev; uses crt; var isim:string; i, n:integer; sinifbasari, sinifbasariort, vize, final, basarinot:real; begin clrscr; write ; readln ; write ; readln ; write ('1."grencinin vize notu='); readln ; write ('1."grencinin final notu='); readln ; sinifbasari:=0; basarinot:=0; for i:=1 to n do begin vize:=(vize 40/100); final:=(final 60/100); basarinot:=vize+final; sinifbasari:=sinifbasari+basarinot; if(basarinot>=50) then begin writeln ; writeln ; writeln ; end else writeln ; writeln ; writeln ; end; sinifbasariort:=sinifbasari/n; writeln ; readln; end. Kopyala yapıştırmı yaptın bilmem ama.. Yukarıdaki kod işini görecektir.. Yukarıdaki kod bana ait değildir.. Yardımcı olmak adına senin için araştırdım..

arkadaslar cok onemlı bana yardımcı olursanız cok sevınırım bana qbasıc dılınde ıyı bır ekran koruyucu lazım net uzerınden hıc bır yerden bulamadım bır kac tane buldum ancak calısmıyor cok acıl yanı bana yardımcı olursanı cok cok sevınırım msn adresım denizsevderoglu@hotmail.com lutfen yardımcı olun

sakarya üni bilgisayar programcılığı mı okuyorsun?

çok teşekkür ediyorum cok saolun.. bu kodları deniyeceğim. ama olmaması ihtimali durumunda bilen arkadaşlar da kod tavsiye ederse cok makbule gecer =) herkese iyi günler.. ¦« ßAßA¥ØRGUÑ

vay be açıktan okuyabilirmiyiz bu okulu ya bandada bole bı eğitim

hocam bu arada kod'u denedim. olmadı. yani ekran çıktısı aşağıdaki gibi oluyor. yınede sağolun. evet arkadaşlar yok mu yardımcı olacak bi abimiz

Kod: uses crt; var isim:string; i, n:integer; sinifbasari, sinifbasariort, vize, final, basarinot:real; begin clrscr; write ; readln ; sinifbasariort:=0; for i:=1 to n do begin write ; readln ; write ; readln ; write ; readln ; vize:=(vize 0.40); final:=(final 0.60); basarinot:=vize+final; if(basarinot>=50) then begin writeln ; writeln('basarinotu:', basarinot:5:2); writeln ; end else if(basarinot<50)then begin writeln ; writeln('basarinotu:', basarinot:5:2); writeln ; end; sinifbasariort:=sinifbasariort+basarinot/n; end; writeln('sinif basari ortalamasi :', sinifbasariort:5:2); readln; end. Yukarıdaki kodları kullan bakalım..

way ünili yıllar aklıma geldi q basic,

netr0n kardeşim çok saol. denedim kodları tam istediğim gibi. mükemmel. eline emeğine sağlık. çok teşekkür ediyorum. hayırlı çalışmalar