vba7

calcolo media con VBA e con EXCEL e PASCAL


PULSANTE
creare pulsante per istruzioni
Option Explicit

Private Sub premi_Click()
'trova media 5 numeri
Dim k As Integer
Dim somma As Integer
Dim media As Double
somma = 0
'somma i primi 5 numeri interi 1,2,3,4,5
For k = 0 To 5
 somma = somma + k
 Next
 media = somma / 5
Cells(3, 2) = somma
Cells(4, 2) = media
End Sub
scrivere in A3 e in A4 etichette:appare risultato in B3,B4
  A B C D E F
1            
2            
3 somma= 15        
4 media= 3        
EXCEL
scrivere numeri in celle A1..C5 e formula in B7 per vedere risultato
  A B C
1 3 4 8
2 6 5 7
3 5 6 6
4 7 7 5
5 6 6 7
6      
7 media= =MEDIA(A1:C5)  
8      

PASCAL

program pro32;
uses crt;
var a,somma,k:integer;
    media:real;
begin
clrscr;
k:=10;
somma:=0;
for a:=1 to k do
 begin
 writeln(a);
 somma:=somma+a;
 end;
 media:=somma/k;
 writeln('media=',media:5:2);
 readln;
 end.
RUN
1
2
3
4
5
6
7
8
9
10
media= 5.50

inizio