pascal anlayan yarım etsin

bunu bi denermisin.

eğer hata yapmadıysam buda sorun verdi

bi kaç düzenleme yaptım üstünde denendi çalışıyor.

eline sağlık saol denedim çalışıyor ama anlayamadığım bi şey var var bloğundaki t ve z tanımlarının anlamı nedir kaldırınca hata veriyor.

merhabalar biraz değişiklik yaptım çalışıyor fakat bişeyi unutmuşuz sınıf başarı notu ortalaması nı eklemeliyim ve ufak bir sorun var eklediğim resimde yardımcı olursanız çok çok iyi olcak.




uses crt;
var
a,b,c,d:integer;
f:real;
e:string;
begin
clrscr;
write('Snftaki ”grenci saysn girin : ');readln(a);

for b:=1 to a do
begin
write( b,'. Ad ve Soyad : ');readln(e);
write( b,'. Vize Notu : ');readln(c);
write( b,'. Final Notu : ');readln(d);
f:=((c*40)+(d*60))/100;
if(f>=50) then
write('˜sim: ',e ,' Basari notu: ',f:2:2 ,' Durum: Gecti')
else
write('˜sim: ',e ,' Basari notu: ',f:2:2 ,' Durum: Kald')
end;
readln;
end.

Alttaki kırmızı olan yazı yani write yazarsan bitişik yazar sonuna ln koyarsan satırbaşı yapar.sınıf not ortalamalı halini yarın eklerim.

--

uses crt;
var
a,b,c,d:integer;
f:real;
e:string;
begin
clrscr;
write('S�n�ftaki ”grenci say�s�n� girin : ');readln(a);

for b:=1 to a do
begin
writeln( b,'. Ad� ve Soyad� : ');readln(e);
writeln( b,'. Vize Notu : ');readln(c);
writeln( b,'. Final Notu : ');readln(d);
f:=((c*40)+(d*60))/100;
if(f>=50) then
write('˜sim: ',e ,' Basari notu: ',f:2:2 ,' Durum: Gecti')
else
write('˜sim: ',e ,' Basari notu: ',f:2:2 ,' Durum: Kald�')
end;
readln;
end.

çok saol senide baya uğraştırdım ben satır atlatmak istemiyorum writeln yazarak burda birinci öğrenci bilgilerini ekrana bastıktan sonra ikinci öğrencinin girişini aynı satırdan başlatıyor resimde gözüküyor zaten aslında burda böle bi hata vermemesi lazım acaba win 7 kullanıyorum bundan kaynaklanan bi pascal sorunu olabilir mi diye düşünüyorum.




uses crt;
var
a,b,c,d:integer;
f:real;
e:string;
begin
clrscr;
write('Snftaki ”grenci saysn girin : ');readln(a);

for b:=1 to a do
begin
write( b,'. Ad ve Soyad : ');readln(e);
write( b,'. Vize Notu : ');readln(c);
write( b,'. Final Notu : ');readln(d);
f:=((c*40)+(d*60))/100;
if(f>=50) then
write('˜sim: ',e ,' Basari notu: ',f:2:2 ,' Durum: Gecti')
else
write('˜sim: ',e ,' Basari notu: ',f:2:2 ,' Durum: Kald')
end;
readln;
end.[/QUOTE]

dediğim gibi ordaki 3 write ı writeln olarak değiştir durumu anlarsın zaten

neyse bu sorunu çözdüm sayende oldu aslında kırmızı olan satırlarda writeln girmem gerekiyormuş dikkatsizlik artık yarin not ortalaması nı hallerseniz çok iyi olcak saolun

uses crt;
var
a,b,c,d:integer;
f:real;
e:string;
begin
clrscr;
write('Snftaki ”grenci saysn girin : ');readln(a);

for b:=1 to a do
begin
write( b,'. Ad ve Soyad : ');readln(e);
write( b,'. Vize Notu : ');readln(c);
write( b,'. Final Notu : ');readln(d);
f:=((c*40)+(d*60))/100;
if(f>=50) then
writeln('˜sim: ',e ,' Basari notu: ',f:2:2 ,' Durum: Gecti')
else
writeln('˜sim: ',e ,' Basari notu: ',f:2:2 ,' Durum: Kald')
end;
readln;
end.