Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|
20.03.2010, 21:12
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184
Репутация:
47
|
|
total90..хм, байда, программа правильно написано, сомнений нет, а раз прошло 0 тестов, то думаю проблема в другом, отправь этот код на проверку
Код:
var
n, k, volk: integer;
ok: boolean;
begin
readln(n, k);
d:=0;
volk:=0;
ok:=true;
while (ok) and (k<n) do
begin
inc(k);
inc(volk, 2);
if k <= volk then ok:=false;
end;
if ok then write('0') else write('1');
readln;
end.
а, блин, понятно почему 0 тестов проходила, я вместо 0 выводил 1, а вместо 1, 0 
Последний раз редактировалось Soherox; 20.03.2010 в 21:14..
|
|
|
20.03.2010, 21:19
|
|
Участник форума
Регистрация: 30.09.2009
Сообщений: 148
Провел на форуме:
11581319
Репутация:
241
|
|
нет, всё равно 0, мне кажется проще подредакировать мой вариант
|
|
|
|
20.03.2010, 21:37
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184
Репутация:
47
|
|
total90...а ссылку можете скинуть где задачу отправляете, очень интересно в чем именно проблема
Последний раз редактировалось Soherox; 20.03.2010 в 21:55..
|
|
|
|
20.03.2010, 21:48
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 127
Провел на форуме:
1313455
Репутация:
249
|
|
Код:
program Multik;
var
intA,V,N,K:integer;
R:boolean;
begin
writeln('Vvedite N,K');
readln(N,K);
V:=0;
R:=False;
for intA:=K to N do begin
if V>=K then begin
R:=True;
break;
end;
V:=V+2;
K:=K+1;
end;
if R then writeln('1') else
writeln(0);
readln;
end.
|
|
|
|
20.03.2010, 21:56
|
|
Banned
Регистрация: 05.05.2009
Сообщений: 1,334
Провел на форуме:
5777251
Репутация:
796
|
|
Pascal.
Как видим алгоритм рабочий и никакой ошибки нету:
Но при подключении модуля для работы с экраном (uses CRT) в частности процедуры clrscr - вылетает ошибка:
Вопрос: почему это так и как вообще эта процедура чистки экрана может влиять на результат? Как это исправить. |
|
|
|
20.03.2010, 22:02
|
|
Познающий
Регистрация: 21.12.2009
Сообщений: 97
Провел на форуме:
638958
Репутация:
53
|
|
Varius, ошибка показывает то, что ты где-то делишь на ноль.
А если говорить конкретно о crt, то последние версии pascal имеют ошибки в реализации модуля crt на компьютерах с тактовой частотой процессора более 200мгц
|
|
|
|
20.03.2010, 22:05
|
|
Banned
Регистрация: 14.06.2009
Сообщений: 256
Провел на форуме:
260151
Репутация:
105
|
|
Помогите написать программу подсчета количества элементов, попадающих между номером минимального элемента и максимального элемента в массиве из 30 чисел.
|
|
|
|
20.03.2010, 22:08
|
|
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184
Репутация:
47
|
|
|
|
|
|
20.03.2010, 22:33
|
|
Участник форума
Регистрация: 08.01.2010
Сообщений: 155
Провел на форуме:
1008872
Репутация:
22
|
|
подскажите пожалуйста программку для просмотра получившихся приложений для мобильных телефонов(созданные приложения имеют формат jar и jad).спасибо
|
|
|
|
20.03.2010, 22:37
|
|
Участник форума
Регистрация: 20.01.2008
Сообщений: 284
Провел на форуме:
3767223
Репутация:
408
|
|
Сообщение от skagen
подскажите пожалуйста программку для просмотра получившихся приложений для мобильных телефонов(созданные приложения имеют формат jar и jad).спасибо
Лови
http://muzorka.ru/index.php?showtopic=16060
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
![Аватар для e[X]theta[M]ine](/avatars/avatar108129.jpg?1998700){kind=avatar}
Похожие темы
Линейный вид
