12-08-2017, Saat: 22:56
Bir soruda benden
Aşağıdaki kodu compile etmeden cevabı tahmin edebilirmisiniz ve neden öyle olduğunu?
Aşağıdaki kodu compile etmeden cevabı tahmin edebilirmisiniz ve neden öyle olduğunu?
program Project1; {$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils,System.Math; var a,b: Double; i:Byte; begin try a:=1; b:=0; for I := 1 to 10 do b:=b+0.1; writeln('a nın değeri = ',a); Writeln; Writeln('b nin değeri = ',b); Writeln; if a=b then writeln('A ve B değerleri eşit') else writeln ('A ve B değerleri Eşit Değil'); Readln; except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; end.
“Do. Or do not. There is no try.”