QBasic, хорошая память

[geh]

Если запустить эту программу в первый раз, то она спросит, как вас зовут
и запишет ваше имя в файл а также поздравит вас с новым годом. При
повторном пуске она не будет спрашивать ваше имя а сразу обратится к вам по имени.

Код: Выбрать все

DEFINT I
DEFSTR S
DECLARE SUB WER(s)
OPEN "D.dat" FOR INPUT AS #1
CLS
IF LOF(1)=0 THEN
   CALL WER(sim)
   CLOSE #1
   OPEN "D.dat" FOR OUTPUT AS #2
   PRINT #2, "sim=";sim
   CLOSE #2
   GOTO 2014
END IF
CLOSE #1
OPEN "D.dat" FOR INPUT AS #1
LINE INPUT #1, ss
i=INSTR(ss, "=")
sim=RIGHT$(ss, LEN(ss)-i)
2014:
PRINT sim;" , С Новым годом!"
CLOSE #1
STOP
END

SUB WER(sim)
   PRINT "Введите Ваше имя"
   INPUT sim
END SUB


программа проверена под Windows XP

[Sonic86]

Source of the post Она вас никогда не забудет.

Есть что-то инфернальное в этом...

А вообще эта тема явно для Флейма.

[geh]

В нашем мире идет травля оператора GOTO
Его пытаются подменить другими операторами
например Break и Continue. В чем дело? Говорят будто бы применение GOTO
усложняет понимание программы. Да на языке Си что ни программа, то Головоломка!!
Для меня оператор GOTO - это
Всё!!, что в жизни есть у меня!!
Всё!! В чем радость каждого дня!!
Всё!! О чем тревоги и мечты!! Это все GOTO!!
GOTO! Я не брошу тебя, я не буду без тебя писать программы!!
Да, здравствует GOTO !!

[folk]

Вообще говоря имелся ввиду IF - вы логику IF реализовали через goto:

if ( base_empty() ) {
read_name(name);
base_write(name);
} else {
base_read(name);
}
print name;

[A.I.]

Source of the post Да на языке Си что ни программа, то Головоломка!!

Вы еще регулярки на Perl не видели )

[A.I.]

Не запускать )

echo "test... test... test..." | sudo perl -e '?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'

[grigoriy]

Source of the post
В нашем мире идет травля оператора GOTO

В своё оправдание скажу, что я не травил. Просто игнорировал.
Однако подозреваю, что "иди ты на..." в неявном виде всё-таки находился в "кейсе",
который я таскал с собой.

[NT]

Source of the post ...
Да, здравствует GOTO !!

Ага ...
В ассемблере аналогом GOTO есть JMP (переходы).



Хочешь не хочешь, а ингнорировать не получается.

[kiv]

Source of the post
В нашем мире идет травля оператора GOTO

Да всего лишь обычный holywar...

Source of the post
GOTO! Я не брошу тебя, я не буду без тебя писать программы!!

А куда вы в Basic'е-то денетесь?

[grigoriy]

Source of the post
А куда вы в Basic'е-то денетесь?

С Васиком всерьёз сталкивался, так, лениво, по вершку...
Там что, кейса нет? Ну, оператора выбора варианта - case.