vba7
calcolo media con VBA e con EXCEL e PASCAL
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