Ejemplo de FUNCTION turbo pascal

-
En este ejemplo muestro un simple uso del Function en turbo pascal invocando la llamada de el mensaje "Hola mundo" mas el nombre ingresado

aqui el codigo:


program prog11;







uses crt;







var







nombre:string;







FUNCTION Hola_mundo(nm:string):string;







begin







write('Hola ',nm);



end;







begin



clrscr;







(* llamando function hola mundo*)



write('Ingrese su nombre ');



readln(nombre);



Hola_mundo(nombre);







readln;







end.




Descargar código:



Comentarios

Publicar un comentario

Entradas más populares de este blog

Sacando aceleracion de un vehiculo en c++

-
Imagen
La palabra aceleración está presente en muchas situaciones de nuestra vida diaria, tanto es así que incluso uno de los pedales en el automóvil se llama “acelerador”. Siempre se utiliza asociada a un movimiento . Sin embargo, el significado que se le da habitualmente no corresponde exactamente al significado que se le da en Física. La aceleración mide directamente la rapidez con que cambia la velocidad. Si un vehículo se desplaza por una carretera, su velocidad varía  muchas veces durante el viaje; estos cambios en la velocidad se deben porque es imposible mantener una velocidad constante durante un trayecto  ya que pueden ocurrir situaciones que obliguen al conductor a aumentar la misma o a disminuirla. Por ejemplo, puede que el conductor deba frenar bruscamente en una situación de emergencia o bien puede que necesite aumentar la velocidad para adelantar a otro vehículo. En cualquiera de las dos situaciones, hay un cam...
Read more »

Ejemplo de suma Pascal

-
Imagen
Aquí muestro un ejemplo simple de suma en pascal en el cual pide introducir dos números para luego sumarlos y mostrar el resultado : Program P3AE4 (input,output); uses crt; Var num1, num2, total: Integer; Begin writeln('Suma'); writeln('Ingrese el primer numero:'); readln(num1); writeln('Ingrese el segundo numero:'); readln(num2); total:= num1+num2; writeln('El total de la suma es: ',total); readkey; End. Si quiere restar, multiplicar o dividir solo deberían cambiar el símbolo "+" por el deseado. Descargar código: link Turbo Pascal
Read more »

Gráfica de Seno y Coseno en C++ | Código C++

-
Imagen
para graficar por ejemplo la función seno, hacen falta 3 pasos: 1. Hacer un ciclo de 0 a 360º (con aumentos de 5 queda muy bien) con for, algo muy normal. 2. Calcular, obviamente, el seno de cada valor. Para esto la librería math.h nos regala la función sin(). Su uso es el obvio, pero el asunto es que todas las funciones trigonométricas que usa c++ trabajan en radianes. Es decir que primero tendremos que convertir nuestro ángulo en radianes y luego ya sacar el seno. Si la variable ‘i’ contiene el ángulo y tenemos ya definida la constante PI, la función quedaría así: sin(i/180*PI) 3. Luego viene la parte más rara, convertir ese valor en un entero que pueda meter como coordenada en un gotoxy. Si tenemos una variable int y y la igualamos a nuestra función anterior podría quedar bien si multiplicamos por 10: int x, y; y = sin(i/180*PI)*10; gotoxy(x,y); Nos quedaría nuestra gráfica en una escala 1:10, pero al correr el programa veremos que hay muchos valores de seno que ...
Read more »