error 3: Unknown identifier: Tanımlanmayan bir değişken kullanılmış.
iyi de ben bakıyorum tanımlanmamış şey yok :S nerde hata olabilir
program deneme1;
uses crt;
var
ad_soyad:array[1..10] of string[20];
okul_no:array[1..10] of string[10];
notlar:array[1..10] of char;
a,i,b:integer; c:char;
procedure ilk_ekran;
begin
clrscr;
textcolor(white);
textbackgroundcolor(red);
gotoxy(24,2); write('™§renci Bilgi Sistemi');
gotoxy(4,6); write('1. Bilgi Gir');
gotoxy(4,8); write('2. Listele');
gotoxy(4,10); write('3. €kŸ');
gotoxy(14,14); write('Se‡im[1..3];
end;
procedure bilgi_gir;
begin
clrscr;
for i:=1 to 10 do
begin
clrscr
gotoxy(10,8); write('i . Ӥrencinin ad'); read(ad_soyad[i]);
gotoxy(10,10); write('i . Ӥrencinin oku٠mo'); read(okul_no[i]);
gotoxy(10,12); write('i. Ӥrencinin notu'); read(notlar[i]);
end;
write('bilgi giriŸi tamamland');
end;
procedure listele;
begin
clrscr;
gotoxy(4,2); write('Okul No');
gotoxy(17,2); write('Ad Soy Ad');
gotoxy(47,2); write('Not');
gotoxy(52,2); write('Durum');
for a:=2 to 68 do
begin
gotoxy(a,3); write('_');
end;
for i:=1 to 10 do
begin
gotoxy(4,i+3); write('okul_no[i]);
gotoxy(17,i+3); write('ad_soyad[i]);
gotoxy(47,i+3); write('notlar[i]);
gotoxy(57,i+3); if notlar[i] >=50 than write('BaŸarl') else write('BaŸarsz');
end;
procedure cikis;
begin
exit;
end;
begin
clrscr;
ilk_ekran;
repeat
c:=readkey;
case c of
'1': bilgi_gir;
'2': listele;
'3': cikis;
end;
until c in [1..3];
readln;
end. 