Bir soruda benden
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.
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.