Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
age
'Rextester.Program.Main is the entry point for your code. Don't change it. 'Compiler version 11.0.50709.17929 for Microsoft (R) .NET Framework 4.5 Imports System Imports System.Collections.Generic Imports System.Linq Imports System.Text.RegularExpressions Namespace Rextester Public Module Program Public Sub Main(args() As string) 'Your code goes here Console.WriteLine("Hello, world!") dim nb,n,i,max,min,de_0_a_15 as byte dim age(),age_moyen,som,sigma,variance,s as single dim colonneA as boolean console.writeline("quel est le nombre de personnes") nb=console.readline() redim age(nb) for n=1 to nb console.writeline("quel est l'age de la personne " & n) age(n)= console.readline() som=som+age(n) age_moyen=som/nb colonneA = 0<age(n) and age(n)<15 if colonneA= true then de_0_a_15=de_0_a_15+1 end if next n for n=1 to nb s=(age(n)-age_moyen)^2 variance= variance+ s next n sigma=((variance)/(nb-1))^0.5 for n=1 to nb If age(n) > Max Then Max = age(n) End If next n console.writeline("l'age moyen est de " & age_moyen) console.writeline("l'ecart type est de " & sigma) console.writeline("l'age maxi est de " & max) console.writeline(de_0_a_15) End Sub End Module End Namespace
run
|
edit
|
history
|
help
0
Reed Solomon error correction (success)
loop 1
Project Euler 1
pepe
macro for msg box in outlook
Declaração de Variaveis
Exercicio 1
CAI Visual Basic - Libreria Funciones
CFX.EXE
exercicio 2 2019 11 11