Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Матрица размером NxM https://www.cyberforum.ru/ delphi-beginners/ thread1530807.html Ребят, очень нужно :) : Задана матрица размером NxM. Получить массив B, присвоив его k-му элементу значение 1, если элементы k-й строки матрицы упорядочены по убыванию, и значение 0 в противном случае.	Delphi Задача на определение порядкового номера Условие: Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них. Если кому надо вот код этой задачи на Pascal: var k,min,mini,kl:integer; begin writeln('введите првое число последовательности'); readln(k); min:=k; mini:=1; kl:=1;
Delphi Организовать ввод с клавиатуры неограниченного количества вещественных чисел Организовать ввод с клавиатуры неограниченного количества вещественных чисел. Завершить ввод, если сумма введенных чисел станет больше 35,96. Вывести на экран все введенные числа, их количество и среднее арифметическое. Чем быстрее тем лучше. Заранее очень благодарен! https://www.cyberforum.ru/ delphi-beginners/ thread1530794.html	Delphi Перевод кода c++ на delphi https://www.cyberforum.ru/ delphi-beginners/ thread1530719.html Здравствуйте, есть очень простой код на c++. Он считает количество совпадений каждого символа в каждой строке. #include <iostream> using namespace std; int main() { setlocale(LC_ALL, "rus"); char stroka; cout<<"Введите строку:\n";
Заполнение StringGrid словами Delphi Как заполнить таблицу StringGrid рандомными словами ?	Delphi Замена букв с русского на латинский Дана строка символов содержащая некоторый текст на русском языке. Заменить буквы русского алфавита на соответствующие им буквы латинского алфавита. https://www.cyberforum.ru/ delphi-beginners/ thread1530656.html
Delphi Как можно прервать выполнение цикла? https://www.cyberforum.ru/ delphi-beginners/ thread1530623.html Подскажите пожалуйста, как можно прервать выполнение цикла. Ситуация такая: допустим на форме есть 2 кнопки. По нажатию одной кнопки переменной I присваивается значение тру и запускается выполнение цикла. При этом я выполняю этот цикл, пока I = true. (Т.е. Цикл в цикле). Хотелось бы этот цикл прерывать по нажатии второй кнопки. Беда в том, что не могу нажать вторую кнопку, пока выполняется цикл...	Delphi Stringgrid and popupmenu Добрый вечер! Имеется stringgrid и привязанный к нему PopupMenu. Задача в следующем: Как сделать так, чтобы определенный пункт контекстного меню добавлял определенный текст в выделенную ячейку. Т.е. Выбрал пункт "1" из popupmenu, текст "1" появился в выбранной ячейке stringgrid. Заранее спасибо
Delphi Что не так это ? begin if edit1.text:='1214' then begin; Form2.Show; end else showmessage('Не верный код активации программы!') end; Пишет какую-то ошибку!!! https://www.cyberforum.ru/ delphi-beginners/ thread1530590.html	Delphi Перевод между Системами счисления Входящие даные: Любое десятичное число(положительное); Основа системы счисления р (2..16). Исходящие даные: Основа системы счисления; Запись числа в 10 СС; Запись числа в СС с основой р. Может кто-то сталкивался,помогите,кому не трудно. З.Ы Поиском пользовался,но нужна именно такая программа. Заранее спасибо. https://www.cyberforum.ru/ delphi-beginners/ thread1530576.html
прошу подсказать Delphi Прошу помочь перевести код с delphi в С# а также ответить на несколько моих проблем очень прошу! 1. Как сделать чтобы 1 столбец в Stringgrid полностью уничтожался 2. Как сделать чтобы в Stringgrid в столбцах(кроме 1) красились ячейки где максимальное значение 3. Как сделать чтобы были десятичные числа в ячейках 4. Как реализовать загрузку и сохранение матрицы в Excel Если не можете то...	Delphi Развернуть форму У меня форма, ее размер 800 на 600 (изначально запускаю всегда в таком положении), на форме находятся панельки, упорядочено расположены. При развертывании формы на весь экран панельки остаются на своем месте. Как мне сделать чтобы вне зависимости от разрешения экрана, панельки ровненько, пропорционально распределялись по экрану? Как это прописывается? Спасибо! https://www.cyberforum.ru/ delphi-beginners/ thread1530328.html

VladWH

243 / 193 / 94

Регистрация: 01.05.2015

Сообщений: 732

14.09.2015, 22:38

Перевод чисел на римские цифры - Delphi - Ответ 8074046

14.09.2015, 22:38. Показов 2564. Ответов 1

Метки (Все метки)

Сообщение было отмечено Gusakou как решение

Решение

Gusakou, а поискать не пробовали?

Delphi

function IntToRoman(num: Cardinal): string; {returns num in capital roman digits}
const
  Nvals = 13;
  vals: array[1..Nvals] of word = (1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500,
    900, 1000);
  roms: array[1..Nvals] of string[2] = ('I', 'IV', 'V', 'IX', 'X', 'XL', 'L',
    'XC', 'C', 'CD', 'D', 'CM', 'M');
var
  b: 1..Nvals;
begin
  result := '';
  b := Nvals;
  while num > 0 do
  begin
    while vals[b] > num do
      dec(b);
    dec(num, vals[b]);
    result := result + roms[b]
  end;
end;

Добавлено через 2 минуты
P.S. использование

Delphi

1 2	// выведет число введенное в Edit1 в label1 римскими цифрами label1.Caption := IntToRoman( StrToInt( Edit1.Text ) );

Вернуться к обсуждению:
Перевод чисел на римские цифры Delphi

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

14.09.2015, 22:38

Готовые ответы и решения:

Римские цифры
1) Римские цифры: а) проверить,правильно ли запись числа римскими цифрами б) записать данное число...

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

Перевод числа в римские цифры
Только - только начали проходить assembler. Задали написать программу, но я не представляю как...

Перевод римские цифры в арабские и обратно
Помогите решить задачу на C++ перевод римские цифры в арабские и обратно. PLEASE.

	14.09.2015, 22:38

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

14.09.2015, 22:38

Помогаю со студенческими работами здесь

Перевод числа с арабских на римские цифры
Задача #2: Составить переводчик из арабской формы записи в римскую (и наоборот, но наоборот потом)....

Перевод арабских чисел в римские
Нужна программа в С для перевода арабских чисел в римские,желательно что-то попроще.

Перевод арабских чисел в римские
вообщем задание такое: написать код который из простых чисел преобразовал бы в римские, и потом...

Перевод арабских чисел в римские
Всем привет. Не получается решить задачу в С++ Кто может помогите если не сложно;. Для...

Наверх