ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
Перезагрузить страницу [Delphi]/[Pascal] Задай вопрос, получи ответ
   
Ответ
Страница 584 из 677 « Первая < 84484534574 580 581 582 583 584 585 586 587 588 594634 > Последняя »
 
Опции темы Поиск в этой теме Опции просмотра

  #5831  
Старый 20.03.2010, 14:37
akimov_aleks
Новичок
Регистрация: 03.05.2009
Сообщений: 22
Провел на форуме:
38103

Репутация: 0
По умолчанию
Подскажите ошибку почему не хочет работать с mobile.beeline.kz/ru/astana/sms/send.wbp
Код:
procedure TForm1.Button1Click(Sender: TObject); 
var FS:TFileStream; 
  Data:TStringList; 
  S:string; 
begin 

Button1.Enabled:=false; 
S:=IdHTTP1.Get('http://mobile.beeline.kz/ru/astana/sms/send.wbp'); 
FS:=TFileStream.Create('captcha.jpg',FMCreate); 
IdHTTP1.Get('http://mobile.beeline.kz/ru/astana/sms/mamimg.aspx/mamimg.jpg', FS); 
FS.Free; 

rsltedit.Text:=recognize(filenameedit.Text,apikeyedit.Text,false,false,false,0,0);// антикапачи 

Data:=TStringList.Create; 
Data.Add('smstext='+edit3.Text); 
Data.Add('smstoprefix='+edit1.Text); 
Data.Add('smsto=register='+edit2.Text); 
Data.Add('confirmcode='+rsltedit.Text); 

S:=IdHTTP1.Post('http://mobile.beeline.kz/ru/astana/sms/send.wbp', Data); 

Button1.Enabled:=true; 
end;
 
Ответить с цитированием

  #5832  
Старый 20.03.2010, 20:07
total90
Участник форума
Регистрация: 30.09.2009
Сообщений: 148
Провел на форуме:
11581319

Репутация: 241
Отправить сообщение для total90 с помощью ICQ
По умолчанию
Задача Multik

Заяц из известного мультфильма убегает от Волка по лестнице длиной N ступенек. Для того, чтобы убежать, Зайцу нужно спрятаться за дверью, которые находятся на последней ступеньке. Волк не может схватить зайца, если они одновременно не находятся на 1 ступеньке, или если Волк не опережает Зайца. Заяц за 1 шаг может подняться на 1 ступеньку, а Волк - на 2. В начале бега Волк находится на 0-й строчке, а Заяц на К-й (К> 0) ступеньке. Сможет Волк поймать Зайца? Если Волк и Заяц последним шагом становятся одновременно на последнюю ступеньку, то Волк схватит Зайца. Волк и Заяц предпринимают шаги одновременно (синхронно).

Технические условия: Программа Мultik читает с клавиатуры числа N и K через пробел. Программа выводит на экран 1, если Волк полакомился Зайцем или 0, если остался голодным. Все расчеты не выходят за пределы типа иnteger Turbo Pascal

Примеры

Введение: 10 7

Вывод: 0

Введение: 10 5

Вывод: 1



Код:
program Multik; 
var N,K,zaec,volk,d,i:integer; 
label 1; 
BEGIN 
read(N,K); 
d:=0; 
zaec:=0; 
volk:=0; 
repeat 
zaec:=k; 
k:=k+1; 
volk:=volk+2; 
d:=d+1; 
if zaec=volk then 
begin 
   i:=1; 
   d:=n; 
   goto 1; 
end 
else 
begin 
   i:=0; 
   d:=n; 
   goto 1; 
end; 
if volk > zaec then 
begin 
   i:=0; 
   d:=n; 
   goto 1; 
end; 
until d=n; 
if d=n then 
i:=0; 
1:write(i); 
END.
что неправильно?
goto дописал из незнания что делать, если можно то без goto код.
 
Ответить с цитированием

  #5833  
Старый 20.03.2010, 20:27
EndLeSSDre@M
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344

Репутация: 259
Отправить сообщение для EndLeSSDre@M с помощью ICQ
По умолчанию
хм... интересненькая задачка))) я тут набросал по быстрому... щас еще подумаю и подредактирую.... буду рад если кто поможет доделать
да и исправьте ошибки... а то я не силен в этом)))

PHP код:
program Multik; 
var N,K,zaec,volk,d,i:integer; 
label 1; 
BEGIN 
read(N,K); 
i:=0;
volk:=0; 
zaec:=k; //ступенька зайца 
d:=int(n/2);    // максимальное количество шагов возможных на лестнице
for l=1 to d do    //цикл перебора шагов
volk:=volk+2;    //волк шагает через 2 ступеньки
zaec:=zaec+1;    //заяц через одну
if zaec=volk then write(i) and goto 1; // если совпали то выводим и и заканчиваем программу
next l
write(i); //если не совпали то просто выводим 0 и заканчиваем программу 
1:END. 
Последний раз редактировалось EndLeSSDre@M; 20.03.2010 в 20:31..
 
Ответить с цитированием

  #5834  
Старый 20.03.2010, 20:31
Soherox
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184

Репутация: 47
По умолчанию
EndLeSSDre@M...опередил если что, ниже чуть оптимизированная программа без goto

Код:
program Multik;
  var
    n, k, volk: integer;
    ok: boolean; // Вместо goto
begin
  read(n, k); // k это тот же zaec
  volk:=0;
  ok:=true; // Заяц сцуко пока жив
  while (ok) and (k<n) do // Пока Зайц жив и не на последней ступени
    begin
      inc(k); // Шаг зайца
      inc(volk, 2); // Шаг волка
      if k <= volk then ok:=false; // Если встали на одну ступень или Волк дальше, то Волк съел Зайца (ok = false)
   end;
    if ok then writeln('1') else writeln('0'); // Если волк не съел (ok = true), то выводим 1, если съел то 0
    readln;
end.
Последний раз редактировалось Soherox; 20.03.2010 в 20:37..
 
Ответить с цитированием

  #5835  
Старый 20.03.2010, 20:36
EndLeSSDre@M
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344

Репутация: 259
Отправить сообщение для EndLeSSDre@M с помощью ICQ
По умолчанию
Цитата:
EndLeSSDre@M...опередил если что, ниже чуть оптимизированная программа без goto
та я просто сижу и жду когда интересную задачку подкинут))))
 
Ответить с цитированием

  #5836  
Старый 20.03.2010, 20:48
total90
Участник форума
Регистрация: 30.09.2009
Сообщений: 148
Провел на форуме:
11581319

Репутация: 241
Отправить сообщение для total90 с помощью ICQ
По умолчанию
если честно, то не один вариант не подошел, все не хочет проходить)
 
Ответить с цитированием

  #5837  
Старый 20.03.2010, 20:50
Soherox
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184

Репутация: 47
По умолчанию
total90...какие тесты? Подробнее?
 
Ответить с цитированием

  #5838  
Старый 20.03.2010, 20:50
total90
Участник форума
Регистрация: 30.09.2009
Сообщений: 148
Провел на форуме:
11581319

Репутация: 241
Отправить сообщение для total90 с помощью ICQ
По умолчанию
Цитата:
Сообщение от Soherox  
total90...какие тесты? Подробнее?

ну там идет задача+онлайн проверка, так вот ни одна из ваших программ не проходит тест
 
Ответить с цитированием

  #5839  
Старый 20.03.2010, 20:53
Soherox
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184

Репутация: 47
По умолчанию
total90...если онлайн проверка, то должно быть написано какие тесты не прошла, там есть отчет по пройденным тестам? Ты отправлял в тестирующую систему как Паскаль? Если да, то комментарии удалил? Просто я писал в Delphi, и комментарии там Delphi-ие
 
Ответить с цитированием

  #5840  
Старый 20.03.2010, 21:03
total90
Участник форума
Регистрация: 30.09.2009
Сообщений: 148
Провел на форуме:
11581319

Репутация: 241
Отправить сообщение для total90 с помощью ICQ
По умолчанию
Цитата:
Сообщение от Soherox  
total90...если онлайн проверка, то должно быть написано какие тесты не прошла, там есть отчет по пройденным тестам? Ты отправлял в тестирующую систему как Паскаль? Если да, то комментарии удалил? Просто я писал в Delphi, и комментарии там Delphi-ие

Да, вот твой вариант:

Прошло тестов: 0 из 22.

Набрано баллов: 0 из 20.


Мой вариант:

Прошло тестов: 8 из 22.

Набрано баллов: 7 из 20.
 
Ответить с цитированием
Ответ
Страница 584 из 677 « Первая < 84484534574 580 581 582 583 584 585 586 587 588 594634 > Последняя »



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Wi-Fi, BT] Задай вопрос - получи ответ! Alexsize Беспроводные технологии/WPAN/WLAN 2565 13.04.2026 18:18
[ *NIX ] Задай вопрос - получи ответ. Xszz *nix 1547 15.06.2010 15:41
[jQuery] - Задай вопрос, получи ответ Isis PHP, PERL, MySQL, JavaScript 62 25.12.2009 03:25
ЕсТь ВоПрос Guma Чаты 4 26.10.2005 21:48



Здесь присутствуют: 2 (пользователей: 0 , гостей: 2)
 


Быстрый переход




ANTICHAT.XYZ