Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Калькулятор бесконечная минусовка и tangens Привет всем проблема в том что в обычном калькуляторе если в вести например 5 - и = то будет 0 потом -5 -10 и т д так вот у меня доходит до 0 и всё помогите с кодом что бы минусовался как в windows калькуляторе. И ещё нужен на кнопку тангенс что бы считал. https://www.cyberforum.ru/ delphi-beginners/ thread1368986.html Delphi Работа с несколькими ComboBox
Здравствуйте. ситуация такая: есть около пяти комбобоксов, заполненных через Items примерно следующим образом: 1) Транспорт: авто, самолёт, корабль. 2) цена: 0-1000$, 1000-5000$, 5000$+. 3) цвет: зелёный, синий, красный, фиолетовый, жёлтый. ну и т.д.. как сделать так, чтобы при выборе в первом боксе варианта "авто" в "цене" оставались только варианты 0-1000$, 1000-5000$, а в "цвете" -...
Delphi Не могу комплировать IdMessage Использую Delphi 2010 Добавляю на вкладку IdMessage - компилятор начинает ругаться Massage.pas(9): F2063 Could not compile used unit 'IdMessage.pas' В чем проблема - пути вроде нормально прописаны файлы есть. https://www.cyberforum.ru/ delphi-beginners/ thread1368956.html Delphi Delphi 7 Stringgrid Нужно сделать цикл для заполнения Stringgrid данными из другого Stringgrid Нужно чтобы из Stringgrid1 данные переносились в Stringgrid2 Но ТОЛЬКО ПО УСЛОВИЮ Таблицы Stringgrid2 На рис всё показано. За работающий код или за хорошую помощь могу дать гифт в стиме Forced или Binding of isaac!!! procedure TForm1.Button16Click(Sender: TObject); var i,j,k,n:integer; begin for i:=0 to StringGrid2.RowCount-1 do for j:=0 to StringGrid2.ColCount-1 do for k:=0 to... https://www.cyberforum.ru/ delphi-beginners/ thread1368820.html
Delphi Dll совместимость
Простите, заголовок довольно странный. В теме "Основы DLL для начинающих" написано: "-Давать возможность другим программистам использовать вашу библиотеку на других языках". То есть, если у меня есть библиотека, написанная, скорее всего, на с++, то я могу использовать ее в программе на делфи и спокойно юзать прописанные в dll функции? Спасибо за внимание.
Delphi Найти сумму элементов в заштрихованной области Ребят, нужная помощь с кодом по задачке 9.14 (а). Есть какие-нибудь варианты?var A: array of real; s: real;Найти s - сумму элементов из заштрихованной области массива A. https://www.cyberforum.ru/ delphi-beginners/ thread1368798.html
Delphi Периодически не работает кнопка Добрый день! Друзья, столкнулся с такой проблемой: в exe файле, скомпилированном delphi после программирования периодически не работает кнопка вывода результата, хотя если запустить эту же программу в среде delphi все работает без нареканий. В чем может быть загвоздка? Добавлено через 1 час 58 минут Извините, вроде нашел ошибку. Надо было в начале процедуры присвоить переменной стартовое... https://www.cyberforum.ru/ delphi-beginners/ thread1368792.html Delphi Работа с WebBrowser
Доброе время суток, прошу помочь с решение следующей дилеммы. На форме имеется TWebBrowser, в который просто загружается страница. WebBrowser1.Navigate(Edit1.Text); with WebBrowser1 do if Document <> nil then with Application as IOleobject do DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle, GetClientRect); Далее из этой страницы удаляется значительное...
Delphi Ожидание завершения потоков Подскажите пж. как дождатся окончание выполнения потоков в unit-2 и потом продолжить в unit-3 чет не получается с условием так как в 22 строке. unit-1 procedure TForm1.Button12Click(Sender: TObject); var pot,hh:integer; begin TreeView3.Items.Clear; if (memo2.Text = '')then exit; pot:= StrToInt(Edit7.text); https://www.cyberforum.ru/ delphi-beginners/ thread1368768.html Delphi Как сделать дочернее окно всегда неактивным https://www.cyberforum.ru/ delphi-beginners/ thread1368719.html
Добрый день. В программе требуется встроенная виртуальная клавиатура, которая будет расположена на отдельной форме, вопрос в следующем- как сделать, чтобы форма с клавиатурой была всегда неактивна. Получилось сделать всегда неактивным только если приложение с одной формой. С двумя- никак
Где можно скачать Delphi Delphi
При написании приложений мой Delphi7 стал часто выдавать ошибки. Глючат некоторые модули, в частности xpman. Нужен файл без установки из интернета.
Delphi При выборе даты в MonthCalendar, нужно отображать все в разные edit https://www.cyberforum.ru/ delphi-beginners/ thread1368649.html
При выборе даты в MonthCalendar, нужно отображать все в разные edit. Например: В edit1: 2015 В edit2: 02 В edit3: 05
2511 / 1132 / 582
Регистрация: 07.06.2014
Сообщений: 3,286
07.02.2015, 10:21 0

С признака делимости на 11 проверьте, кратно ли данное натуральное число 11.Напишите рекурсивную функ - Delphi - Ответ 7197226

07.02.2015, 10:21. Показов 1809. Ответов 8
Метки (Все метки)

Ответ

Nika1997, проверяй:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
program Project15RecurvieCratnost;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
function crat(n:integer; Indx, SumShet, SumNechet : integer):boolean;
begin
 if n=0 then
   crat := (SumShet = SumNechet) or (abs(SumShet - SumNechet)=11)
 else
  if odd(Indx)
     then crat := crat(n div 10, Indx+1, SumShet, SumNechet + (n mod 10))
     else crat := crat(n div 10, Indx+1, SumShet + (n mod 10), SumNechet )
end;
 
var
 n:integer;
begin
  repeat
    writeln ('Vvedite naturalnoe chislo: ');
    readln(n);
  until n>=1;
  if crat(n,1,0,0) then
     writeln('Chislo ',n,' kratno 11')
  else
     writeln('Chislo ',n,' ne kratno 11');
  readln
end.


Вернуться к обсуждению:
С признака делимости на 11 проверьте, кратно ли данное натуральное число 11.Напишите рекурсивную функ Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.02.2015, 10:21
Готовые ответы и решения:

С признака делимости на 11 проверьте, кратно ли данное натуральное число 11. Напишите рекурсивную функцию
С признака делимости на 11 проверьте, кратно ли данное натуральное число 11. Напишите рекурсивную...

Рекурсия: с использованием признака делимости на 9, проверьте, кратно ли данное натуральное число 9
С помощью признака делимости на 9, проверьте кратно ли данное натуральное число 9. Напишите...

Рекурсия: с помощью признака делимости на 3 проверить, кратно ли данное натуральное число 3
Доброго времени суток! Извините, что отвлекаю. 2 таких задачки попались на рекурсии. 1)С помощью...

Рекурсия: с помощью признака делимости на 11, проверьте кратно ли заданное натуральное число 11
с помощью признака делимости на 11, проверьте кратно ли заданное натуральное число 11. напишите...

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

Дано натуральное число P. Проверьте, кратно ли число P девяти, используя признак делимости на 9
Дано натуральное число P. Проверьте, кратно ли число P девяти, используя признак делимости на 9.

Дано натуральное число P. Проверьте, кратно ли P трем, используя признак делимости на 3
Дано натуральное число P. Проверьте, кратно ли P трем, ис-пользуя признак делимости на 3. В...

Логическое выражение. Данное натуральное число N кратно K, но не кратно L
1. Составить логическое выражение, значение которого равно True, если высказывание истинно, и...

Дано натуральное число n, проверить, кратно ли оно 11 используя признак делимости на 11
Помогите задачу решить: Дано натуральное число n, проверить, кратно ли оно 11 используя признак...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru