Need help making some programs

Forum Attachments

Need help making some programs

NielsPut 09 Jul 2021 14:42

Hello,

Anyone that can help me write some programs? The first one needs to be a program that shows the prime numbers between two parameter (a,b).
Got 3 more programs to write after.
Can pay (small) if someone wants to do it for me

Re: Need help making some programs

J_Walker87 11 Jul 2021 23:26

Here's a prime number program I just wrote for you:

PROGRAM:PRIME
:Prompt N
:{2→ L₁ 
:For(I,3,N,2
:If min(fpart(I/L₁ 
:augment(L1,{I→ L₁ 
:End
:L₁

This program will find all prime numbers from 2 to N. I optimized it using Ti-BASIC's list arithmetic as well as the fact that the only even prime number is two. I then revised this program to fit your specification and take a range (a,b). The result is below:

PROGRAM:PRIME
:Prompt A,B
:{2→ L₁ 
:For(I,3,B,2
:If min(fpart(I/L₁ 
:augment(L₁ ,{I→ L₁ 
:End
:SortD(L₁ 
:1→ I
:Repeat A>L₁ (I
:I+1→ I
:End
:I-1→ dim(L₁ 
:SortA(L₁ 
:L₁

To make this program work, make sure that A is less than B, that A is greater than two, and that there are prime numbers between A and B. If any of these conditions are not met, the program will not function properly.

I would be happy to write some more programs for you. However, I will not accept pay.

Re: Need help making some programs

Trenly 12 Jul 2021 05:38

Mine is a bit less optimized, but does the exact same thing

SetUpEditor 
ClrList L₂
Prompt A,B
For(Y,A,B
  Y→X
  {1→L₁
  Repeat Ans=1
    2:While fPart(X/Ans
      Ans+1
    End
    Ans→L₁(1+dim(L₁
    X/Ans→X
  End
  If 2=dim(L₁:Then
    Disp Y
    Y→L₂(1+dim(L₂
  End
End
If dim(L₂:L₂