Mensajes

Hola, existe algún módulo para manipular gráficos? Me refiero a que por ejemplo me gustaría hacer un programa para representar una función cuadrática por ejemplo.

Un saludo

Eso es todo? 

Bien, supongo que en tu form pusiste un textbox o un label.

En las propiedades del form busca BorderStyle y ponlo en 1-Fixed Single.

Saludo!

Puedes copiar por entero tu código, creo que será mas fácil.
Trata de utilizar GeShi 

La verdad es algo confusa tu lógica, en realidad deberías poner de esta manera para que aparezca en un label o textbox:

Código (vb) [Seleccionar] Expandir

Private Sub Igual_Click()
If Signo.List = "+" Then
NumC = Val(NumA) + Val(NumB)  'Marcar + en lista , sumar

Text1.text=NumC 'Esto
Label1.Caption=NumC 'O Esto

ElseIf Signo.List = "-" Then
NumC = Val(NumA) - Val(NumB)  'Marcar - en lista , restar

ElseIf Signo.List = "/" Then
NumC = Val(NumA) / Val(NumB)  'Marcar / en lista, dividir


ElseIf Signo.List = "*" Then
NumC = Val(NumA) * Val(NumB)  'Marcar * en lista , multiplicar
End If
End Sub

Pues ahi lo unico que hace es asignarle un valor a NumC unicamente, no te debería mostrar nada.

Es porque estás utilizando un mismo evento, sobre un mismo objeto varias veces.

Todas tus estructuras condicionales deberías ponerlas en un solo button, algo asi:

Código (vb) [Seleccionar] Expandir


Private Sub Igual_Click()
If Signo.List = "+" Then
NumC = Val(NumA) + Val(NumB)  'Marcar + en lista , sumar
If Signo.List = "-" Then
NumC = Val(NumA) - Val(NumB)  'Marcar - en lista , restar
...
If Signo.List = "*" Then
NumC = Val(NumA) * Val(NumB)  'Marcar * en lista , multiplicar
End Sub
Acuerdate que te faltan los 'end if's'.

En todo caso si vas a usar tantos if's anidados te recomiendo usar la estructura de control select case.

Un saludo

Ejercicio inserión + búsqueda binaria. Tema: Variables indizadas unidimensionales:

Código (pascal) [Seleccionar] Expandir

program Untitled;
uses
    crt;
var
   e,l,r,n,m,i,j:integer;
   a: array[1..100] of integer;
begin
     clrscr;
     writeln('Ingrese cantidad elementos');
     readln(n);
     writeln('Ingreso de elementos');
     for i:=1 to n do
     begin
          readln(a[i]);
     end;
     writeln('Lista ingresada:');
     for i:=1 to n do
     begin
          write(a[i],',');
     end;
     writeln('Ingrese e buscado');
     readln(e);
     l:=1;
     r:=n+1;
     while l<r do
     begin
          m:=((l+r)div 2);
          if a[m]<e then
          begin
               l:=m+1;
          end
          else
          begin
               r:=m;
          end;
     end;
     if a[r]=E then
     begin
          writeln('Su posicion es:');
          write(r);
     end
     else
     begin
          for j:=n downto r do
          begin
               a[j+1]:=a[j];
          end;
          a[r]:=e;
          writeln('Se produjo una insercion');
     end;
     readln();
end.

El 2 y el 4 en Pascal:

Código (pascal) [Seleccionar] Expandir

program factorial;
uses
    crt;
var
   i,n,f:integer;
begin
     clrscr;
     f:=1;
     readln(n);
     for i:=1 to n do
     begin
          f:=f*i;
     end;
     write(f);
     readln(n);
end.

Código (pascal) [Seleccionar] Expandir

program Untitled;
uses
    crt;
var
   n,p,s,i,a,aux:integer;
begin
     clrscr;
     readln(n);
     readln(p);
     readln(s);
     if p<s then
     begin
          aux:=p;
          p:=s;
          s:=aux;
     end;
     for i:=1 to n-2 do
     begin
          readln(a);
          if p<a then
          begin
               s:=p;
               p:=a;
          end
          else
          begin
              if s<a then
              begin
                 s:=a
              end;
          end;
     end;
     write(s);
     readln(n);
end.

Programa para buscar primos en una matriz NxM, parecido al ejercicio 5 de FSend.

Código (python) [Seleccionar] Expandir

import random
n=int(input("Ingresa las filas\n"))
m=int(input("Ingresa las columnas\n"))
matriz=[[0 for x in range(m)]for y in range(n)]
i=0
j=0
while(i<n):
while(j<m):
matriz[i][j]=random.randint(0,100)
j = j+1
i = i+1
j = 0
i=0
j=0
print(matriz)
def buscaprimo(num):
    PD=2
    while((PD<=num/2) and (num%PD<>0)):
        PD=PD+1
    if((PD>num/2) and (num<>1)):
        return 1
    else:
        return 0
i=0
j=0
while(i<n):
    while(j<m):
        z=matriz[i][j]
        if(buscaprimo(z)==1):
           print z
        j=j+1
    j=0
    i=i+1