pro6

ciclo iterazione con FOR

TURBO PASCAL

program ciclo1;
(* esegue n volte stessa operazione *)
uses crt;
var k,s1:integer;
begin
clrscr;
s1:=0;
for k:=1 to 10 do
 s1:=s1+k;
writeln('somma=',s1);
readln;
end.

RUN e visualizza

somma=55

VBA per EXCEL

creare PULSANTE e inserirvi istruzioni

PULSANTE

Option Explicit

Private Sub CommandButton1_Click()
'ciclo iterativo e somma primi 10 numeri
Dim k, s1 As Integer
s1 = 0
For k = 1 To 10
 s1 = s1 + k
  Next k
Cells(3, 3) = s1

End Sub

cliccare su PULSANTE:viene stampato risultato in C3

	A	B	C
1
2
3			S1

EXCEL scrivere numeri in A1..A10 e formula in A11:viene stampato risultato in A11

	A
1	1
2	2
3	3
4	4
5	5
6	6
7	7
8	8
9	9
10	10
11	=somma(A1:A10)

VISUAL BASIC

creare label1 e PULSANTE e inserirvi istruzioni

label1.......mostra s1

PULSANTE

Option Explicit

Private Sub CommandButton1_Click()
'iterazione e somma numeri
Dim k, s1 As Integer
s1 = 0
For k = 1 To 10
 s1 = s1 + k
  Next k
Label1.Caption = s1

End Sub

inizio