Модераторы: Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Java, Pascal] Помогите переделать функцию, с Java на Pascal: Антифакториал 
V
    Опции темы
DeadLine
Дата 22.9.2006, 19:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Мыслитель
**


Профиль
Группа: Завсегдатай
Сообщений: 736
Регистрация: 16.2.2006
Где: Готем

Репутация: 1
Всего: 51
Код

import java.util.Scanner; 
import java.math.*; 

class Main { 
public static void main(String args[]){ 
Scanner s = new Scanner(System.in); 
BigInteger a,b,c; 
c=s.nextBigInteger(); 
b=a=BigInteger.ONE; 
int i; 
for(i=0;i<300;i++){ 
a=a.multiply(b); 
b=b.add(BigInteger.ONE); 
if(a.compareTo©==0){ 
break; 
} 
} 
if(i<300){ 
System.out.println(i+1);} 
} 
}


Это сообщение отредактировал(а) DeadLine - 22.9.2006, 20:04
PM   Вверх
DeadLine
Дата 23.9.2006, 12:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Мыслитель
**


Профиль
Группа: Завсегдатай
Сообщений: 736
Регистрация: 16.2.2006
Где: Готем

Репутация: 1
Всего: 51
Ну на Си++ хотябы.Там я разберусь
PM   Вверх
DeadLine
Дата 24.9.2006, 16:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Мыслитель
**


Профиль
Группа: Завсегдатай
Сообщений: 736
Регистрация: 16.2.2006
Где: Готем

Репутация: 1
Всего: 51
Хоть помогите из даннго кода сделать программы работающую.А тоя не знаю Яву вообще
PM   Вверх
LSD
Дата 24.9.2006, 17:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Leprechaun Software Developer
****


Профиль
Группа: Модератор
Сообщений: 15718
Регистрация: 24.3.2004
Где: Dublin

Репутация: 9
Всего: 538
Цитата(DeadLine @  24.9.2006,  17:13 Найти цитируемый пост)
Хоть помогите из даннго кода сделать программы работающую.

Так она и так работает.


--------------------
Disclaimer: this post contains explicit depictions of personal opinion. So, if it sounds sarcastic, don't take it seriously. If it sounds dangerous, do not try this at home or at all. And if it offends you, just don't read it.
PM MAIL WWW   Вверх
Romikgy
Дата 24.9.2006, 18:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
Код

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils,integer_asm;

var  i: LongInt;
 a,b,c: string;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  a:='1';
  b:='1';
  c:='87178291200';
  for i:=0 to 139 do
  begin
  a:=Mul(a,b);
  b:=Add(b,'1');
  ///////////////////
//  Writeln(a);
//  Writeln(b);
//  Writeln(Length(a));
  ///////////////////
  if (StrComp(PChar(a),PChar(c))=0) then Break;
  end;
  if (i<140) then  Writeln(i+1);
  //s3:=Add(s1,s2);
//  Writeln(a);
//  Writeln(b);
//  Writeln(c);
  Readln;
end.

правда не до 300 символов а до 140

Это сообщение отредактировал(а) Romikgy - 24.9.2006, 19:27

Присоединённый файл ( Кол-во скачиваний: 7 )
Присоединённый файл  integer_asm.zip 2,33 Kb


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
DeadLine
Дата 24.9.2006, 19:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Мыслитель
**


Профиль
Группа: Завсегдатай
Сообщений: 736
Регистрация: 16.2.2006
Где: Готем

Репутация: 1
Всего: 51
Спасибо
PM   Вверх
DeadLine
Дата 25.9.2006, 16:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Мыслитель
**


Профиль
Группа: Завсегдатай
Сообщений: 736
Регистрация: 16.2.2006
Где: Готем

Репутация: 1
Всего: 51
Чего-то BDS ругается насчет integer_asm.В чем может быть глюк?
PM   Вверх
Romikgy
Дата 25.9.2006, 16:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 9
Всего: 146
Цитата(Romikgy @  24.9.2006,  17:19 Найти цитируемый пост)
Присоединённый файл ( Кол-во скачиваний: 0 )
Присоединённый файл  integer_asm.zip 2,33 Kb

это стороний модуль


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
DeadLine
Дата 25.9.2006, 16:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Мыслитель
**


Профиль
Группа: Завсегдатай
Сообщений: 736
Регистрация: 16.2.2006
Где: Готем

Репутация: 1
Всего: 51
Блин.точно.это я пропустил=)Спасибо
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0511 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.