| Вопрос: задачи | Добавлено: 18.12.06 21:07 |
Автор вопроса:  zadacha
|
|
помогите пожалуйста решить задачи по информатике!
1.все элементы целочисленного вектора A, размерности к для которых справедливо условие Ai=i, заменить нулем. 2.сколько положительных элементов матрицы, расположенных ниже главной диагонали. |
| Ответы | Всего ответов: 23 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 18.12.06 23:12 |
|
for i=1 to k
if a(i)=i then a(i)=0 next res = 0
for i=2 to n for j=1 to i-1 if a(i,j) > 0 then res = res + 1 next next |
||
|
Номер ответа: 2 Автор ответа: zadacha Вопросов: 1 Ответов: 6 |
Профиль | | #2 | Добавлено: 19.12.06 21:16 |
|
еще задача:
посчитать количество не букв в предложении. |
||
|
Номер ответа: 3 Автор ответа: zadachaВопросов: 1 Ответов: 6 |
Профиль | | #3 | Добавлено: 19.12.06 23:40 |
|
to sharp, спасибо, но я не очень разобралась что
ещё нужно писать в программе, кроме того что вы мне написали, поэтому она не запускается. |
||
|
Номер ответа: 4 Автор ответа:  trialist Вопросов: 14 Ответов: 76 |
Профиль | | #4 | Добавлено: 19.12.06 23:47 |
|
самый примитив, кидаешь в модуль sub main() k=inputbox("Введите число элеменов массива" 
for i=1 to k a(i)=inputbox("Введите элемент №" & i) next i for i=1 to k if a(i)=i then a(i)=0 next end sub |
||
|
Номер ответа: 5 Автор ответа:  trialistВопросов: 14 Ответов: 76 |
Профиль | | #5 | Добавлено: 19.12.06 23:51 |
|
вторая задача аналогично
sub main() n=inputbox("Введите число строк"
i=inputbox("Введите число строк"
for i=2 to n for j=1 to i-1 a(i,j) = Inputbox("Введите элемент матрицы (" & i & ", " & j & " "
next next res = 0 for i=2 to n for j=1 to i-1 if a(i,j) > 0 then res = res + 1 next next |
||
|
Номер ответа: 6 Автор ответа: trialistВопросов: 14 Ответов: 76 |
Профиль | | #6 | Добавлено: 19.12.06 23:52 |
|
i=inputbox("Введите число строк"
не строк а стлбцов |
||
|
Номер ответа: 7 Автор ответа: zadachaВопросов: 1 Ответов: 6 |
Профиль | | #7 | Добавлено: 19.12.06 23:54 |
| это в comonbattonе писать надо? | ||
|
Номер ответа: 8 Автор ответа: trialistВопросов: 14 Ответов: 76 |
Профиль | | #8 | Добавлено: 20.12.06 00:00 |
| в проекте создаешь модуль, в него пихаешь код, в свойствах проекта задаешь StartUp Object = Sub Main, жмешь Ок, запускаешь | ||
|
Номер ответа: 9 Автор ответа: trialistВопросов: 14 Ответов: 76 |
Профиль | | #9 | Добавлено: 20.12.06 00:05 |
|
посчитать количество не букв в предложении.
можно так, но ето тупо: dim str as string dim countsymb as integer str=inputbox("vvedite stroky"
for i=1 to len(str) if mid(str, x, 1)="a" goto issymb if mid(str, x, 1)="b" goto issymb if mid(str, x, 1)="c" goto issymb ....... if mid(str, x, 1)="z" goto issymb countsymb =countsymb +1 issymb: next i |
||
|
Номер ответа: 10 Автор ответа: zadachaВопросов: 1 Ответов: 6 |
Профиль | | #10 | Добавлено: 20.12.06 00:12 |
|
огромнейшее спасибо
а как решить эту задачу? посчитать количество не букв в предложении. |
||
|
Номер ответа: 11 Автор ответа: trialistВопросов: 14 Ответов: 76 |
Профиль | | #11 | Добавлено: 20.12.06 00:14 |
|
dim str as string
dim countsymb as integer str=inputbox("vvedite stroky"
for i=1 to len(str) if mid(str, x, 1)="a" goto issymb if mid(str, x, 1)="b" goto issymb if mid(str, x, 1)="c" goto issymb ....... if mid(str, x, 1)="z" goto issymb countsymb =countsymb +1 issymb: next i msgbox "Количество не букв = " & countsymb |
||
|
Номер ответа: 12 Автор ответа: zadachaВопросов: 1 Ответов: 6 |
Профиль | | #12 | Добавлено: 20.12.06 00:37 |
| где можно открыть свойствах проекта ? | ||
|
Номер ответа: 13 Автор ответа: ArtyomРазработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #13 | Добавлено: 20.12.06 00:41 |
|
ужоснах
26 строк! Я катаюсь! Прибавь сбда верхний регистр плюс кирилицу, этот код надо в мрамор вбить, а афтару йаду выпить. Делай по человечески - сравнивай символы с диапазонами букв. |
||
|
Номер ответа: 14 Автор ответа: trialistВопросов: 14 Ответов: 76 |
Профиль | | #14 | Добавлено: 20.12.06 00:44 |
|
ужоснах
а афтару йаду выпить. уже выпил, около 5 литров, мозг не работает 2zadacha Project>Project properties |
||
|
Номер ответа: 15 Автор ответа: trialistВопросов: 14 Ответов: 76 |
Профиль | | #15 | Добавлено: 20.12.06 00:45 |
|
Делай по человечески - сравнивай символы с диапазонами букв.
просплюсь-сделаю |
||