Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Pascal Заменить максимальный элемент каждой строки матрицы на противоположный https://www.cyberforum.ru/ pascal/ thread146805.html
Дан двумерный массив размерностью 5 х 6, заполненный случайным образом. - заменить максимальный элемент каждой строки на противоположный. - вставить после столбцов с максимальными элементами столбец из нулей. - удалить среднюю строку. - поменять местами предпоследний и последний столбцы. 		Файл. Записи. Pascal
2. Сформировать файл f1, содержащий протокол лыжных гонок: ФИО, время старта, время финиша. Используя эти данные, найти призёров соревнования, занявших 1-е, 2-е и 3-е места. помогите доработать код: program lab10_2; type protocol=record FIO:string; tstart:integer;
Pascal Кратность Дано 4 числа.Определить сумму тех из них которые кратны 3 Пожалуста помогите!!!!!!!!!!! Добавлено через 40 минут ну кто нибудь помогите!!! https://www.cyberforum.ru/ pascal/ thread146802.html Pascal инересный вопрос-программа на паскале Задание:Упорядочить по возрастанию элементы каждой строки атрицы размером nxm. вопрос: почему не выдает вообще ничего,сразу выходит обратно в текст программы,исправте плизз что не так? program pl; uses crt; const n=5;m=5; var a:array of integer; i,j,k,temp:integer; begin https://www.cyberforum.ru/ pascal/ thread146792.html
Pascal Массив поменять строку со столбцом
Добрый день, не простая задачка. Нужно найти минимальный и максимальный элемент массива(Ann и поменять соответствующие строку и столбец (минимальный-строка, максимальный-столбец). Заранее благодарен! Добавлено через 11 часов 47 минут Товарищи, ну выручите студента! :) Добавлено через 3 минуты вот нашел нахождение максимального элемента Program zadacha; Uses crt; 		Pascal Строка https://www.cyberforum.ru/ pascal/ thread146781.html
Дана строка.Определить,cколько в ней символов ''*'','' '' "," ,",":" я ее решел но что-то не правильно помогите!!! Program Lab_10; Uses CRT; Var S:String; i,k,n:Integer; begin CLRSCR; Writeln(' Введите строку ');
Pascal Текстовый файл Задание такое: Вывести на экран и в текстовый файл строки данного текстового файла, содержащие одинаковые слова. Если таких строк нет, предусмотрите в программе вывод соответствующего сообщения. В программе используйте подпрограммы. Я вот пробовала делать, но у меня что-то не полуается, может подскажите где ошибка?? Помогите сделать, очень нужно... program txtfil; uses crt; var s: String;... https://www.cyberforum.ru/ pascal/ thread146776.html вот такая шняга(( Pascal
Помогите пожалуйсто решить задачу в паскале,уже не знаю что делать(( после завтро здача а я не бум бум(( Вложил фотку с задачей....
Pascal Помогите отладить задачу с массивами https://www.cyberforum.ru/ pascal/ thread146767.html
условие:ввести квадратную матрицу А(п,п),постороить диагональную матрицу В(п,п) у которой элементы главной диагонали равны сумма элементов соответствующих строк,а остальные элементы равны нулям.Помогите пожалуйста доделать , а вернее исправить ошибку Program t5; uses crt; type mas = array of real; Var k,l : byte; a : mas; PROCEDURE Vvod (Var k:byte;Var l:byte;Var a:mas); Var i,j:byte; 		Pascal вычислить количество Помогите!!!!!!! Вычислить количество четных элементов Z(n) больше введенного числа С https://www.cyberforum.ru/ pascal/ thread146764.html
Pascal Шифрование/дешифрование текста циклическим шифром со сдвигом на 5 позиций
Доброго времени суток! Обращаюсь к вам с такой вот задачей,надеюсь на вашу помощь.Заранее Спасибо! Написать программу шифрования и дешифрования текста циклическим шифром со сдвигом на 5 позиций. Указание : В программе используйте только строчные латинские буквы и их числовые коды в таблице ASCII 		Pascal Работа со строковыми данными https://www.cyberforum.ru/ pascal/ thread146755.html
В каждом предложении теста распечатать все слова, расположенные внутри круглых скобок, и все остальные слова в порядке их записи. Распечатать исходный текст. народ кому не влом - напишите пожалуйста! Добавлено через 27 минут uses crt; var s:string; p1,p2:byte; begin clrscr;
13208 / 6596 / 1041
Регистрация: 10.01.2008
Сообщений: 15,069
17.06.2010, 18:35 0

Рекурсивная функция нахождения суммы цифр натурального числа - Pascal - Ответ 811233

17.06.2010, 18:35. Показов 4376. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено ягодка как решение

Решение

Сумма цифр числа из N цифр есть первая цифра + суммы всех остальных цифр (если еще остались)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

function DigitSum(N:string):Longint;
var L:Integer;
    R:Longint;
    c:Char;
begin
    L := Length(N);
    R := 0;
    if L>0 then begin
        c := N[1];
        if (c>='0') and (c<='9') then R := Ord(c)-Ord('0');
        if L>1 then R := R + DigitSum(Copy(N, 2, L-1));
    end;
    DigitSum := R;
end;
 
var s:string;
begin
    write('N=');
    readln(s);
    writeln('sum=', DigitSum(s));
    readln;
end.


Вернуться к обсуждению:
Рекурсивная функция нахождения суммы цифр натурального числа Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 17.06.2010, 18:35
Готовые ответы и решения:

Рекурсивная функция нахождения суммы цифр числа
Привет всем.с рекурсией у меня туго.помогите пожалуйста решить вот эти две задачи. ТОЛЬКО...

Функция для нахождения суммы цифр произвольного натурального числа
29. Вводятся 3 натуральных числа. Найти сумму цифр каждого из них (создать функцию для нахождения ...

Функцию для нахождения суммы цифр произвольного натурального числа
Вводятся 3 натуральных числа. Найти сумму цифр каждого из них (создать функцию для нахождения ...

Написать Процедуру нахождения суммы цифр любого натурального числа
1. Написать Процедуру нахождения суммы цифр любого натурального числа.

1
17.06.2010, 18:35
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 17.06.2010, 18:35
Помогаю со студенческими работами здесь

Описать рекурсивную функцию нахождения суммы цифр заданного натурального числа
Описать рекурсивную функцию нахождения суммы цифр заданного натурального числа N. На паскале....

Написать рекурсивную процедуру нахождения суммы цифр любого натурального числа.
Написать рекурсивную процедуру нахождения суммы цифр любого натурального числа.

Рекурсивная функция для нахождения суммы положительных чисел последовательности
&quot;Задана последовательность положительных вещественных чисел, за которой следует отрицательное...

Рекурсивная функция для нахождения числа сочетаний
Описать рекурсивную функцию Combin1(N,K) целого типа, находящую C(N,K) — число сочетаний из N...

Вычислить сумму цифр суммы цифр заданного натурального числа используя рекурсивный алгоритм
Вычислить сумму цифр суммы цифр заданного натурального числа используя рекурсивный алгоритм. ...

Быстрый алгоритм нахождения суммы делителей натурального числа
Собственно, тема является идейным продолжением реализации этого алгоритма на С++...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru