Ceviz Forum

Geri Dön   Ceviz Forum > Programlama > Pascal / Delphi / Delphi.NET

Cevapla
 
LinkBack Seçenekler
Eski 22/03/2008, 21:45   #1 (permalink)
Üye
 
Üyelik Tarihi: 11/2007
Mesaj: 11
Varsayılan pascal da derleme hatası? "error 3"

Aşağıdaki programı derlediğimde hata veriyor...
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

Kod:
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.
Yeşilmen hatta değil   Alıntı Yaparak Yanıtla
Eski 22/03/2008, 22:10   #2 (permalink)
Üye
 
tasy Adlı Üyenin Profil Grafiği
 
Üyelik Tarihi: 12/2007
Mesaj: 25
Varsayılan

Programda bikaçtane hata vardı onları düzelttim... Son halini gönderiyorum... mantıksal bir hata yok ise program güzel çalışıyor... Seninki ile karşılaştırıp hatalarını görebilirsin. kolay gelsin...

Kod:
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 byte;
a,i,b:integer; c:char;
procedure ilk_ekran;
begin
     clrscr;

textcolor(white);
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 then write('BaŸar?l?') else write('BaŸar?s?z');
end; 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','2'];
readln;
end.
tasy hatta değil   Alıntı Yaparak Yanıtla
Eski 22/03/2008, 22:48   #3 (permalink)
Üye
 
Üyelik Tarihi: 11/2007
Mesaj: 11
Varsayılan

ok gece kontrol edeceğim çok saolun sonucu yazarım...
Yeşilmen hatta değil   Alıntı Yaparak Yanıtla
Cevapla

Bookmarks

Seçenekler

Mesaj Yazma Hakları
Yeni mesajgöndermezsiniz
Cevap yazamazsınız
Dosya ekleyemezsiniz
Mesajınızı düzenleyemezsiniz

BB code is Açık
[IMG] kodu Açık
HTML kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu açana göre Forum Cevap En Son Mesaj
tcp client "istenen adres içeriğinde geçerli değil" hatası" aykutsahin_07 C# 1 14/03/2008 23:41
SQL kurarken "ınternal Error" hatası" filizcandan Veritabanları & SQL 2 06/02/2007 17:12
"Unexpected error number 80004005 has occurred:Automation error" HATASI doganaydin Visual Basic 4 03/07/2006 02:50
Flash MX 04 action script 2 "A" "S" "D" "W" tuslarıyla hareket!!! fatihed Flash / Director / Swift 3D ... 5 04/09/2005 21:03
"Error in posting" ve "out of disk space" campus PHP 8 27/11/2003 00:32


Forum saati Türkiye saatine göredir. GMT +3. Şu anda saat 19:46.

Reklamlar & Desteklenenler
Hassas Valf | Hassas Kaplama | Antalyamız | Gazete | Ticari Bilişim | Hakan Müştak | Rüya Tabirleri | Kadın | Hastalıklar | Cepte msn ve e-posta | Webmaster | Antalya Aupair | Turkish Property Antalya | Forum | Chat | Perde | Adsl | Araba | bolindir.com | guncelle.com | livescore | Web Tasarım | evden eve nakliyat | forum | evden eve | sohbet | Resimcim| Kalifiye İnsan Kaynakları | Web Tasarım | Oyun | Yusuf KOÇ | Akın Yorulmaz | şiir | UFO | Web Tasarım | Oyunlar | Canlı Tv |


Forum Yazılımı: vBulletin Copyright ©2000 - 2008, Jelsoft Enterprises Ltd.
Search Engine Friendly URLs by vBSEO 3.2.0
Copyright ©2001 - 2008, Ceviz.net