Been learning how to script and i just want to know how I am doing. Is it neat and up to standards? What do you recommend that I practice next? Been playing around with variables and if then else statements.
Thank you to all the great script teachers.
Simba Code:
program ThisIsMyScript;
Procedure IfThen;
var
a, b, c, d, e, f, g : Integer;
I : String;
begin
a :=10;
if (a = 9) then
begin
writeln('A Equals To 10');
end else
writeln('A Is Not Equal To 10');
begin
b := - 25;
begin
repeat
b := b + 1;
writeln('This Is Line Number ' + IntToStr(b));
until (b > - 1);
begin
c :=234 - 128;
d := c;
if (c <> 25) then
writeln('This is the answer to D ' + IntToStr(c));
begin
e := 125 / 3;
f := e * 47;
g := f + 15;
I :='I am Shocked.';
writeln('(125 Devided by 3) Times 47 (Plus 15) Equals ' + IntToStr(g));
g :=g -1832;
writeln('G Minus 1832 Equals What? ' + IntToStr(g) );
writeln('Wow, you are getting good at this. ' +(I));
end;
end;
end;
end;
end;
begin
IfThen;
end.
Debug Box
Simba Code:
Compiled successfully in 33 ms.
A Is Not Equal To 10
This Is Line Number -24
This Is Line Number -23
This Is Line Number -22
This Is Line Number -21
This Is Line Number -20
This Is Line Number -19
This Is Line Number -18
This Is Line Number -17
This Is Line Number -16
This Is Line Number -15
This Is Line Number -14
This Is Line Number -13
This Is Line Number -12
This Is Line Number -11
This Is Line Number -10
This Is Line Number -9
This Is Line Number -8
This Is Line Number -7
This Is Line Number -6
This Is Line Number -5
This Is Line Number -4
This Is Line Number -3
This Is Line Number -2
This Is Line Number -1
This Is Line Number 0
This is the answer to D 106
(125 Devided by 3) Times 47 (Plus 15) Equals 1942
G Minus 1832 Equals What? 110
Wow, you are getting good at this. I am Shocked.
Successfully executed.