pascaldan anlayan biri iki dakika bakı versin

Aşağı Git Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb pascaldan anlayan biri iki dakika bakı versin

Bu konudaki kullanıcılar: 1 misafir, 1 mobil kullanıcı

6
Cevap 896
Tıklama 0
Öne Çıkarma

1. sayfa

pascaldan anlayan biri iki dakika bakı versin

Cevap Yaz

elvis21

14 yıl (324 mesaj)

Teğmen

Konu Sahibi

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 >

elvis21

14 yıl (324 mesaj)

Teğmen

Konu Sahibi

yokmu sorunu bulabilecek biri

Bu mesaja 1 cevap geldi.

muhammedozdemir

14 yıl (12 mesaj)

ş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

cihatyildirim

14 yıl (273 mesaj)

Teğmen

Üniversitelerde hala pascal mı gösteriliyor

Bu mesaja 1 cevap geldi.

fatihcan92

14 yıl (222 mesaj)

Teğmen

quote:

Orijinalden alıntı: cihatyildirim

Üniversitelerde hala pascal mı gösteriliyor

uygulama sınavı bile yapıyorlar :D

Bu mesaja 1 cevap geldi.

hasan1980125

14 yıl (463 mesaj)

Yüzbaşı

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ı

Bu mesaja 1 cevap geldi.

cihatyildirim

14 yıl (273 mesaj)

Teğmen

Eğitim sistemi çok saçma bu ülkede biliyoruz da bu kadarına da pess doğrusu.

Cevap Yaz

1. sayfa

Tüm Forumlar Web Tasarım - Programlama Yazılım Geliştirme Delphi / C++ /Vb pascaldan anlayan biri iki dakika bakı versin