Pascal Ödevim İçin Yardım
-
Müritler hoca bir ödev verid fakat Pascal'dan anlamadığım için yazamıyorum. Hayırsever bir mürit yazıp gönderebilir 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ı : 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
*.pas uzantılı olması gerekio -
pascaldan hıc anlamam kıtabımı bulabılsem oradakı kodlara bakıp yardımcı olmaya clısacam ama bulamadım göt kadar odada :S
-
uses crt;
var
vize,fnl:byte;
ort:integer;
beginwrite('ismin soyismin');
write('vize notunu giriniz:');readln(vize);
write(' final notuun girinz:');readln(fnl);
ort:=trunc(vize*0.4+ fnl*0.6);
case ort of
0..25:Write('FF');
26..50:Write('FD');
51..70:write('DD');
71..80:write('CC');
81..85:write('CB');
86..90:write('BB');
91..95:write('BA');
96..100:write('AA');
else write('Yanlış not girdiniz');
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
-
yardım ederdim ama bi dolu işim war ulan ders verceğim sınıfı bile bulamadım kafa kalmadı aq
-
-
merhaba galiba bu kod işine yarayabilir :
var top,k,ogrsay:integer;
ogr:array[1..99,1..4] of integer;
begin
write('ogrenci sayisini gir:');
readln(ogrsay);
for k:=1 to ogrsay do
begin
write(k,'. ogrencinin vizesi:');
readln(ogr[k,1]);
write(k,'. ogrencinin finali:');
readln(ogr[k,2]);
ogr[k,3]:=round(ogr[k,1]*0.3+ogr[k,2]*0.6);
if ogr[k,3]<50 then
writeln('kaldi')
else
writeln('gecti');
end;
end. umarım işine yarar:)
-
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:)
-
selamlar
matris determinant hesabi formulunu verebilirmisin
iyi gunler