pascal ödevim için yardım. acil:(

gsari42 · 12-12-2009, 00:43

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ı
Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=329556

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('Sınıftaki Öğrenci Sayısı:');
readln(sayi);
Write('Öğrencinin adı soyadı: ');
readln(ad);
Write('Vize Notu : ');
readln(vize_notu);
Write('Final Notu : ');
readln(final_notu);
begin
Write('˜sim : '); read(ad);
Write('Başarı Notu : '); read(basari_notu);
basari_notu:=(vize_notu*0.40)+(final_notu*0.60);
if
basari_notu>50
then
writeln('Geçti')
else
writeln('Kaldı')
end;
writeln('');
write('Sınıf Başarı Notu =');
readln(basari_notu);
end.

bı yanlıslık var mı emın dıılım. yardımcı olursanız sevınırım..

netr0n · 12-12-2009, 02:08

Kod:

Kod:
program odev;
uses crt;
var
isim:string;
i,n:integer;
sinifbasari,sinifbasariort,vize,final,basarinot:real;
begin
clrscr;
write ('siniftaki ”grenci sayisi=');
readln(n);
write ('”grencinin adi soyadi=');
readln(isim);
write ('1.”grencinin vize notu=');
readln(vize);
write ('1.”grencinin final notu=');
readln(final);
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('isim:',isim);
writeln('basarinotu:',basarinot);
writeln('durum:','gecti');
end
else
writeln('isim:',isim);
writeln('basarinotu:',basarinot);
writeln('durum:','kaldi');
end;
sinifbasariort:=sinifbasari/n;
writeln('sinif basari ortalamasi :',sinifbasariort);
readln;
end.

Kopyala yapıştırmı yaptın bilmem ama.. Yukarıdaki kod işini görecektir..
Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=329556
Yukarıdaki kod bana ait değildir.. Yardımcı olmak adına senin için araştırdım..

gsari42 · 13-12-2009, 23:49

ç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..

»¦« ßÂßÂ¥ØRGÛÑ »¦« · 13-12-2009, 23:50

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

gsari42 · 14-12-2009, 00:51

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

netr0n · 14-12-2009, 04:13

Alıntı:

Orjinal Mesaj Sahibi gsari42

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 ('siniftaki ogrenci sayisi=');
	readln(n);

sinifbasariort:=0;

for i:=1 to n do

		begin

			write (i,'. ögrenci adi soyadi=');
			readln(isim);

			write(i,'. ögrencinin vize notu=');
			readln(vize);

			write(i,'. ögrencinin final notu=');
			readln(final);

				vize:=(vize*0.40);
				final:=(final*0.60);
				basarinot:=vize+final;

			if(basarinot>=50) 
			then
				begin
					writeln('isim:',isim);
					writeln('basarinotu:',basarinot:5:2);
					writeln('durum:','gecti');
				end
			else

			if(basarinot<50)then
				begin
					writeln('isim:',isim);
					writeln('basarinotu:',basarinot:5:2);
					writeln('durum:','kaldi');
				end;

		sinifbasariort:=sinifbasariort+basarinot/n;

		end;
			

		writeln('sinif basari ortalamasi :',sinifbasariort:5:2);
	readln;
end.

Yukarıdaki kodları kullan bakalım..

manutd059 · 15-12-2009, 15:31

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 tesekkurler

gsari42 · 17-12-2009, 01:11

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 kardeşim

ibkaya · 27-12-2009, 04:31

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

w_q_x_91 · 27-12-2009, 13:45

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

gsari42 · 01-06-2010, 19:58

evet orda okuyorum sıstem yenı yenı superlesıyor. okumanızı tavsıye ederım. bırde su fıyatları uygun olsaymıs :P

12-12-2009, 00:43	#1
gsari42 Çırak Kayıt Tarihi: Feb 2007 Üye numarası: #108479 Mesaj sayısı: 14 Karma etkisi: 0 Karma: 10	pascal ödevim için yardım. acil:( 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ı Kaynak: Wardom http://www.wardom.com.tr/showthread.php?t=329556 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('Sınıftaki Öğrenci Sayısı:'); readln(sayi); Write('Öğrencinin adı soyadı: '); readln(ad); Write('Vize Notu : '); readln(vize_notu); Write('Final Notu : '); readln(final_notu); begin Write('˜sim : '); read(ad); Write('Başarı Notu : '); read(basari_notu); basari_notu:=(vize_notu0.40)+(final_notu0.60); if basari_notu>50 then writeln('Geçti') else writeln('Kaldı') end; writeln(''); write('Sınıf Başarı Notu ='); readln(basari_notu); end. *bı yanlıslık var mı emın dıılım. yardımcı olursanız sevınırım..*

14-12-2009, 00:51	#5
gsari42 Çırak Kayıt Tarihi: Feb 2007 Üye numarası: #108479 Mesaj sayısı: 14 Karma etkisi: 0 Karma: 10	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 Attached Thumbnails

Konu Araçları	Bu Konuda Ara
Printer Çıktısını Göster Sayfayı Emaille Yolla	Bu Konuda Ara: Gelişmiş Arama

13-12-2009, 23:49	#3
gsari42 Çırak Kayıt Tarihi: Feb 2007 Üye numarası: #108479 Mesaj sayısı: 14 Karma etkisi: 0 Karma: 10	ç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..

13-12-2009, 23:50	#4
»¦« ßÂßÂ¥ØRGÛÑ »¦« Banned Kayıt Tarihi: Dec 2009 Üye numarası: #397680 Mesaj sayısı: 67 Karma etkisi: 0 Karma: 54161	way ünili yıllar aklıma geldi q basic,pascal

15-12-2009, 15:31	#7
manutd059 Çırak Kayıt Tarihi: May 2008 Üye numarası: #220543 Mesaj sayısı: 3 Karma etkisi: 0 Karma: 10	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 tesekkurler

17-12-2009, 01:11	#8
gsari42 Çırak Kayıt Tarihi: Feb 2007 Üye numarası: #108479 Mesaj sayısı: 14 Karma etkisi: 0 Karma: 10	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 kardeşim

27-12-2009, 04:31	#9
ibkaya Çırak Kayıt Tarihi: Nov 2008 Üye numarası: #287294 Mesaj sayısı: 5 Karma etkisi: 0 Karma: 5363	sakarya üni bilgisayar programcılığı mı okuyorsun?

27-12-2009, 13:45	#10
w_q_x_91 Forum Kalfası Kayıt Tarihi: Jul 2007 Üye numarası: #134973 Yer: balıkesir Mesaj sayısı: 774 Karma etkisi: 5065 Karma: 506086	vay be açıktan okuyabilirmiyiz bu okulu ya bandada bole bı eğitim lazım

01-06-2010, 19:58	#11
gsari42 Çırak Kayıt Tarihi: Feb 2007 Üye numarası: #108479 Mesaj sayısı: 14 Karma etkisi: 0 Karma: 10	evet orda okuyorum sıstem yenı yenı superlesıyor. okumanızı tavsıye ederım. bırde su fıyatları uygun olsaymıs :P

Şu Anda Konuyu Görüntüleyenler: 1 (0 üye ve 1 misafir)