pro9

iterazione con REPEAT..UNTIL.....DO..LOOP UNTIL

TURBO PASCAL

program ciclo4;
uses crt;
var k,somma:integer;
begin
clrscr;
k:=1;
somma:=0;
repeat
 somma:=somma+k;
 writeln(somma);
 k:=k+1;
 until somma>100;
 readln;
 end.

RUN e visualizza risultato

1
3
6
10
15
21
28
36
45
55
66
78
91
105

VBA per EXCEL

creare PULSANTE e inserirvi istruzioni

PULSANTE con istruzioni

Option Explicit

Private Sub CommandButton1_Click()
Dim k, somma As Integer
k = 1
somma = 0
Do
 somma = somma + k
 k = k + 1
 Cells(k, 1) = somma
 Loop Until somma > 100
End Sub

cliccare su PULSANTE per visualizzare risultati in celle A2..A15

	A
1
2	1
3	3
4	6
5	10
6	15
7	21
8	28
9	36
10	45
11	55
12	66
13	78
14	91
15	105

VISUAL BASIC

creare label1 per visualizzarvi risultati e PULSANTE per inserire istruzioni:compare anche MsgBox ove vengono visualizzati risultati intermedi

label1 per vedere risultati

PULSANTE per istruzioni

MsgBox per parziali

Option Explicit

Private Sub CommandButton1_Click()
Dim k, somma As Integer
k = 1
somma = 0
Do
somma = somma + k
k = k + 1
Label1.Caption = somma
MsgBox (somma)
Loop Until somma > 100
End Sub

inizio