This moment i want sharing about Pascal language, but before that you guys should understanding about what is PASCAL and FUNCTION PASCAL.
There are tons million example you can try at internet but i'll just a few with the OUTPUT !
1.Here example "BRANCHED OFF STATEMENT"
Program odd_even;
//Always remember, sentences "Program" should there is!
uses crt;
var x, result: integer;
//Var is important too
begin clrscr;
//it's for cleaning screen
write ('Put your odd number here = ');
readln(x);
result := x mod 2;
if result = 0 then
begin
writeln(x, ' is even number ');
end
else
begin
writeln(x, ' is odd number ');
end;
readln(x);
end.
2.Here example "BRANCHED OFF STATEMENT"
Program count_result_odd_even;
uses crt;
var even, odd, i, result: integer;
begin
clrscr;
even := 0;
ganjil := 0;
for i := 1 to 100 do
begin
result := i mod 2;
if i <= 50 then
begin
if result = o then
begin
even := even + i;
end;
end
else
begin
if result <> 0 then
begin
ganjil := ganjil + i;
end;
end;
end;
writeln('Total even number = ', even);
writeln('Total odd number = ', odd);
readln();
end.
3.Here example "ITERATION FOR DO" -- ASCENDING --
Program examplefor1;
Uses crt;
var i: integer;
Begin
clrscr;
for i:= 1 to 10 do
begin
write('Welcome in the pascal program');
end;
readln;
end.
4.Here example "ITERATION FOR DO" -- DESCENDING --
Program color_with_downto;
uses crt;
var i : integer;
Begin
clrscr;
for i= 10 downto 1 do
Begin
Textcolor(i);
Writeln('Ini color with code = ', i);
End;
Readln;
End.5.Here example "ITERATION FOR DO" -- WHILE .. DO --
Program while;
uses crt;
var i: integer;
Begin
clrscr;
i := 1;
while i < 9 do
begin
writeln('Perulangan dengan while ke ', i);
{i := i+1;}
inc(i)
end;
readln;
End.
5.Here example "ITERATION FOR DO" -- REPEAT .. UNTIL --
Program repeat_until;
uses crt;
var i: integer;
Begin
clrscr;
i := 10;
repeat
begin
writeln('Bilangan ke ',i);
i := i-1;
end;
until i < l;
readln;
End.
I am sorry if there is mistakes code :) Thank You!
0 komentar:
Posting Komentar