I would think the both are the ways of this world,

some old ways brought back by either tradition or

secrecy while others are made up to fit into everyday

life, or a specific place/spot. This is true as there

are sole examples of these. Such as a person to hide

their ways of how they go about life, or a family

custom revealed to their younger generations. But a

big example would be many software companies that make

ways and steps to follow by consumers for 'what they

want to do'. Quoted 'what they want to do' because

what they want to do is just a series of functions,

simulations, or protocols to run to do a task which is

preset by who created it.

But points of views of each of the two different

ways of how algorithms are brought into this world may

create a title or a credit to someone who either made

it or found it. Ownership rights towards an algorithm

is a bit too much, but someone was to say that their

creation was their's and their's alone, is not exactly

true. Someone elsewhere in the world, or even universe

may have the nearly same kind of algorithm with a

different style for the approach. I would think that

algorithms are to help people. Wether made for their

own purpose and usage, or for anyone else.

A title of who owns it shouldn't be put upon it, but

a credit should definitely be given towards the person

who invented it, brought it out to the knowledge of

the public or found it within either history or

archelogical artifacts as it is also a probability

that algorithms ingenious or already used for everyday

life is found from. If the fact is that these ways are

found from way back, a direct credit should go to the

person/people or culture that invented, then a side

notation of who'd brought it to present day to be used

once again.
program calculator
uses crt;
var
x,y,a,b:integer;{ Declaration}
z:char;
result:integer;
begin
clrscr;
repeat
a:=0;
b:=0;
repeat
y:= port[889];
if
y=207 then
begin
a:=a+1; {Loop}
writeln(y);
end
else
if
y=15 then
begin
b:=b+1;
writeln(y);
end;
delay(150);
until y=143;
writeln(a);
writeln(b);
if (a=1) then
begin
x:=1; {Squence}
end
else
if
(a=2) then
begin
x:=2;
end
(a=3) then
begin
x:=3;
end
else
if
(a=4) then
begin
x:=4;
end
else
if
(a=5) then
begin
x:=5;
end
else
if
(a=6) then
begin
x:=6;
end
else
if
(a=7) then
begin
x:=7;
end
else
if
(a=8) then
begin
x:=8;
end
else
if
(a=9) then
begin
x:=9;
end
else
if
(b=1) then
begin
x:='*';
end
ELSE
if
(b=2) then
begin
z:='+';
end
else
if (b=3) then
begin
z:='-';
end
else
if
(b=4) then
begin
z:='/';
end;
begin
readln(a);{Calculation parts from hereon}
readln(b);
readln(z);
if z = '*' then result := a * b
else if z = '/' then result := a div b
else if z = '+' then result := a + b
else if z = '-' then result := a - b ;
writeln(result);
readln;
end;
end.
program morse(i,o);
uses crt;
var
y,a,b:integer;
x:char; {Declaration}
begin
clrscr;
repeat
a:=0;
b:=0;
repeat
y:= port[889];
if {Creating the loop}
y=207 then
begin
a:=a+1;
writeln(y);
end
else
if
y=15 then
begin
b:=b+1;
writeln(y);
end;
delay(150);
until y=143;
if
(a=2) and (b=1) then {Sequence for the letters}
begin
x:='A';
write(x);
end
else
if
(a=1) and (b=2) then
begin
x:='B';
write(x);
end
else
if
(a=2) and (b=2) then
begin
x:='C'
write(x);
end
else
if
(a=1) and (b=3) then
begin
x:='D'
write(x);
end
else
If
(a=3) and (b=1) then
begin
x:='E'
Write(x);
end
else
if
(a=1) and (b=1) then
begin
x:='F'
write(x);
end
else
if
(a=4) and (b=1) then
begin
x:='G'
write(x);
end
else
if
(a=1) and (b=4) then
begin
x:'H'
write(x);
end
else
if
(a=2) and (b=3) then
x:'I';
write(x);
end
else
if
(a=2) and (b=3) then
x:'J';
write(x);
end
else
if(a=2) and (b=3) then
x:'K';
write(x);
end
else
if(a=2) and (b=3) then
x:'L';
write(x);
end
else
if(a=2) and (b=3) then
x:'M';
write(x);
end
else
if(a=2) and (b=3) then
x:'N';
write(x);
end
else
if(a=2) and (b=3) then
x:'O';
write(x);
end
else
if(a=2) and (b=3) then
x:'P';
write(x);
end
else
if(a=2) and (b=3) then
x:'Q';
write(x);
end
else
if(a=2) and (b=3) then
x:'R';
write(x);
end
else
if(a=2) and (b=3) then
x:'S';
write(x);
end
else
if(a=2) and (b=3) then
x:'T';
write(x);
end
else
if(a=2) and (b=3) then
x:'U';
write(x);
end
else
if(a=2) and (b=3) then
x:'V';
write(x);
end
else
if(a=2) and (b=3) then
x:'W';
write(x);
end
else
if(a=2) and (b=3) then
x:'X';
write(x);
end
else
if(a=2) and (b=3) then
x:'Y';
write(x);
end
else
if
else
x:=' ';
until (a=4) and (b=4)
then
end. {The end}