- 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
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
1.TextWindow.WriteLine ("Напиши число от 0 до 9 и я переведу его на английский")
2.Число = TextWindow.ReadNumber()
3.If Число = "0" Then
4.TextWindow.WriteLine ("Zero")
5.ElseIf Число = "1" Then
6.TextWindow.WriteLine ("One")
7.ElseIf Число = "2" Then
8.TextWindow.WriteLine ("Two")
9.ElseIf Число = "3" Then
10.TextWindow.WriteLine ("Three")
11.ElseIf Число = "4" Then
12.TextWindow.WriteLine ("Four")
13.ElseIf Число = "5" Then
14.TextWindow.WriteLine ("Five")
15.ElseIf Число = "6" Then
16.TextWindow.WriteLine ("Six")
17.ElseIf Число = "7" Then
18.TextWindow.WriteLine ("Seven")
19.ElseIf Число = "8" Then
20.TextWindow.WriteLine ("Eight")
21.ElseIf Число = "9" Then
22.TextWindow.WriteLine ("Nine")
23.Else
24.TextWindow.WriteLine ("Не знаю таких больших цифр")
25.EndIf
P.S. Номера строк напоминают мне о древних бейсиках, в которых еще не было структурного программирования, и код на 50% состоял из goto...
Зови их JMP - им приятнее)
доменопроблемы
см. https://twitter.com/mr_The/statuses/393305882014265344
и да, надо обязательно отметиться в http://govnokod.ru/14073
После консолечки ничего не болит? :)
> лапал дев
А козерогов и водолеев?
да нет, я привычный)
>А козерогов и водолеев?
и тех и других. И всяких раков в planetside 2
с уважением, Ваш кэп.
До нынешнего момента я не знал, каким текстом сопровождать отловленные исключения неизвестного типа и выводил сухое "unknown error"... Теперь знаю :)
А какой диссонанс начнётся, когда кто-то введёт -1. Оно ведь умеет отрицательные числа?
> -1
Я про это и говорил. Диссонанс и философия.
Массивы в примере, показывающем как юзать ифы? :) Лолшто.
http://vbbook.ru/small-basic/ysloviya--primeru-small-basic/
Спорное утверждение. Сперморешетка и есть новый делфи, без сегфолтов и утечек :) Заточеная под гуй программирование.