|
программирование
|
|
| Денис | Дата: Понедельник, 01.11.2010, 17:24 | Сообщение # 1 |
|
Рядовой
Группа: Пользователи
Сообщений: 9
Статус: Offline
| Изучаем программирование с самого начала 
Сообщение отредактировал rn6llv - Понедельник, 01.11.2010, 17:28 |
| |
| |
| rn6llv | Дата: Понедельник, 01.11.2010, 17:29 | Сообщение # 2 |
|
Сержант
Группа: Администраторы
Сообщений: 22
Статус: Offline
| Quote (Денис) Изучаем программирование
Принимаем тему! Наверняка начнем с простого языка Бейсик. И потом перейдем на его последний вариант ВБ. Так пойдет? Как Денис ты считаешь?
|
| |
| |
| Денис | Дата: Понедельник, 01.11.2010, 17:42 | Сообщение # 3 |
|
Рядовой
Группа: Пользователи
Сообщений: 9
Статус: Offline
| Да так пойдет потомушто без знание основ программирование к ВБ переходить ненано будет не понятно
Сообщение отредактировал Денис - Понедельник, 01.11.2010, 17:49 |
| |
| |
| rn6llv | Дата: Понедельник, 01.11.2010, 17:52 | Сообщение # 4 |
|
Сержант
Группа: Администраторы
Сообщений: 22
Статус: Offline
| Хорошо Денис. Тогда давай вспомним основные команды Бейсика. Тебе сразу же задание: собери все команды и напиши их в столбик. Примерный образец:
PRINT "Привет" = напечатет на экране слово "привет"
===== и так далее сколлько ты вспомнишь основных команд? =====
|
| |
| |
| Денис | Дата: Понедельник, 01.11.2010, 18:00 | Сообщение # 5 |
|
Рядовой
Группа: Пользователи
Сообщений: 9
Статус: Offline
| INPUT - ввод данных
PRINT - вывод данных
IF - условие
THEN - переводится "тогда" ставится после условия тоесть что делать при таком условии
END IF - закрыть условие это ипользуется в Visual Basic
Val - принадлежить переменную к ячейки это в Visual Basic
|
| |
| |
| rn6llv | Дата: Понедельник, 01.11.2010, 18:03 | Сообщение # 6 |
|
Сержант
Группа: Администраторы
Сообщений: 22
Статус: Offline
| хорошо тогда еще что означают команды:
FOR I=1 TO 10 STEP 2
NEXT LET A=5
GOTO
|
| |
| |
| Денис | Дата: Понедельник, 01.11.2010, 18:06 | Сообщение # 7 |
|
Рядовой
Группа: Пользователи
Сообщений: 9
Статус: Offline
| считаем цикл четных чилет а вторая не знаю!
|
| |
| |
| rn6llv | Дата: Понедельник, 01.11.2010, 18:10 | Сообщение # 8 |
|
Сержант
Группа: Администраторы
Сообщений: 22
Статус: Offline
| Quote (Денис) а вторая не знаю!
Так хорошо. А теперь задача: написать программу которая считает сумму всех чисел от -10 до 100. Действуй.
|
| |
| |
| Денис | Дата: Понедельник, 01.11.2010, 18:16 | Сообщение # 9 |
|
Рядовой
Группа: Пользователи
Сообщений: 9
Статус: Offline
| стате я так и подумал но не смог назвать правильно
Программа:
10 for i = -10 to 100
20 s = s + i
30 Next i
40 print i
Сообщение отредактировал Денис - Понедельник, 01.11.2010, 18:50 |
| |
| |
| rn6llv | Дата: Понедельник, 01.11.2010, 19:25 | Сообщение # 10 |
|
Сержант
Группа: Администраторы
Сообщений: 22
Статус: Offline
| Все правильно! Программа составлена верно. А теперь в качестве тренировки составить программу которая считает сумму четных чисел начиная с 40 и заканчивая -14. Будь внимательней и не спеши! Желаю удачи!
|
| |
| |
| Денис | Дата: Вторник, 02.11.2010, 10:37 | Сообщение # 11 |
|
Рядовой
Группа: Пользователи
Сообщений: 9
Статус: Offline
| 10 FOR i = -14 TO 40 STEP 2
20 s = s + i
30 NEXT i
40 PRINT s
Сообщение отредактировал Денис - Вторник, 02.11.2010, 10:38 |
| |
| |
| rn6llv | Дата: Вторник, 02.11.2010, 10:39 | Сообщение # 12 |
|
Сержант
Группа: Администраторы
Сообщений: 22
Статус: Offline
| Правильно! ВСе хорошо. Теперь переходим к следующему задание: составить программу которая находит корни квадратного уравнения КВУР. При этом программа должна учитывать что дискрименант может быть отрицательный, и в этом случае написать "корней нет".
|
| |
| |
| Денис | Дата: Вторник, 02.11.2010, 18:27 | Сообщение # 13 |
|
Рядовой
Группа: Пользователи
Сообщений: 9
Статус: Offline
| 10 INPU "a=", a
20 IF a = 0 THEN GOTO 190
30 INPUT "b=", b
40 INPUT "c=", c
50 z = b ^ 2 - 4 * a * c
60 IF z < 0 THEN GOTO 150
70 IF z = 0 THEN GOTO 170
80 d =SQR(z)
90 PRINT "D=", d
100 x1 = ((-b) + d) / (2 * a)
110 PRINT "x1=", x1
120 x2 = ((-b) - d) / (2 * a)
130 PRINT "x2=", x2
140 GOTO 10
150 PRINT "Корней нет"
160 GOTO 10
170 x1 = ((-b) + 0) / (2 * a)
175 PRINT "x1=", x1
180 GOTO 10
190 END
Сообщение отредактировал Денис - Вторник, 02.11.2010, 19:02 |
| |
| |
| rn6llv | Дата: Вторник, 02.11.2010, 18:52 | Сообщение # 14 |
|
Сержант
Группа: Администраторы
Сообщений: 22
Статус: Offline
| Денис идея хорошая! Но в тексте программы исправь ошибку..
дальше если дискриминант равен нулю то все равно есть два одинаковых корня. А программа у тебя это не знает. Так что исправляй. 
|
| |
| |
| rn6llv | Дата: Среда, 03.11.2010, 09:02 | Сообщение # 15 |
|
Сержант
Группа: Администраторы
Сообщений: 22
Статус: Offline
| И новое задание: составить программу которая считает факториал. Это произведение чисел от 1 до заданного числа. Например факториал 3 = 1*2*3 (результат 6)....
|
| |
| |
