Ir para conteúdo
Fórum Script Brasil

Pascal Man

Membros
  • Total de itens

    6
  • Registro em

  • Última visita

Tudo que Pascal Man postou

  1. passa o ascript PHP que você ta usando pra ver ond ta o problema
  2. Eu recomendo fazer com flash alguma duvida mande um email pra mim andre_mcx@hotmail.com
  3. program Tabuada; uses crt; var a,x,w: integer; op: char; begin repeat clrscr; write('Entre com o numero da tabuada: '); read(a); while x < 10 do begin x:= x + 1; w:= a * x; writeln( a, 'x' , x , '=' , w); end; write('Deseja fazer novamente? (s/n): '); readln(op); until(op = 'n'); readkey; end.
  4. num1, num2 e num3 são variaveis do tipo inteiro Edit.Text := IntToStr(num1)+' '+IntToStr(num2)+' '+IntToStr(num3);
  5. Eu aprendi a programar com Pascal, Passei para o C++, aprendi HTML, PHP, e faço programação com ActionScript do Flash, sei um ouco de JavaScript, jugo essas liguagens faceis, se voce tiver alguma duvida pode me perguntar
  6. programa notas; var nome: caractere(20); nota1,nota2,media: real; inicio [b]exiba[/b]("Digite seu nome: "); [b]leia[/b](nome); [b]exiba[/b]("Digite a primeira nota: "); [b]leia[/b](nota1); [b]exiba[/b]("Digite a segunda nota: "); [b]leia[/b](nota2); media <- nota1 / nota2; [b]exiba[/b](nome+", estado: "); [b]se[/b] (media < 5) [b]então[/b] [b]exiba[/b]("REPROVADO"); [b]senão[/b] [b]se[/b] (media < 7) [b]então[/b] [b]exiba[/b]("RECUPERAÇÃO"); [b]senão[/b] [b]exiba[/b]("APROVADO"); fim.
×
×
  • Criar Novo...