Add tasks for all the new languages
This commit is contained in:
parent
9dc3c2bb62
commit
bba7bfd280
13208 changed files with 134745 additions and 0 deletions
20
Task/Floyds-triangle/ERRE/floyds-triangle.erre
Normal file
20
Task/Floyds-triangle/ERRE/floyds-triangle.erre
Normal file
|
|
@ -0,0 +1,20 @@
|
|||
PROGRAM FLOYD
|
||||
|
||||
!
|
||||
! for rosettacode.org
|
||||
!
|
||||
|
||||
BEGIN
|
||||
N=14
|
||||
NUM=1
|
||||
LAST=(N^2-N+2) DIV 2
|
||||
FOR ROW=1 TO N DO
|
||||
FOR J=1 TO ROW DO
|
||||
US$=STRING$(LEN(STR$(LAST-1+J))-1,"#")
|
||||
WRITE(US$;NUM;)
|
||||
PRINT(" ";)
|
||||
NUM+=1
|
||||
END FOR
|
||||
PRINT
|
||||
END FOR
|
||||
END PROGRAM
|
||||
Loading…
Add table
Add a link
Reference in a new issue