Карта сайта

Это автоматически сохраненная страница от 24.12.2013. Оригинал был здесь: http://2ch.hk/b/res/59490098.html
Сайт a2ch.ru не связан с авторами и содержимым страницы
жалоба / abuse: admin@a2ch.ru

Втр 24 Дек 2013 15:57:50
Помощи паскаля
Помощи паскаляСап, питурды. Кто сможет помочь по паскалю? Всего две задачки решить. Очень сильные напряги на учебе. Расчитываю на вас

1)Задано число N. Сложить все цифры числа N, затем все цифры найденной суммы и повторить эти действия до тех пор, пока не получим цифру, называемую цифровым корнем числа. Напишите рекурсивную подпрограмму вычисления цифрового корня числа N.

2)Напишите рекурсивную функцию сложения двух чисел.


Втр 24 Дек 2013 16:03:19
бампую

Втр 24 Дек 2013 16:19:55
двабамп. Помогите аноны, к завтра сдать нужно или пипец

Втр 24 Дек 2013 16:22:38
бампую анон!

Втр 24 Дек 2013 16:23:00
Первая задача
var a, b:int64;
begin
read(a);
while a>9 do begin
while a>0 do begin
b:=b+(a mod 10);
a:=a div 10;
end;
a:=b;
b:=0;
end;
write(a);
end.

Втр 24 Дек 2013 16:24:45
>>59491224
Хуй знает, что это такое рекурсия, наверное получилось без неё.

Втр 24 Дек 2013 16:26:32
>>59490098
Реквестирую второй пункт. Что вообще имеется ввиду, как это?

>>59491224
Не факт, что они про int64 знают, обычного longint или как там он у вас, паскалистов... пойдет.

Втр 24 Дек 2013 16:27:12
>>59491314

>>59491314
>Хуй знает, что это такое рекурсия
Этот програмизд сломался.

Втр 24 Дек 2013 16:29:00
>>59491224
спасибо анон, со второй помоги плз

Втр 24 Дек 2013 16:29:16
Бамп. Ну, помогите ему, анончики ну могу в паскаль, разве что C/C++

Втр 24 Дек 2013 16:30:57
>>59491517
То, что там написали, не содержит рекурсии. Хоть, вроде бы, и работает

Втр 24 Дек 2013 16:33:05
>>59491528
С+ сложная?

Втр 24 Дек 2013 16:34:13
Похоже, я теперь за ОПа. Бамп.
Есть ведь тут те, кто в паскаль может.

Втр 24 Дек 2013 16:36:05
>>59490098
>2)Напишите рекурсивную функцию сложения двух чисел.
Что это за бред?

Втр 24 Дек 2013 16:37:26
>>59491871
Напишите рекурсивную процедуру перевода натурального числа из десятичной системы счисления в восьмеричную.

А если такую?

Втр 24 Дек 2013 16:37:48
>>59491706
C++? В смысле как язык программирования? Ну, тут кому как. Я ленивая ничего не делающая жопа за несколько лет выучил.

Втр 24 Дек 2013 16:41:03
>>59491929
Ну можно много бредовых заданий придумать, и заставить их реализововать с помощью рекурсии, только зачем?
Лучше бы факториал заставили вычислять

Втр 24 Дек 2013 16:43:56
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

function shit(n: longint): longint;
begin
Result := 0;

while n &t;> 0 do
begin
Result := Result + n mod 10;
n := n div 10;
end;

if Result div 10 &t;> 0 then
Result := shit(Result);
end;

var
n: longint;

begin
write('n=');
readln(n);
writeln(shit(n));
readln;
end.

Втр 24 Дек 2013 16:43:56
ОП, похоже, всем на тебя пофиг. Никто не может справиться с таким сложным заданием
Последний бамп и я ухожу.
C++-кун, который бампал в последнее время

Втр 24 Дек 2013 16:44:07
>>59491929
QString num2octStr(int a){
return QString::number(a, 8);
}

Втр 24 Дек 2013 16:45:31
>>59492252
Она не рекурсивная

Втр 24 Дек 2013 16:45:47
>>59492244
В вот это тебе, думаю, подойдет, ОП. Только поменяй название функции. И, думаю, то, что в фигурных скобках, тоже тебе не нужно.

Втр 24 Дек 2013 16:46:15
>>59492321
Тут ты прав.

Втр 24 Дек 2013 16:46:45
>>59492244
это же на первую?

Втр 24 Дек 2013 16:48:04
>>59492401
Да, да, на первую.

Втр 24 Дек 2013 16:48:34
Спасибо вам аноны, не знаю что бы делал. Но как мне быть со второй?

Втр 24 Дек 2013 16:51:07
>>59492499
>Но как мне быть со второй?
Млжешь препода нахуй послать за такой долбоебизм, либо пусть оъяснит, что ему надо
мимопрограммист

Втр 24 Дек 2013 16:53:11
>>59492627 а что насчет >>59491929
А то я совсем не понял, как в ответе будет выглядеть прога. Полный код есть?

Втр 24 Дек 2013 16:54:10
>>59492499
http://www.rsdn.ru/forum/other/2501243.flat

гугель кому писан?

Втр 24 Дек 2013 16:54:13
>>59492735
http://www.cyberforum.ru/turbo-pascal/thread513504.html

Втр 24 Дек 2013 16:55:35
>>59492784
И что будет с этой функцией, если y скажем 500000?

Втр 24 Дек 2013 16:59:11
>>59492854
аннигилирует

Втр 24 Дек 2013 17:03:02
>>59492789
спасибо большое

Втр 24 Дек 2013 17:38:14
>>59491224
Вообщем разобрался что к чему и первая задача стала выглядеть так:
function yoba(n:integer):integer;
begin
writeln(n);
if n&t;10 then toba:=n else yoba:=yoba((n mod 10)+(n div 10));
end;

Вторая так:
function Summa(a, b:integer):integer;
begin
if a=0 then Summa:=b else if a>0 then Summa:=Summa(a-1, b+1) else Summa:=Summa(a+1, b-1)
end;



Втр 24 Дек 2013 18:32:26
>>59494979
спасибо йоба-друг

Втр 24 Дек 2013 18:42:04
>>59491951
Не верю. Расскажи-ка мне о variadic templates, и в каком стандарте языка C++ они появились? Или каков размер виртуальной таблицы класса при ромбовидном множественном наследовании?


← К списку тредов