procedure TForm1.Button1Click(Sender: TObject);
var
  frase: string;
begin
  frase := 'PHP? Sim, eu gosto muito de PHP';

  // vamos substituir todas as ocorrências de "PHP" por "Delphi'
  frase := ReplaceStr(frase, 'PHP', 'Delphi');

  // vamos exibir o resultado
  ShowMessage(frase);
end;

<?php
  // Algoritmo que calcula porcentagem em PHP

  $valor = 178.00; // valor original
  $percentual = 15.0 / 100.0; // 15%
  $valor_final = $valor + ($percentual * $valor);

  // mostra o resultado
  echo "O valor final do produto é: " . $valor_final;

  // O resultado será 204,70
?>

<?php
  // Algoritmo que calcula porcentagem em PHP

  $valor = 250.00; // valor original
  $percentual = 8.0 / 100.0; // 8%
  $valor_final = $valor - ($percentual * $valor);

  // mostra o resultado
  echo "O valor final do produto é: " . $valor_final;

  // O resultado será 230,00
?>

<?php
  // Algoritmo que calcula porcentagem em PHP

  $perguntas = 90.0;
  $acertos = 72.0;

  // mostra a porcentagem de acertos
  echo "Porcentagem de acertos: " .
    (($acertos / $perguntas) * 100) . "%";

  // mostra a porcentagem de erros
  echo "<br>Porcentagem de erros: " .
    ((($perguntas - $acertos) / $perguntas) * 100) . "%";

  // Os resultados serão 80% e 20%
?>

<?php
  // Algoritmo que calcula porcentagem em PHP

  $valor_anterior = 300.0; // valor anterior
  $novo_valor = 340.0; // valor novo

  // calcula a porcentagem de lucro
  // efetua o cálculo
  $porcentagem_lucro = (($novo_valor * 100) / $valor_anterior) - 100;

  echo "A porcentagem de lucro foi de: " .
    $porcentagem_lucro . "%";

  // O resultado será 13,33
?>

<?php
  // Algoritmo que calcula porcentagem em PHP

  $valor = 70.0; // valor do produto
  $percentual = 5.0 / 100.0; // 5%

  // calcula a comissão
  $comissao = $percentual * $valor;

  // mostra o resultado
  echo "O valor repassado ao vendedor é: " .
    $comissao;

  // O resultado será 3,5
?>

private void button1_Click(object sender, EventArgs e){
  // vamos maximizar o formulário
  this.WindowState = FormWindowState.Maximized;
}

# vamos importar o módulo Math
import math

# função usada para calcular e retornar a quantidade
# de barras de aço de acordo com a área de aço (considerando
# aço CA-50)
def quant_barras(area_aco):
  # barras de 6.3mm (o mínimo aceitável pela NBR 6118)
  quantidade_6_3 = math.ceil(area_aco / 0.31)
  quantidade_8 = math.ceil(area_aco / 0.5) # barras de 8mm
  quantidade_10 = math.ceil(area_aco / 0.785) # barras de 10mm
  quantidade_12_5 = math.ceil(area_aco / 1.22) # barras de 12.5mm

  # mostra as sugestões de quantidade de barras
  if (quantidade_6_3) > 1:
    print("{0} barras de 6.3 mm".format(quantidade_6_3))
  if (quantidade_8) > 1:
    print("{0} barras de 8 mm".format(quantidade_8))
  if (quantidade_10) > 1:
    print("{0} barras de 10 mm".format(quantidade_10))  
  if (quantidade_12_5) > 1:
    print("{0} barras de 12.5 mm".format(quantidade_12_5))

# função principal do programa Python
def main():
  # vamos pedir para o usuário informar a altura da viga
  altura = float(input("Informe a altura h da viga em cm: "))
  
  # vamos pedir para o usuário informar a largura da viga
  largura = float(input("Informe a largura bw da viga em cm: "))
  
  # vamos pedir para o usuário informar o FCK do concreto
  fck = float(input("Informe o FCK do concreto em Mpa: "))
  
  # vamos calcular o pmin de acordo com o FCK informado
  if (fck <= 30):
    pmin = 0.15
  elif (fck == 35):
    pmin = 0.164
  elif (fck == 40):
    pmin = 0.179
  elif (fck == 45):
    pmin = 0.194
  else:
    pmin = 0.208    
  
  # já temos o pmin, vamos calcular a área mínima de aço
  area_concreto = largura * altura
  as_min = (pmin / 100.0) * area_concreto
  
  # vamos mostrar os resultados 
  print("\nA área da armadura mínima longitudinal é: {0} cm2".format(
    round(as_min, 5)))
  # mostra as sugestões de barras
  print("\nSugestões de barras:\n-------------------------")
  quant_barras(as_min)

if __name__ == "__main__":
  main()

 
#include <stdio.h>
#include <stdlib.h>

int main(int argc, char *argv[])
{
  int i = 1;

  for(;;){
    printf("%d  ", i);
    i++;

    if(i > 10)
      break; // sai do laço
  }

  printf("\n\n");
  system("PAUSE");
  return 0;
}