Bem vindo ao LifeGames Demo
Cadastre-se agora para ter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, a reputação de seus companheiros, começar seu próprio mensageiro privado, atualizações de status post, gerir o seu perfil e muito mais. Esta mensagem será removida assim que tiver logado.
Entrar Cadastre-se


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 criando funçao no pascal e delphi em Qua Abr 17, 2013 7:45 pm

Moedas Moedas : 201
Mensagens Mensagens : 92
Humor Humor : *-*
Reputação Reputação : 5
Quebra de regras:
0 / 1000 / 100

hacker fts315

Moderador Informática

Moderador Informática

funçoes sao algoritimos prontos q permite fazer a mesma coisa varias vezes por exemplo vc criar um algoritimo q faz uma soma com uma variavel, entao vc tem q fazer esse mesmo algoritimo com dezenas de variaveis para nao precisar fazer o mesmo algoritimo vc cria uma funçao, veja um exemplo de programa sem funçao

Código:

//by hacker fts315
program funcao;
var x, fts, resu: integer;
begin
    x:= 15;
    fts:= 300;
    resu:= fts + x;
    writeln(resu);
end.

na minha source acima ele cria 3 variaveis x,fts,resu a variavel x recebe 15, a variavel fts recebe 300, e a variavel resu recebe a soma da variavel x e fts, se agente tivesse q fazer o mesmo algoritimo so q mudando a variavel x veja um exemplo

Código:

//by hacker fts315
program funcao;

var x, y, w, a, b, fts, resu: integer;
begin
    fts:= 300;
    x:= 15;
    y:= 500;
    w:= 1000;
    a:= 5000;
    b:= 10000;
    resu:= fts + x;
    writeln(resu);
    resu:= fts + y;
    writeln(resu);
    resu:= fts + w;
    writeln(resu);
    resu:= fts + a;
    writeln(resu);
    resu:= fts + b;
    writeln(resu);
end.

para facilitar agente poderia criar uma funçao, tipo veja como ficaria a nossa source usando uma funçao

Código:

//by hacker fts315
program funcao;

function func(rec: integer): integer;
var fts,resu: integer;
begin
  fts:= 315;
  resu:= fts + rec;
  func:= resu;
end;

var x, y, w, a, b: integer;
begin
    x:= 15;
    y:= 500;
    w:= 1000;
    a:= 5000;
    b:= 10000;
    writeln(func(x));
    writeln(func(y));
    writeln(func(w));
    writeln(func(a));
    writeln(func(b));
end.

a vantagem de criar funçao q vc pode pegar apenas ela e colocar em outras source, agora vamos ensinar a criar uma, para criar uma funçao vc tem q declarar ela usando o comando function depois vc escreve um nome para ela no meu exemplo ela se chama func abre depois abre e fecha parenteses dentro dele vai ser passado um argumento, depois vc tem q colocar o tipo de retorno dele no meu exemplo ele retorna um valor inteiro, veja outro exemplo

Código:

function hack(): integer;

o argumento e o valor de entrada e o retorno o valor de saida, logo depois q va declarar ela basta usar o begin e end; para agente escreve nossa funçao veja outro exemplo

Código:

function hack(): integer;
begin
end;

para ter o retorno agente atribui o valor de retorno ao propria funçao no nosso caso agente vai atribuir ao hack

Código:

function hack(): integer;
begin
    hack:= 315;
end;

para chamar a funçao basta usar o nome dela e abre fecha paretenses, nosso exemplo seria hack(), algumas vezes vc pode querer q o valor de retorno de uma funçao seja atribuido a uma variavel veja um exemplo

Código:

//by hacker fts315
program funcao;

function hack(): integer;
begin
    hack:= 315;
end;

var receber: integer;
begin
  receber:= hack();
  writeln(receber);
end.

para criar variavel dentro da funçao basta declar ela antes do begin veja um exemplo

Código:

function hack(): integer;
var x: integer;
begin
    x := 315;
    hack:= x;
end;

argumentos sao os valor de entrada da funçao, passar como argumento basta criar uma variavel dentro da abre e fecha parenteses para receber o valor e depois quando vc chamar a funçao vc coloca o valor de entrada dentro do abre e fecha parenteses para o valor q vai ir para funçao, veja o exemplo

Código:

//by hacker fts315
program funcao;

function hack(y: integer): integer;
var x: integer;
begin
    x:= y + 100;
    hack:= x;
end;

var rec: integer;
begin
  rec:= hack(315);
  writeln(receber);
end.

no meu exemplo acima eu criei uma variavel y dentro da funçao hack para receber o valor de entrada, depois criei mais uma variavel x q recebe o valor de entrada y + 100 e depois tem o retorno da funçao com o valor da variavel x, na funçao principal criei uma variavel chamado rec e ela recebe o valor de saida da funçao hack depois q e passado o valor de 315 para a funçao, so para nao ter duvida nesse ponto o valor de entrada e envidado antes do valor de retorno no nosso exemplo ele passo o valor 315 antes da variavel rec receber o valor de retorno da mesma, essas funçao pode ser feita tanto na linguagem pascal quanto no delphi, bom galera para criar funçao e isso ^^

by hacker fts315

Ver perfil do usuário http://www.facebook.com/hacker.fts315

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum