Страница 1 из 2

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

Добавлено: 01 янв 2014, 13:32
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

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

Добавлено: 01 янв 2014, 15:16
Sonic86
geh писал(а):Source of the post Она вас никогда не забудет.
Есть что-то инфернальное в этом...

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

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

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

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

Добавлено: 03 янв 2014, 10:39
folk
Вообще говоря имелся ввиду IF - вы логику IF реализовали через goto:

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

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

Добавлено: 17 янв 2014, 08:38
A.I.
geh писал(а):Source of the post Да на языке Си что ни программа, то Головоломка!!

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

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

Добавлено: 17 янв 2014, 09:09
A.I.
Не запускать )
echo "test... test... test..." | sudo perl -e '$??s:;s:s;;$?::s;;=]=>%-{<-|}<&|`{;;y; -/:-@[-`{-};`-{/" -;;s;;$_;see'

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

Добавлено: 17 янв 2014, 09:24
grigoriy
geh писал(а):Source of the post
В нашем мире идет травля оператора GOTO


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

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

Добавлено: 17 янв 2014, 09:46
NT
geh писал(а):Source of the post ...
Да, здравствует GOTO !!
Ага ...
В ассемблере аналогом GOTO есть JMP (переходы).



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

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

Добавлено: 17 янв 2014, 10:18
kiv
geh писал(а):Source of the post
В нашем мире идет травля оператора GOTO

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

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


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

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

Добавлено: 17 янв 2014, 10:32
grigoriy
kiv писал(а):Source of the post
А куда вы в Basic'е-то денетесь?

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