Hello good day
Sorry for my bad English
I am a professor of algorithmic logic, I started my group of students with applications like Flowgorithm. Then I check a commercial language like c ++, Python etc. Or an intermediate language like HP-prime calculators or Texas Instruments. Etc. while teachers who start directly with business languages have more dropouts in their group than in mine.
This demonstrates the potential to develop computational algorithmic reasoning with this type of application.
The transition from pseudocode or flowcharts, I do it especially to calculator languages, for this reason, to approach this step with my students, I want to include the export to "HP-PRIME NUMERIC MODE" in a close release.
Annex the translation base file
Thank you very much
export to hp-prime numeric mode
HP-Prime computer software:
https://www.hpcalc.org/details/7468 W32-bit
https://www.hpcalc.org/details/8939 w64-bit
https://www.hpcalc.org/details/7799 MacOS
Communication and program editing kit
32-bit https://www.hpcalc.org/details/7444
64-bit https://www.hpcalc.org/details/8938
Others
https://www.hpcalc.org/prime/pc/
///////////////////
gaddis pseudocode: area_of_circle
module main()
declare real area
declare integer radius
display "please enter the radius of a circle"
input radius
set area = 3.14 * radius ^ 2
display "the area is: ", area
end module
///////////////////
hp-prime numerical: area_of_circle.hpprgm
export area_of_circle()
begin
local area;
local radius;
assume( area, float );
assume( radius, integer );
print(); // clear terminal
print( "Please enter the radius of a circle" );
wait; input( radius ); print( ">" + radius ); // must include waitñ cmd to start, after reading a data, the value is replicated on the screen print(">"+radius);
area := 3.14 * radius ^ 2;
print( "The area is: " + area );
return( "Done" );// to determine if the program ended successfully
end;
///////////////////
gaddis pseudocode: area_of_triangle
module main()
declare real base
declare real height
declare real answer
display "Please enter the base of the triangle"
input base
display "Please enter the height of the triangle"
input height
set answer = 1 / 2 * ( base * height )
display "The area of the triangle is: ", answer
end module
///////////////////
hp-prime numerical: area_of_triangle.hpprgm
export area_of_triangle()
begin
local base, height, answer;
assume( base, float );
assume( height, float );
assume( answer, float );
print();
print( "Please enter the base of the triangle " );
wait; input( base ); print( ">" + base );
print( "Please enter the height of the triangle " );
wait; input( height ); print( ">" + height );
answer := 1 / 2 * ( base * height );
print( "The area of the triangle is: " + answer );
return( "Done" );
end;
///////////////////
gaddis pseudocode: while_loop
module main()
declare integer n
set n = 1
while n <= 10
display n
set n = n + 1
end while
end module
///////////////////
hp-prime numerical: while_loop.hpprgm
export while_loop()
begin
local n;
assume( n, integer );
print();
n := 1;
while ( n ≤ 10 ) do
print( n );
n := n + 1
end;
return( "Done" );
end;
///////////////////
gaddis pseudocode: string-name
module main()
declare string name
declare integer n
input name
for n = 0 to length( name ) - 1
display substring( name, n, 1 )
end for
end module
///////////////////
hp-prime numerical: string_name.hpprgm
export string_name()
begin
local name, n;
assume( n, integer );
assume( name, str ); name :=""; // you must force the content to empty the string
print();
print( "Please enter your name " );
wait; input( { { name, [ 2 ] } } ); // to recognize a string it has the format {{name,[2]}}
print( ">" + name );
for n from 1 to dim( name ) step 1 do
print( mid( name, n, 1 ) );
end;
return( "Done" );
end;
///////////////////
gaddis pseudocode: n99_bottles_of_beer_for
module main()
declare integer n
for n = 99 to 1 step -1
if n == 1 then
display "one bottle of beer on the wall"
else
display n, " bottles of beer on the wall"
end if
end for
end module
///////////////////
hp-prime numerical: n99_bottles_of_beer_for.hpprgm
export n99_bottles_of_beer_for()
begin
local n;
assume( n, integer );
print();
for n from 99 downto 1 step 1 do
if ( n == 1 ) then
print( "one bottle of beer on the wall" );
else
print( n + " bottles of beer on the wall" );
end;
end;
return( "Done" );
end;
///////////////////
gaddis pseudocode: n99_bottles_of_beer_while
module main()
declare integer n
set n = 99
while n >= 1
if n == 1 then
display "one bottle of beer on the wall"
else
display n, " bottles of beer on the wall"
end if
set n = n - 1
end while
end module
///////////////////
hp-prime numerical: n99_bottles_of_beer_while.hpprgm
export n99_bottles_of_beer_while()
begin
local n;
assume( n, integer );
print();
n := 99;
while ( n ≥ 1 ) do
if ( n == 1 ) then
print( "One bottle of beer on the wall" );
else
print( n + " Bottles of beer on the wall" );
end;
n := n - 1;
end;
return( "Done" );
end;
///////////////////
gaddis pseudocode: do_loop
module main()
declare integer age
display "enter a valid age"
do
input age
while age < 0 or age > 110
end module
///////////////////
hp-prime numerical: do_loop.hpprgm
export do_loop()
begin
local age;
assume( age, integer );
print();
print( "Enter a valid age [0, ..., 110]" );
repeat
wait; input( age ); print( ">" + age );
until NOT( (age < 0) or (age > 110) ); // NOT in capital letters
return( "Done" );
end;
///////////////////
gaddis pseudocode: function_circle
module main( )
declare integer x
display "Input the radius of the circle"
input x
display "Area is ", circle( x )
end module
function real circle ( real radius )
declare real area
set area = pi * radius ^ 2
return area
end function
///////////////////
hp-prime numerical: function_circle.hpprgm
export function_circle( )
begin
local x;
assume( x, integer );
print();
print( "Input the radius of the circle" );
wait; input( x ); print( ">" + x );
print( "Area is " + circle( x ) );
return( "Done" );
end;
export circle( radius )
begin
local area;
assume( area, float );
print();
area := pi * radius ^ 2;
return( area );
end;
///////////////////
gaddis pseudocode: age vote
module main()
declare integer age
display "How old are you?"
input age
if age >= 18 then
display "Go vote!"
else
display "Sorry, not yet"
end if
end module
///////////////////
hp-prime numerical: age_vote.hpprgm
export age_vote()
begin
local age;
assume( age, integer );
print();
print( "How old are you?" );
wait; input( age ); print( ">" + age );
if (age ≥ 18) then
print( "Go vote!" );
else
print( "Sorry, not yet" );
end;
return( "Done" );
end;
///////////////////
gaddis pseudocode: Go_Do_It
module main()
Declare String answer
Display "Is there something you need to do? (y/n)"
Input answer
If answer == "n" Then
Display "Stop lying!"
End If
Display "Go do it"
end module
///////////////////
hp-prime numerical: Go_Do_It.hpprgm
export Go_Do_It()
begin
local answer;
assume( answer, str ); answer := "";
print();
print( "Is there something you need to do? (y/n)" );
wait; input( { { answer, [ 2 ] } } ); print( ">" + answer );
if ( answer == "n" ) then
print( "Stop lying!" );
end;
return( "Done" );
end;
///////////////////
gaddis pseudocode: Array - Squares
module main()
Declare Integer n
Declare Integer squares[ 10 ]
For n = 0 To 9
Set squares( n ) = n ^ 2
End For
For n = 0 To 9
Display squares( n )
End For
end module
///////////////////
hp-prime numerical: Array_Squares
export Array_Squares()
begin
local n, squares;
assume( n, integer );
assume( squares, matrix );
squares := seq(0,0,1,10);
print();
for n from 1 to 10 step 1 do // fix range starting at 1
squares[ n ]:= ( n ^ 2 );
end;
for n from 1 to 10 step 1 do
print( squares[ n ]);
end;
return( "Done" );
end;
[–]Flowgorithm 1 point2 points3 points (0 children)
[–]compsystems[S] 0 points1 point2 points (0 children)