Вопрос по информатике:
Перевести код из Java в Pascal:
import java.util.*;
public class Main
{
static long[] countPerfect(int n)
{
int i, j;
long cat[]= new long[51];
cat[0] = cat[1] = 1;
for(i = 2; i <= n; i++)
for(j = 0; j < i; j++)
cat[i] += cat[j] * cat[i - j - 1];
return cat;
}
public static void main(String[] args)
{
long cat[] = countPerfect(50);
Scanner con = new Scanner(System.in);
while(con.hasNext())
{
int n = con.nextInt();
System.out.println(cat[n/2]);
}
}
}
- 13.12.2016 04:24
- Информатика
- remove_red_eye 1959
- thumb_up 38
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
function countPerfect(n:integer):array of BigInteger;
begin
var cat:=new BigInteger[51];
(cat[0],cat[1]):=(1,1);
for var i:=2 to n do
for var j:=0 to i-1 do
cat[i]+=cat[j]*cat[i-j-1];
Result:=cat
end;
begin
var cat:=countPerfect(50);
ReadlnString.ToIntegers.Select(n->cat[n div 2]).Println;
end.
Пример
1 43 19 42 7
1 24466267020 4862 24466267020 5
- 14.12.2016 06:45
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.