ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > С/С++, C#, Delphi, .NET, Asm
   
Ответ
 
Опции темы Поиск в этой теме Опции просмотра

  #2621  
Старый 02.04.2010, 14:30
Аватар для EndLeSSDre@M
EndLeSSDre@M
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344

Репутация: 259
Отправить сообщение для EndLeSSDre@M с помощью ICQ
По умолчанию

Цитата:
Сообщение от CyberHunter  
EndLeSSDre@M у меня как бы тоже самое. Или я ошибаюсь?
ну я через циклы решил попробовать сделать) чтоб в случае ошибки, был возможен новый ввод, а не закрытие программы
 
Ответить с цитированием

  #2622  
Старый 02.04.2010, 14:32
Аватар для CyberHunter
CyberHunter
Постоянный
Регистрация: 06.01.2010
Сообщений: 785
Провел на форуме:
1777031

Репутация: 256


Отправить сообщение для CyberHunter с помощью ICQ
По умолчанию

Цитата:
ну я через циклы решил попробовать сделать) чтоб в случае ошибки, был возможен новый ввод, а не закрытие программы
Хотел спросить, а в паскале можно вот так делать
Код:
sk:=pi*rk^2;
so:=pi*ro^2;
Ну типа вот так: ^ в степень поднимать?
 
Ответить с цитированием

  #2623  
Старый 02.04.2010, 14:33
Аватар для EndLeSSDre@M
EndLeSSDre@M
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344

Репутация: 259
Отправить сообщение для EndLeSSDre@M с помощью ICQ
По умолчанию

Цитата:
Сообщение от CyberHunter  
Хотел спросить, а в паскале можно вот так делать
Код:
sk:=pi*rk^2;
so:=pi*ro^2;
Ну типа вот так: ^ в степень поднимать?
ммм... не помню))) ну щас через sqr() сделаю))

переделал))) ++тебе за нахождение косяка))

Swat2k и вообще на сколько я помню, мне Soherox говорил, что константа Pi по умолчанию там есть, и ее не обязательно делать... ну может я че то путаю, поэтому не буду переделывать

Последний раз редактировалось EndLeSSDre@M; 02.04.2010 в 14:36..
 
Ответить с цитированием

  #2624  
Старый 02.04.2010, 14:35
Аватар для Swat2k
Swat2k
Новичок
Регистрация: 12.09.2007
Сообщений: 14
Провел на форуме:
136460

Репутация: 2
По умолчанию

Раз тут все вариантами мерюются , то вот мой вариант ))

Код:
var
 s1,s2:real;
begin
     writeln('#########################');
     write('R (kolca) = ');
     readln(s2);
     write('R (otverstia) = ');
     readln(s1);
     if (s1>=s2) then writeln('Error : R(otverstia) >= R(kolca)')
     else writeln('S (kolca) = ',pi*(s2*s2-s1*s1):3:3);
end.

Последний раз редактировалось Swat2k; 02.04.2010 в 14:37..
 
Ответить с цитированием

  #2625  
Старый 02.04.2010, 14:36
Аватар для Soherox
Soherox
Познающий
Регистрация: 17.02.2010
Сообщений: 45
Провел на форуме:
195184

Репутация: 47
По умолчанию

Вот отлаженная и исправленная версия EndLeSSDre@M

PHP код:
type
  real 
extended;
 var
   
so,sk,s,rk,roreal;
   
okboolean;
begin
  ok
:=false;
  while 
not ok do
    
begin
      writeln
('vvedide radius colca');
      
readln(rk);
      
writeln('vvedide radius otverstia');
      
readln(ro);
      if 
rk<=ro then writeln('ne vernij vvod')
      else
        
begin
          sk
:=pi*sqr(rk);
          
so:=pi*sqr(ro);
          
s:=sk-so;
          
writeln('Ploshad=',s:0:3);
          
ok:=true;
        
end;
    
end;
  
readln;
end
В Паскале ^ нельзя использовать, так же в константу пихать pi не нужно, она и так есть
 
Ответить с цитированием

  #2626  
Старый 02.04.2010, 14:38
Аватар для EndLeSSDre@M
EndLeSSDre@M
Участник форума
Регистрация: 18.07.2009
Сообщений: 278
Провел на форуме:
3055344

Репутация: 259
Отправить сообщение для EndLeSSDre@M с помощью ICQ
По умолчанию

Soherox Редиска ты))) я обиделся))) про ^ уже понял и переделал))) про константу запамятовал))) и все равно ты редиска)))

и вообще надо уже научиться мне в лесенку делать код))) а то у тебя больно элегантно выглядит)

и вообще, если люди не могут решить задачи такой сложности, то че тут говорить о будущих программистах((( даже обидно как то

Последний раз редактировалось EndLeSSDre@M; 02.04.2010 в 14:48..
 
Ответить с цитированием

  #2627  
Старый 02.04.2010, 14:43
Аватар для Swat2k
Swat2k
Новичок
Регистрация: 12.09.2007
Сообщений: 14
Провел на форуме:
136460

Репутация: 2
По умолчанию

На счёт pi , да запамятовал , бывает
 
Ответить с цитированием

Помогите срочно решить одну задачку. До завтра надо сделать.
  #2628  
Старый 02.04.2010, 19:25
Аватар для Porrter
Porrter
Новичок
Регистрация: 24.08.2009
Сообщений: 17
Провел на форуме:
765806

Репутация: -9
По умолчанию Помогите срочно решить одну задачку. До завтра надо сделать.

Спроектировать и разработать программу позволяющую создавать процессы и
управлять уже созданными. Программа должна обладать следующим набором
возможностей:
В интерактивном режиме запускать указанные процессы.
Уничтожать указанный процесс (уничтожаться могут только процессы запущенные
программой). Уничтожаемый процесс указывается либо его описателем, либо
выбирается в интерактивном режиме.
Показать список всех процессов (а также своих копий) запущенных программой.
Программа должна знать о всех своих запушенных копиях.
Программа должна уметь обмениваться со своими копиями списками порождённых
процессов.
При закрытии программы она должна уничтожить все порождённые ею процессы.

Примечания:
Новый процесс запускается функцией CreateProcess и уничтожается функцией
TerminateProcess.
Запускаемый процесс указывается именем своего исполняемого файла.
Для обмена данными между копиями программы можно использовать переменные
окружения. Для работы с переменными окружения используются следующие функции:
GetEnvironmentVariable, SetEnvironmentVariable.
В случае реализации программы в консольном варианте для обработки попыток
закрытия программы необходимо использовать функцию SetConsoleCtrlHandle.
Описание необходимых функций можно посмотреть в MSDN Library.
Пользовательский интерфейс может быть реализован в любом варианте (текстовый,
графический).Спроектироват ь и разработать программу позволяющую создавать процессы и
управлять уже созданными. Программа должна обладать следующим набором
возможностей:
В интерактивном режиме запускать указанные процессы.
Уничтожать указанный процесс (уничтожаться могут только процессы запущенные
программой). Уничтожаемый процесс указывается либо его описателем, либо
выбирается в интерактивном режиме.
Показать список всех процессов (а также своих копий) запущенных программой.
Программа должна знать о всех своих запушенных копиях.
Программа должна уметь обмениваться со своими копиями списками порождённых
процессов.
При закрытии программы она должна уничтожить все порождённые ею процессы.

Примечания:
Новый процесс запускается функцией CreateProcess и уничтожается функцией
TerminateProcess.
Запускаемый процесс указывается именем своего исполняемого файла.
Для обмена данными между копиями программы можно использовать переменные
окружения. Для работы с переменными окружения используются следующие функции:
GetEnvironmentVariable, SetEnvironmentVariable.
В случае реализации программы в консольном варианте для обработки попыток
закрытия программы необходимо использовать функцию SetConsoleCtrlHandle.
Описание необходимых функций можно посмотреть в MSDN Library.
Пользовательский интерфейс может быть реализован в любом варианте (текстовый,
графический).
 
Ответить с цитированием

  #2629  
Старый 02.04.2010, 19:26
Аватар для Porrter
Porrter
Новичок
Регистрация: 24.08.2009
Сообщений: 17
Провел на форуме:
765806

Репутация: -9
По умолчанию

Заранее благодарен=) Предпосительный язык - C#
 
Ответить с цитированием

  #2630  
Старый 02.04.2010, 21:51
Аватар для cheater_man
cheater_man
Постоянный
Регистрация: 13.11.2009
Сообщений: 437
Провел на форуме:
709575

Репутация: 17
По умолчанию

Цитата:
Сообщение от Porrter  
Заранее благодарен=) Предпосительный язык - C#
Что WinApi + C# это гемор!
Лучше сам пиши на С++. Примеров дофига
 
Ответить с цитированием
Ответ



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сюда выкладываем все проги для фрикринга мобильников, которых знаем! nigger Сотовый фрикинг 5 11.04.2009 11:15
Американским студентам запретили пользоваться Skype KPOT_f!nd Мировые новости 1 28.09.2006 03:47
Любителям квестов сюда!! FoX's Болталка 10 25.01.2005 20:42



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


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




ANTICHAT.XYZ