|
|
Postada em 02/01/2008 09:35 hs
Olá VB zadores!!! é o seguinte, sei que este forum é VB mas eu gosto tanto dele que vou perguntar mesmo assim, sei que tem muita gente boa neste forum e que vai saber me ajudar  . Pois bem, como faço esse algoritimo em pascal? ESCREVA UM ALGORITIMO QUE SEJA CAPAZ DE RECEBER 10 NUMEROS EM UM VETOR. IMPRIMA OS PARES, USANDO FUNÇÕES E PROCEDIMENTOS. Alguem me ajude pelo amor de Deus! Feliz 2008 a todos!!!
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7" 
|
|
|
|
|
|
|
|
Postada em 02/01/2008 09:51 hs
Cara ve se te ajuda esse link ou pelo menos te dá uma idéia Abrazz |
|
|
|
|
|
Postada em 02/01/2008 15:40 hs
Private Sub Command1_Click()
If iNumero Mod 2 = 0 Then
MsgBox "PAR"
Else
MsgBox "IMPAR"
End If
End Sub
|
|
|
|
|
|
Postada em 03/01/2008 07:09 hs
Olá pessoal! obrigado por responderem. Los Zeus o link ta quebrado, num consigo mesmo! tem outro? Cardoso G eu precisaria do algoritmo em pascal, mas obrigado pela ajuda! Alguem por favor! 
"Se fizeres o bem, não é certo que serás aceito? E se não fizeres o bem, o pecado jaz à porta, e sobre ti será o seu desejo; mas sobre ele tu deves dominar - Gênesis 4.7"
|
|
|
|
|
|
Postada em 03/01/2008 11:54 hs
Deixa eu ver se eu lembro... sei que a sintaxe do mod em pascal é parecida... const lim = 10; var matriz: array[1..lim] of integer; i: integer; par :integer; begin for i := 1 to lim do matriz[i] = i; if (matriz[i] mod 2) = 0 then begin writeln(matriz[i]); end; end; Acho que é +- isso  veja na internet a sintaxe correta mas acho que é por ae....(tentei...) at+ |
|
|
|
|
|
|
