ОАК знает всё,для тех кто шарит в Basic
k
kuprum 
16:13, 29.05.2010
Знаю что не втему но просто очень надо.
Задачка такая. Программа запрашивает номер месяца,после ввода выходит название вренемя года.Если вводится отрицательное число или больше 12,то ответ "Неверные данные". Помогите плизз
Задачка такая. Программа запрашивает номер месяца,после ввода выходит название вренемя года.Если вводится отрицательное число или больше 12,то ответ "Неверные данные". Помогите плизз
R
Rum 
16:16, 29.05.2010
10 print "номер месяца?"
20 input m
30 if m>12 or if m<1 then goto 50
....
....
50 print "Неверные данные"
60 end
Ну а вывод времени года думаю по аналогии можно написать самому :-)
20 input m
30 if m>12 or if m<1 then goto 50
....
....
50 print "Неверные данные"
60 end
Ну а вывод времени года думаю по аналогии можно написать самому :-)
k
kuprum
16:18, 29.05.2010
спс,а оператор goto за что отвечает??
R
Rum
16:18, 29.05.2010
спс,а оператор goto за что отвечает??
За посылание :-)
R
Rum
16:20, 29.05.2010
Бэйсик это клево.
Фортран круче
k
kuprum
16:24, 29.05.2010
Я и бэйсик изучал и паскаль. А щас всё перемешалось)) и не получается
R
Rum
16:25, 29.05.2010
Я и бэйсик изучал и паскаль. А щас всё перемешалось)) и не получается
я в свое время на паскале БЕЙСИК написал :-) Правда только основные функции :-) :-)
K
Kesha 
16:33, 29.05.2010
А в басике case есть ? И как он отнесется к конструкции типа if m in [3..5] ?
R
Rum
16:34, 29.05.2010
А в басике case есть ? И как он отнесется к конструкции типа if m in [3..5] ?
есть, но я честно говоря не помню как это правильно пишется :-) Воды много утекло :-)
k
kuprum
16:35, 29.05.2010
Sub Main
10 print "номер месяца?"
20 input m
30 if m>=3 or if m<=5 then print "Весна"
40 if m>=6 or if m<=8 then print "Лето"
50 if m>=9 or if m<=11 then print "Осень"
60 if m>12 or if m<1 then goto 80
70 if m=12 or if m<=2 then print "Зима"
80 print "Неверные данные"
90 end
End Sub
усё праильно??
10 print "номер месяца?"
20 input m
30 if m>=3 or if m<=5 then print "Весна"
40 if m>=6 or if m<=8 then print "Лето"
50 if m>=9 or if m<=11 then print "Осень"
60 if m>12 or if m<1 then goto 80
70 if m=12 or if m<=2 then print "Зима"
80 print "Неверные данные"
90 end
End Sub
усё праильно??
R
Rum
16:36, 29.05.2010
усё праильно??
Неа. Начинать сравнение нужно с более поздних месяцев. :-)
K
Kesha
16:39, 29.05.2010
10 print "номер месяца?"
20 input m
25 if m>=1 AND if m<=2 then print "Зима"
30 if m>=3 AND if m<=5 then print "Весна"
40 if m>=6 AND if m<=8 then print "Лето"
50 if m>=9 AND if m<=11 then print "Осень"
60 if m=12 then print "Зима"
70 if m>12 or if m<1 then print "Неверные данные"
90 end
End Sub
20 input m
25 if m>=1 AND if m<=2 then print "Зима"
30 if m>=3 AND if m<=5 then print "Весна"
40 if m>=6 AND if m<=8 then print "Лето"
50 if m>=9 AND if m<=11 then print "Осень"
60 if m=12 then print "Зима"
70 if m>12 or if m<1 then print "Неверные данные"
90 end
End Sub
Вот правильно и нагляднее.
[Сообщение изменено пользователем 29.05.2010 17:52]
R
Rum
16:40, 29.05.2010
хотя.... в этой ситуации пофигу. :-)
R
Rum
16:40, 29.05.2010
Вот правильно и нагляднее
Вот AND тут явно лишний :-) тут место OR-у :-)
H
Homer J Simpson 
16:41, 29.05.2010
а оператор goto за что отвечает??
ответы на такие вопросы даже ОАК дает тока за 100 баксов\буква
R
Rum
16:42, 29.05.2010
Блин, хорошая тема. Прям в детстве побывал! :-)
k
kuprum
17:08, 29.05.2010
чёт не робит((((
P
PreDOK 
17:13, 29.05.2010
халявщики....
ZX Spectrum рулит!
ZX Spectrum рулит!
ы
ыть.. 
17:15, 29.05.2010
халявщики....
ZX Spectrum рулит!
ZX Spectrum рулит!
корвет 8110.
P
PreDOK
17:17, 29.05.2010
корвет 8110.
robotron!
P
PreDOK
17:18, 29.05.2010
у кого какой первый комп был???
у меня Вектор 06Ц
где то в 89 году...
у меня Вектор 06Ц
где то в 89 году...
ы
ыть..
17:21, 29.05.2010
а ещё был такой "кедр".полностью отечественный,разработан и собран.но он каг всегда никому ненужен был.
d
darkwoox 
17:25, 29.05.2010
K
Kesha
17:29, 29.05.2010
Вот AND тут явно лишний тут место OR-у
По идее, мы проверяем на принадлежность диапазону, так что просится AND. Но, поскольку определено "Неверные данные",
в этой
ситуации пофигу.
Вот, накидал на родном перле -
http://lvb.ru/temp/month.pl
Листинг
#!/usr/bin/perl
print "Content-type:text/html\n\n";
use CGI;
my $req = new CGI;
my $month = $req->param("month");
print "<form action=month.pl>";
print "Input Month Number <input type=text name=month>";
print "<input type=submit label='Check Month'>";
print "</form>";
print "Wrong Input" if (!$month);
if($month)
{
print "Winter" if (($month>=1) &&($month<=2));
print "Spring" if (($month>=3) &&($month<=5));
print "Summer" if (($month>=6) &&($month<=8));
print "Autumn" if (($month>=9) &&($month<=11));
print "Winter" if ($month eq 12);
print "Wrong Input" if (($month < 1) || ($month > 12));
}
end;
[Сообщение изменено пользователем 30.05.2010 00:13]
Обсуждение этой темы закрыто модератором форума.