| Вопрос: ПРИМЕРЫ!!!! СРОЧНО!! PLZZZZ | Добавлено: 10.06.05 22:46 |
Автор вопроса:  anus
|
|
Парни !!! Срочно нужна помощь... кто-нибудь знает как это сделать??
Задание 1. Напишите программу , которая принимает от пользователя три целых числа , находит их сумму , среднее,произведение, наименьшее и наибольшее. Задание 2. Пользователь вводит начальную границу диапазона чисел и конечную границу диапазона, програма вычисляет квадраты и кубы чисел из диапазона . Например , пользователь ввел начальную гран. диап. 3 , а конечную 5, программа должна вывести: 3 9 27 4 16 64 5 25 125 |
| Ответы | Всего ответов: 15 |
|
Номер ответа: 1 Автор ответа:  anus Вопросов: 1 Ответов: 3 |
Профиль | | #1 | Добавлено: 10.06.05 22:49 |
| e-mail gtengiz@yandex.ru | ||
|
Номер ответа: 2 Автор ответа: mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #2 | Добавлено: 11.06.05 13:56 |
Ну и ник... 
|
||
|
Номер ответа: 3 Автор ответа: ViktorZ ICQ: 271202919 Вопросов: 56 Ответов: 837 |
Профиль | | #3 | Добавлено: 11.06.05 14:20 |
мб подстать знаниям. )
|
||
|
Номер ответа: 4 Автор ответа: anusВопросов: 1 Ответов: 3 |
Профиль | | #4 | Добавлено: 11.06.05 14:52 |
| Нужен ответ! | ||
|
Номер ответа: 5 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #5 | Добавлено: 11.06.05 14:57 |
| Хм... неужели все так просто? Здесь какой-то подвох... | ||
|
Номер ответа: 6 Автор ответа: Ramil ICQ: 286597559 Вопросов: 13 Ответов: 25 |
Web-сайт: Профиль | | #6 | Добавлено: 11.06.05 16:30 |
Esli cifri 3 , 4 , 5 Stoyat v v stolbce  naprimer
3 na Range("A1"
4 na Range("A2"
5 na Range("A3" i.t.
to vot etot kod pomojet tebe dlya vvoda cifr ot 3 do 5 naprimer ili bolshe InputBox Viydit napishish. Dim StartVal As Integer
Dim NumToFill As Long Dim CellCount As Long StartVal = CInt(InputBox("Enter the starting value: " )
NumToFill = CInt(InputBox("How many cells? " )
For CellCount = 1 To NumToFill ActiveCell.Offset(CellCount - 1, 0) = _ StartVal + CellCount - 1 Next CellCount A dlya vichesleniya kvadrata i kub magu napisat' tolko eto Range("B1"
.Select
ActiveCell.FormulaR1C1 = "=RC[-1]*RC[-1]" Range("C1" .Select
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-2]*RC[-2]" Range("B1" .Select
Selection.AutoFill Destination:=Range("B1:B20" , Type:=xlFillDefault
Range("C1" .Select
Selection.AutoFill Destination:=Range("C1:C20" , Type:=xlFillDefault
Range("A1" .Selecteto rabotaet tolko dlya 20 cifr ... esli pomenyaesh 20 na 50 ili tam ne znayu na 100 to budet rabotat' dlya etix cifr. |
||
|
Номер ответа: 7 Автор ответа:  MilleniumICQ: 629966 Вопросов: 118 Ответов: 903 |
Web-сайт: Профиль | | #7 | Добавлено: 11.06.05 16:53 |
| учится надо! | ||
|
Номер ответа: 8 Автор ответа:  RamilICQ: 286597559 Вопросов: 13 Ответов: 25 |
Web-сайт: Профиль | | #8 | Добавлено: 13.06.05 14:40 |
|
Eto ti mne "uchit'sya nado" ...
Vsyo chto mne nado ya sam noxaju ... ili mne pomagayut xaroshie lyudi v etom sayte ... profissionalno to chto ya napisal ... eto ne imeet znacheniya ... ya prosta pomogayu chem mogu ! |
||
|
Номер ответа: 9 Автор ответа: ViktorZICQ: 271202919 Вопросов: 56 Ответов: 837 |
Профиль | | #9 | Добавлено: 13.06.05 15:20 |
| Особенно русский язык выучить надо, а то с такими "ашипками" будет очень тяжело и стыдно когда тебя попросят что-либо написать(отчет, заявление, резюме) | ||
|
Номер ответа: 10 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #10 | Добавлено: 13.06.05 17:14 |
|
[flood]
Да ладно тебе, Vik, видишь человек транслит юзает, видать, не в совершенстве пока еще владеет... [/flood] |
||
|
Номер ответа: 11 Автор ответа: RamilICQ: 286597559 Вопросов: 13 Ответов: 25 |
Web-сайт: Профиль | | #11 | Добавлено: 14.06.05 12:53 |
| eeeeexxxxxxxx ... | ||
|
Номер ответа: 12 Автор ответа:  anusВопросов: 1 Ответов: 3 |
Профиль | | #12 | Добавлено: 14.06.05 23:25 |
| Блин спасиб большое... а кому не нравится.. пиздуйте нах..) | ||
|
Номер ответа: 13 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #13 | Добавлено: 15.06.05 00:50 |
| мдя... см. правила форума... | ||
|
Номер ответа: 14 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #14 | Добавлено: 15.06.05 01:19 |
|
2 sne
Вот это верно блин... Кстати, я формулу вывел: Наличие текстовых полей внизу странице = round(1/(Количество зелёных рожец в последнем ответе * Дельта(Черепки) * количество мата в теме)) and True |
||
|
Номер ответа: 15 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #15 | Добавлено: 15.06.05 01:21 |
| Ой, блин извиняюсь, на математику не тянет - на ноль может делиться часто, но типа того.... | ||
Страница: 1 |