Jump to content
FILIPEINFORMATICA10

Como passar esse código do pascal para o PHP

Recommended Posts

uses Crt;
   
   var X, Y : Integer;
   
   begin
     Writeln ('Entre com dois Números:'); { Mostra na tela a mensagem}
     Readln (X, Y); { Lê os dois números }
     If (X = Y) Then {Condição - SE X for igual a Y}
     Begin  {INICIO - Repare abaixo que existe duas instruções, dois comandos Writeln, por isso estão entre BEGIN e END}
       Writeln ('X é igual que Y');
       Writeln ('O Valor de X é =', X);
     End; {FIM}
   end.

Share this post


Link to post
Share on other sites

FILIPEINFORMATICA10

Para converter a tela PASCAL em código PHP você precisara ter 2 arquivos, 1 para exibir a solicitação dos dados de entrada e 1 para realizar a verificação do que você precisa, no caso saber se X é igual a Y, segue código abaixo:

 

Código convertido abaixo:

Arquivo index.php

Digite os valores: <br>
<form name="formSend" method="post" action="calcular.php" >
<input type="text" name="v1" autofocus required />
<input type="text" name="v2" required />
<input type="image" src="calcular.png" align="center" /></td>
</form>

<?php session_start();
if (!empty($_SESSION['retorno_calculo'])) {
    echo "<font color='#FF3300'>Alerta: </font>".$_SESSION['retorno_calculo'];
    $_SESSION['retorno_calculo'] = "";
} ?>

 

Arquivo calcular.php

<?php
session_start();
if ($_POST['v1'] == $_POST['v2']) {
    $_SESSION['retorno_calculo'] = "X é igual que Y <br> O Valor de X é = ".$_POST['v1'];
} else {
    $_SESSION['retorno_calculo'] = "Os valores são diferentes. <br> X = ".$_POST['v1']."<br> Y = ".$_POST['v2'];
};
header("Location: index.php");
exit();
?>

 

coloque todos os arquivo na mesma pasta e seja feliz.

 

Anexei a imagem que usei para enviar o formulário, apenas para ficar mais bonito.

 

Espero ter ajudado

 

Att.

Felipe Coutinho

 

calcular.png

Share this post


Link to post
Share on other sites

Muito obrigado vou ver aqui . mais acabei mandando errado queria saber se fosse assim como o código abaixo só me explicar no  caso de passar da 1 condição para ai sim seguir a 2 .  o resto entendi como me passou acima . 

Begin
     Readln (X,Y,A,B);
     If (X > Y) Then { Entrará no Próximo If apenas se a variável X for maior que a variavel Y }
     | If (A > B) 
     | | Then Writeln ('X é maior que Y e A é maior que B') {Sem ";"}
     | Else Writeln ('A não é Maior que B')   {Sem ";"}
     Else Writeln ('X não é maior que Y');
   End.

 

Share this post


Link to post
Share on other sites

FILIPEINFORMATICA10

Segue o código convertido

 

Arquivo index.php

Digite os valores: <br>
<form name="formSend" method="post" action="calcular.php" >
Digite valor de X <input type="text" name="X" autofocus required /><br />
Digite valor de Y <input type="text" name="Y" required /><br />
Digite valor de A <input type="text" name="A" required /><br />
Digite valor de B <input type="text" name="B" required /><br />
<input type="image" src="calcular.png" align="center" /></td>
</form>

<?php session_start();
if (!empty($_SESSION['retorno_calculo'])) {
    echo "<font color='#FF3300'>Alerta</font> - ".$_SESSION['retorno_calculo'];
    $_SESSION['retorno_calculo'] = "";
} else {
    $_SESSION['retorno_calculo'] = "Area de mensagem de retorno de erro";
    echo "<font color='#FF3300'>Alerta</font> - ".$_SESSION['retorno_calculo'];
    $_SESSION['retorno_calculo'] = "";
};
?>

 

Arquivo calcular.php

<?php
session_start();
ECHO "ENTREI PARA CALCULAR";
if ($_POST['X'] > $_POST['Y']) {
    if ($_POST['A'] > $_POST['B']) {
        $_SESSION['retorno_calculo'] = "X maior que Y e A maior que B";
    } else {
        $_SESSION['retorno_calculo'] = "A menor que B";
    }
} else {
    $_SESSION['retorno_calculo'] = "X menor que Y";
};
header("Location: 2valores.php");
exit();
?>

 

Espero ter ajudado

 

Att.

Felipe Coutinho

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By mamotinho
      Olá pessoal , estou tendo um trabalho em defini a porta na qual eu quero que meu site se conecte. eu alterei a porta utilizada na minha máquina para eu utilizar somente ela no meu site porém quando eu acrescendo o campo da PORT da o seguinte erro.
      Connection Error: SQLSTATE[08001] SQLDriverConnect: 17 [Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server inexistente ou acesso negado.  
      O Código de conexão na qual estou utilizando é esse.
       
      class Database { protected static $db; protected $db_host = DB_HOST; protected $db_usuario = DB_USER; protected $db_senha = DB_PASS; private function __construct() { try { self::$db = new PDO("odbc:Driver={SQL Server};Server=".$this->db_host.";port=8657; Uid=$this->db_usuario;Pwd=$this->db_senha; PDO::ATTR_PERSISTENT => true"); self::$db->setAttribute(PDO::ATTR_ERRMODE, PDO::ERRMODE_EXCEPTION); } catch (PDOException $e) { die("Connection Error: " . $e->getMessage()); } } public static function conexao() { if (!self::$db) { new Database(); } return self::$db; } } se alguém pude me ajuda ficarei bastante grato.
    • By Bassoli
      Olá, preciso de ajuda para meu sistema, preciso pegar o e-mail do usuário logado na conta, mais fiz um sistema que ele mostra todos email da mysql cadastrados, podem me ajudar?
       
      Meu sistema: 
      http://prntscr.com/qsm0tn (Puxar database)
      http://prntscr.com/qsm08u (Mostrar na label) 
      http://prntscr.com/qsm0n2 (Monstrando os emails no sistema)
    • By Good
      Boa noite,
      gostaria de saber como vocês fariam um sistema de delivery.
       
      Pensei em 3 soluções:
      1. Cadastrar as faixas de CEP que haverá sistema de entregas;
      2. Criar uma área delimitadora no google e exportar em KML para fazer a validação se o endereço do cliente está dentro do raio;
      3. Criar um raio de entregacom ponto fixo do estabelecimento, por exemplo, o estabelecimento só vai poder atender em um raio de até 10km.
       
      Qual método o ifood e outros gigantes trabalham? Existe algum código pronto para que eu possa dar uma olhada?
       
      Aguardo um contato, obrigado!
    • By marcossantana10
      Eu to fazendo uma aplicação que precisa trabalhar com valores e não to encontrando a solução ideal:
       
      preciso que o preço de um produto seja armazenado, precisamente, informando milhares, centenas, dezenas, todas as informações. exemplo:

      R$ 1.500,50 (mil e quinhentos reais e cinquenta centavos)
      eu já usei uma função (str_replace) pra substituir a virgula por pontos, porém o que vem depois da vírgula não está sendo considerado
      está salvando 1.500 apenas. Já tentei todo tipo de campo no banco (float, double, decimal, int).
       
      Como eu poderia solucionar isso?
    • By Lenon John
      Estou começando no PHP e preciso criar um simples sistema para emitir boletos na web com o SICOOB.
      OBS: Que quero me conectar a API SICOOB e não sei por onde começar.
       
      O SICOOB disponibiliza na página de developers.sicoob.com.br essas informações:
      GET https://sandbox.sicoob.com.br/oauth2/authorize?response_type=code&redirect_uri=[[callback_url]]&client_id=[[client_id]]&cooperativa=[[cooperativa]]&contaCorrente=[[conta]]&versaoHash=3&scope=[[escopos]]
      PARÂMETRO: response_type = Tipo de resposta gerada pelo fluxo authorize
      PARÂMETRO :redirect_uri = Endereço que será redirecionado após a autorização
      PARÂMETRO: client_id = Chave de acesso às APIs
       
      RESPOSTA:
      [[callback_url]/code=2eb7fd2c-aaf9-3655-bcf5-71972b50eb3d&state=0.3549351162541514

       
      Obtendo Access Token:
      POST https://sandbox.sicoob.com.br/token Headers Content-type: "www/form-url-encoded" Authorization: Basic [[token_basic]] Payload grant_type=authorization_code&code=2eb7fd2c-aaf9-3655-bcf5-71972b50eb3d&redirect_uri=[[callback_url]] E mais umas informações complementares aqui. Se alguém puder me ajudar, passo mais informações.
       
       
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.