Yeni Kayıt
Konudaki Resimler
< Bu mesaj bu kişi tarafından değiştirildi Mr. Pink -- 13 Nisan 2011; 16:58:42 > |
? 
Hızlı 
Bildirim
Turbo Pascal'da aldığım 2 hata mesajı :S
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
^ = ne oluyor bu. hataları bunlara vermiş sanırım.
ek olarak ^ kullandıysan bile yukarda tanımlamadığın için böyle hata çıkıyor. -
quote:
Orijinalden alıntı: Eoudoxias
^ = ne oluyor bu. hataları bunlara vermiş sanırım.
ek olarak ^ kullandıysan bile yukarda tanımlamadığın için böyle hata çıkıyor.
hatanın alındığı bölgeler onlar..renge göre hata mesajı var altta.. -
quote:
Orijinalden alıntı: el_SCo
quote:
Orijinalden alıntı: Eoudoxias
^ = ne oluyor bu. hataları bunlara vermiş sanırım.
ek olarak ^ kullandıysan bile yukarda tanımlamadığın için böyle hata çıkıyor.
hatanın alındığı bölgeler onlar..renge göre hata mesajı var altta..
hocam 4 senedir pascala bakmıyorum. unutmuşum
ama hatanı buldum. eğer pascalda büyük, küçük harf ayrımı vardı demi. varsa sen yukarda tanımlama yaparken;
Tus:char; yazmışın. alt kısımda tus:=xx yazmısın. yani yukarda tanımladığın ad ile aşağıda kullandığın ad aynı değil
-
quote:
Orijinalden alıntı: Eoudoxias
quote:
Orijinalden alıntı: el_SCo
quote:
Orijinalden alıntı: Eoudoxias
^ = ne oluyor bu. hataları bunlara vermiş sanırım.
ek olarak ^ kullandıysan bile yukarda tanımlamadığın için böyle hata çıkıyor.
hatanın alındığı bölgeler onlar..renge göre hata mesajı var altta..
hocam 4 senedir pascala bakmıyorum. unutmuşum
ama hatanı buldum. eğer pascalda büyük, küçük harf ayrımı vardı demi. varsa sen yukarda tanımlama yaparken;
Tus:char; yazmışın. alt kısımda tus:=xx yazmısın. yani yukarda tanımladığın ad ile aşağıda kullandığın ad aynı değil
maalesef değişen bir şey olmadı
-
6:begin
writeln(' TL Adeti :');readln(A);
B:=A*Y;
writeln(B,' Yen değerindedir.');
end;
else writeln('İşlem Bulunamadı�!');
end;
writeln('Çıkmak için ESC ye, devam etmek için ise ENTER a basin..');
repeat
tus:=^readkey;
until tus in [#13,#27];
until tus:=#27;
//end;// = bu endden olabilir mi ?
^end.
gene olmaz ise. pascal indirip kendim bakacağım
-
quote:
Orijinalden alıntı: Eoudoxias
6:begin
writeln(' TL Adeti :');readln(A);
B:=A*Y;
writeln(B,' Yen değerindedir.');
end;
else writeln('İşlem Bulunamadı�!');
end;
writeln('Çıkmak için ESC ye, devam etmek için ise ENTER a basin..');
repeat
tus:=^readkey;
until tus in [#13,#27];
until tus:=#27;
//end;// = bu endden olabilir mi ?
^end.
gene olmaz ise. pascal indirip kendim bakacağım
oldu
ama diğer sorun hala devam ediyor 
-
6:begin
writeln(' TL Adeti :');readln(A);
B:=A*Y;
writeln(B,' Yen değerindedir.');
end;
else writeln('İşlem Bulunamadı�!');
end;
writeln('Çıkmak için ESC ye, devam etmek için ise ENTER a basin..');
repeat
tus:=^readkey;
until tus in [#13,#27];
until tus:=#27; =>tus=#27; olacak.
end.
ve dediğim gibi üstteki değişkenin adını değiştir, Tus değilde tus yap.
fakat gene bir sorun var. error 200. division for zero hatası veriyor ve prg kapanıyor. -
quote:
Orijinalden alıntı: Eoudoxias
6:begin
writeln(' TL Adeti :');readln(A);
B:=A*Y;
writeln(B,' Yen değerindedir.');
end;
else writeln('İşlem Bulunamadı�!');
end;
writeln('Çıkmak için ESC ye, devam etmek için ise ENTER a basin..');
repeat
tus:=^readkey;
until tus in [#13,#27];
until tus:=#27; =>tus=#27; olacak.
end.
ve dediğim gibi üstteki değişkenin adını değiştir, Tus değilde tus yap.
fakat gene bir sorun var. error 200. division for zero hatası veriyor ve prg kapanıyor.
hala aynı hatayı almaya devam ediyorum (Error 3) 'Bilinmeyen değişken.'. Ayrıca değişken ismini değiştirerek de denedim -
quote:
uses crt;
var
B,E,D,Y:real;
X:byte;
A:integer;
tus:char;
begin
writeln('Euro de§erini girin :');readln(E);
writeln('Dolar de§erini girin :');readln(D);
writeln('Yen de§erini girin :');readln(Y);
repeat
writeln('Euro/TL hesaplamak i?in 1 e..');
writeln('Euro/Dolar hesaplamak i?in 2 ye..');
writeln('Euro/Yen hesaplamak i?in 3 e..');
writeln('Dolar/TL hesaplamak i?in 4 e..');
writeln('Dolar/Yen hesaplamak i?in 5 e..');
writeln('TL/Yen hesaplamak i?in 6 ya basin..');
writeln('Seciminiz :');Readln(X);
Case X of
1:begin
writeln('Euro Adeti :');readln(A);
B:=A*E;
writeln(B,' TL de§erindedir.');
end;
2:begin
writeln('Euro Adeti :');readln(A);
B:=(A*E)/D;
writeln(B,' Dolar de§erindedir.');
end;
3:begin
writeln('Euro Adeti :');readln(A);
B:=(A*E)/Y;
writeln(B,' Yen değerindedir.');
end;
4:begin
writeln('Dolar Adeti :');readln(A);
B:=A*D;
writeln(B,' TL değerindedir.');
end;
5:begin
writeln('Dolar Adeti :');readln(A);
B:=(A*D)/Y;
writeln(B,' Yen değerindedir.');
end;
6:begin
writeln(' TL Adeti :');readln(A);
B:=A*Y;
writeln(B,' Yen değerindedir.');
end;
else writeln('İşlem Bulunamadı?!');
end;
writeln('Çıkmak için ESC ye, devam etmek için ise ENTER a basin..');
repeat
tus:=readkey;
until tus in [#13,#27];
until tus=#27;
end.
bak dene bakalım. ama dediğim gibi;
error 200. division by zero hatası veriyor ve prg kapanıyor. bu benim pc den kaynaklı bir sorunda olabilir. pascal saçma bişey zaten. ödev felanmı bu ?
-
ne mal bi dildir lan bu syntaxa bak
-
Pascal mı kaldı, kaçıncı yüzyılda yaşıyoruz? Sonuncusunu da ıssız adada ölüme terk etmişler zaten.
-
quote:
Orijinalden alıntı: Eoudoxias
quote:
uses crt;
var
B,E,D,Y:real;
X:byte;
A:integer;
tus:char;
begin
writeln('Euro de§erini girin :');readln(E);
writeln('Dolar de§erini girin :');readln(D);
writeln('Yen de§erini girin :');readln(Y);
repeat
writeln('Euro/TL hesaplamak i?in 1 e..');
writeln('Euro/Dolar hesaplamak i?in 2 ye..');
writeln('Euro/Yen hesaplamak i?in 3 e..');
writeln('Dolar/TL hesaplamak i?in 4 e..');
writeln('Dolar/Yen hesaplamak i?in 5 e..');
writeln('TL/Yen hesaplamak i?in 6 ya basin..');
writeln('Seciminiz :');Readln(X);
Case X of
1:begin
writeln('Euro Adeti :');readln(A);
B:=A*E;
writeln(B,' TL de§erindedir.');
end;
2:begin
writeln('Euro Adeti :');readln(A);
B:=(A*E)/D;
writeln(B,' Dolar de§erindedir.');
end;
3:begin
writeln('Euro Adeti :');readln(A);
B:=(A*E)/Y;
writeln(B,' Yen değerindedir.');
end;
4:begin
writeln('Dolar Adeti :');readln(A);
B:=A*D;
writeln(B,' TL değerindedir.');
end;
5:begin
writeln('Dolar Adeti :');readln(A);
B:=(A*D)/Y;
writeln(B,' Yen değerindedir.');
end;
6:begin
writeln(' TL Adeti :');readln(A);
B:=A*Y;
writeln(B,' Yen değerindedir.');
end;
else writeln('İşlem Bulunamadı?!');
end;
writeln('Çıkmak için ESC ye, devam etmek için ise ENTER a basin..');
repeat
tus:=readkey;
until tus in [#13,#27];
until tus=#27;
end.
bak dene bakalım. ama dediğim gibi;
error 200. division by zero hatası veriyor ve prg kapanıyor. bu benim pc den kaynaklı bir sorunda olabilir. pascal saçma bişey zaten. ödev felanmı bu ?
yok yav olmadı ama sağol yardımların için teşekkürler...
arkadaşın ödevi var, bende para karşılığında yapacaktım
gerçi daha 2 hafta var sorarım hocaya..
-
hee şu mesele
zor bişey değil gibi ama karışık. birde pascalın saçmalıkları üstüne binince içinden çıkılmaz oluyor.
birde benden sana tavsiye delphi ye sakın bulaşma. hayatına küsersin
iyi bir fiyat vereydin bari nese. kolay gele sana.
-
quote:
Orijinalden alıntı: Eoudoxias
hee şu mesele
zor bişey değil gibi ama karışık. birde pascalın saçmalıkları üstüne binince içinden çıkılmaz oluyor.
birde benden sana tavsiye delphi ye sakın bulaşma. hayatına küsersin
iyi bir fiyat vereydin bari nese. kolay gele sana.
yazın bir tane C kitabı alıp amatörlüğümü atmak istiyorum, zaten pascalı iyi öğrenmek istememin sebebi ise sadece programlama mantığını kavramam bende biliyorum yordamsal bir dil olduğunu...bu arada 30 TL fiyat verdim
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
