KAYNAK KOD http://pastebin.com/f47299a9fIyi Gunler... 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

uses crt; var vize, fnl:byte; ort:integer; begin write ; write ;readln ; write ;readln ; ort:=trunc(vize 0.4+ fnl 0.6); case ort of 0..25:Write ; 26..50:Write ; 51..70:write ; 71..80:write ; 81..85:write ; 86..90:write ; 91..95:write ; 96..100:write ; else write ; end; readln; end. kardesım valla netten buldum buna gore bıraz degısıklık yapabılırsın c neyım olsa yardımcı olurdum :S Hayattaki en güzel şeyler : Ya kanun dışı, ya ahlak dışı ya da şişmanlatıcıdır.

selamlar matris determinant hesabi formulunu verebilirmisiniyi gunler 🏴Hi'dan gelen varır Who'ya, Hi'da onun adıdır Who'da...

pascaldan hıc anlamam kıtabımı bulabılsem oradakı kodlara bakıp yardımcı olmaya clısacam ama bulamadım gt kadar odada :S Hayattaki en güzel şeyler : Ya kanun dışı, ya ahlak dışı ya da şişmanlatıcıdır.

arkadaslar bana acilen matrisin determinantını hesaplayan kod lazım uğraşıp bişiler yazmaya çalıştım ama doğru sonuç çıkmıyo yardım ederseniz sevinirim şimdiden teşekkür ederim:)

Müritler hoca bir dev verid fakat Pascal'dan anlamadığım için yazamıyorum. Hayırsever bir mürit yazıp gnderebilir mi? 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ı : 31. ğrencinin adı soyadı: Ali Gel1. Vize Notu : 501. Final Notu : 50 İsim : Ali Gel Başarı Notu : 50 Durum : Geçti2. ğrencinin adı soyadı: Veli Git2. Vize Notu : 1002. Final Notu : 100 İsim : Veli Git Başarı Notu : 100 Durum : Geçti3. ğrencinin adı soyadı: Can Dan3. Vize Notu : 03. Final Notu : 0 İsim : Can Dan Başarı Notu : 0 Durum : KaldıSınıf Başarı Notu = 50. pas uzantılı olması gerekio Tren odun seçmez hacı abi...

merhaba galiba bu kod işine yarayabilir : var top, k, ogrsay:integer; ogr:array of integer; begin write ; readln ; for k:=1 to ogrsay do begin write ; readln(ogr ); write ; readln(ogr ); ogr :=round(ogr 0.3+ogr 0.6); if ogr <50 then writeln else writeln ; end; end. umarım işine yarar:)

yardım ederdim ama bi dolu işim war ulan ders verceğim sınıfı bile bulamadım kafa kalmadı aq NEDEN?