Вложенные циклы используя Do...Loop - Microsoft Office Excel

evox · 19.05.2012, 19:13

Вот задание:
Используя Do...Loop вычислить:

Вот набросок:

Код:

Sub prog()
Dim x As Single, y As Single, l As Single
x = 1
y = 0
y = 0
Do
    y = (Sin(x / 2)) + (Cos(l / 2))
    Loop Until
    
    
MsgBox ("Sum=" & y)
End Sub

Казанский · 19.05.2012, 19:53

goto cyberforum

19.05.2012, 19:13	#1
evox Регистрация: 16.12.2011 Сообщений: 3	Вложенные циклы используя Do...Loop Вот задание: Используя Do...Loop вычислить: Вот набросок: Код: `Sub prog() Dim x As Single, y As Single, l As Single x = 1 y = 0 y = 0 Do y = (Sin(x / 2)) + (Cos(l / 2)) Loop Until MsgBox ("Sum=" & y) End Sub`

19.05.2012, 19:53	#2
Казанский Старожил Регистрация: 31.12.2010 Сообщений: 2,133	goto cyberforum exceleved@yandex.ru Яндекс.Деньги: 410011500007619

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Вложенные циклы	DeadWind	Паскаль, Turbo Pascal, PascalABC.NET	2	27.12.2011 13:50
Вложенные циклы	kex	Помощь студентам	2	11.10.2010 18:25
вложенные циклы!!!!	for_tuna	Помощь студентам	6	08.12.2009 07:07
вложенные циклы	илька	Помощь студентам	4	07.12.2009 09:53
Вложенные циклы	Chief	Паскаль, Turbo Pascal, PascalABC.NET	3	06.01.2009 16:34