- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
СLS
DEFLNG M-N,P,S
INPUT "N=";N
IF N>9.999999999999999D+48 THEN END
M=N
S=0
WHILE M<> 0
P=M MOD 10
S=S+P
M=M\10
PRINT "S=";S;
WEND
PRINT"P="; "S=";S;
PRINT
ЗДЕСЬ ВСЕ ВЕРНО ! СУММА ПОДСЧИТЫВАЕТСЯ ПРАВИЛЬНО. Часть 2 ЭТОЙ ЗАДАЧИ
WHILE S<>10
M=S: P=0
S1=0
WHILE M<>0
P=M MOD 10
S1=S1+P
M=M\10
PRINT S1
PRINT S1
WEND
PRINT"SUMMA=";S1
WEND
END
Это QBasic. Для числа подсчитываются сумма его цифр. Если результат превышает 9, то для результата снова подсчитывается сумма цифр и так далее, пока результат не станет меньше 10. Например, если исходное число 3247598, то результат 2. Взято отсюда: http://otvet.mail.ru/question/47598848/
istem 02.11.2010 22:42 # −5
Давайте ещё скрипты из перфолент сюда постить...
Анонимус 02.11.2010 23:17 # −1
>>перфолент
лолшто?
istem 02.11.2010 23:35 # 0
http://img267.imageshack.us/img267/5615/18243199.jpg
Анонимус 02.11.2010 23:37 # 0
istem 02.11.2010 23:40 # 0
Анонимус 02.11.2010 23:42 # 0
istem 02.11.2010 23:47 # +1
bugmenot 03.11.2010 02:23 # +2
Анонимус 03.11.2010 02:41 # 0
Анонимус 02.11.2010 23:15 # 0
bugmenot 02.11.2010 23:36 # 0
Анонимус 02.11.2010 23:37 # −2
andremacareno 02.11.2010 23:46 # +1
GWBasic - первое поколение (дос)
QuickBASIC(QBASIC, QB) - второе поколение (дос)
Visual Basic - третье поколение (винда)
bugmenot 02.11.2010 23:52 # 0
andremacareno 02.11.2010 23:56 # 0
istem 03.11.2010 00:06 # 0
andremacareno 03.11.2010 00:23 # 0
Анонимус 03.11.2010 16:09 # +3
многие тут с борланда начинали)
Lure Of Chaos 04.11.2010 23:58 # +2
bugmenot 03.11.2010 00:12 # 0
Анонимус 03.11.2010 01:52 # 0
опциональным он стал кажется только в XT.
где-то в памяти BIOS есть кусочек, описывающий комп (тип адаптера (cga, ega итд) кол-во дисководов (1 или 2)) -- там же есть и битик, показывающий наличие бейсика
3.14159265 03.11.2010 10:45 # 0
еще до всяких там делфей.
>TurboBasic не забудьте...
я как только попробовал - меня сразу от него стошнило.
bugmenot 04.11.2010 00:44 # 0
guest6 17.10.2023 22:34 # 0
guest6 17.10.2023 22:37 # 0
guest6 17.10.2023 21:52 # 0
guest6 17.10.2023 22:40 # 0
А между QB и VB был продукт с пафосным названием PDS Basic (Microsoft Basic Professional Development System), как будто профессионалы пишут на Бейсике.
j0kz 03.11.2010 00:06 # −2
HyperGeek 03.11.2010 01:59 # 0
Анонимус 03.11.2010 02:43 # +2
это кружок информатики для учеников младших классов.
серьезно. в моем деццтве во дворце пионеров барсику учили с шести лет.
с 12ти -- паскалю.
HyperGeek 03.11.2010 11:47 # +1
Lure Of Chaos 03.11.2010 12:19 # +3
это лучшее представление числа 10, которое я видел )))
Lure Of Chaos 12.04.2011 20:52 # 0