Тип: Контрольная работа |
Цена: 450 р. |
Страниц: 3 |
Формат: doc |
Год: 2012 |
 Купить
Данная работа была успешно защищена, продается в таком виде, как есть. Изменения, а также индивидуальное исполнение возможны за дополнительную плату. Если качество купленной готовой работы с сайта не соответствует заявленному, мы ВЕРНЕМ ВАМ ДЕНЬГИ или ОБМЕНЯЕМ на другую готовую работу. Данная гарантия действует в течение 48 часов после покупки работы. Вы можете получить её по электронной почте (отправляется сразу после подтверждения оплаты в течение 3-х часов, в нерабочее время возможно увеличение интервала). Для получения нажмите кнопку «купить» выше.
Также работу можно получить в московском офисе, либо курьером в любом крупном городе России (стоимость услуги 600 руб.). Желаете просмотреть часть работы? Обращайтесь: ICQ 15555116, Skype dip-master, E-mail info @ dipmaster-shop.ru. Звоните: (495) 972-80-33, (495) 972-81-08, (495) 518-51-63, (495) 971-07-29, (495) 518-52-11, (495) 971-76-12, (495) 979-43-28.
|
Содержание
|
|
Постановка задачи
Вычислить квадратный корень из суммы квадратов нечётных элементов
|
|
Введение
|
|
Динамический массив intA() и переменную n объявляются глобальными в модуле формы Public intA() As Integer, n As Integer
Для события Click кнопки Command1
Private Sub Command1_Click()
Dim i As Integer, kvs As Integer
n = Val(txtN.Text) 'считывание n
ReDim intA(n) As Integer ' переопределение массива intA
Cls
CurrentY = 1245
'Ввод и вывод исходных данных
Print " ИСХОДНЫЕ ДАННЫЕ"
|
|
Список литературы
|
|
|
|
Примечания:
|
|
Примечаний нет.
|
|
На уровень вверх