Lazarus

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

Войти

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

Другие темы раздела
Lazarus Найти в заданном трехзначном числе количество тысяч, десятков и единиц Составить алгоритм и программу для решения задачи: Дано трехзначное число. Найти в нем число тысяч, десятков и единиц. https://www.cyberforum.ru/ lazarus/ thread2503470.html	При выборе соответствующей кнопки менять вид отображения рамки панели: "выпуклая", "вдавленная", "отсутствует" Lazarus Составьте программу, которая при выборе соответствующей командной кнопки, ме- няет вид отображения рамки панели «выпуклая», «вдавленная», «отсутствует». Как это сделать в Лазарусе? Всем спасибо!
Lazarus Программирование линейного вычислительного процесса https://www.cyberforum.ru/ lazarus/ thread2502437.html Ребята, помогите пожалуйста!! Разработать программу вычисления значений заданных функций для произвольных значений исходных данных. Выполнить тестовый расчет и расчет для заданных значений исходных...	Lazarus Как программно закрыть showmessage https://www.cyberforum.ru/ lazarus/ thread2500761.html Пишу на лазарусе небольшое приложение, в котором нужно реализовать закрытие информационных сообщений/ошибок. Если пользователь ничего не нажимает слишком долго, то спустя 5 секунд окно само...
Линии в лазарусе Lazarus Нужен код для рисования линий на форме. Нужно следующее: зажимаешь кнопку мышки, тянешь, отпускаешь кнопку = получается линия. Надеюсь, кто-нибудь поймет)))	Lazarus Lazarus Линейные алгоритмы https://www.cyberforum.ru/ lazarus/ thread2500645.html Условие 1) оформить приложение, как показано на рисунке; (все значения пусть изначально будут как на рисунке) 2) предусмотреть программно проверку деления на нуль, в этом случае в качестве...
Lazarus Сломанный счетчик Почему то при выигрыше или поражении счетчик очень странно себя ведет. При первом проигрыше-выигрыше он тупит 1-2 секунды, а в последующих вообще начинает счёт с 0 , потом идет 3,2 и всё. https://www.cyberforum.ru/ lazarus/ thread2500338.html	Как используя цикл в лазарус сделать действия для переменных типа string? Lazarus представим что есть 10 переменных типа string и 1 массив (int) в массив я с помощью цикла записал 10 случайных чисел от 1 до 10 и мне нужно чтобы если arr = 1 то str1:='A'; arr = 2 то...
Lazarus Как запустить консольное приложение под Linux? ДД. Нужна помощь. В линукс если создаем приложение, формы после компиляции все отлично, видим результат. А если создаем простую программу? Как увидеть результат выполнения программы??? :-((( https://www.cyberforum.ru/ lazarus/ thread2499626.html	Lazarus Lazarus 2.0.2 падает при активации базы TDbf https://www.cyberforum.ru/ lazarus/ thread2499621.html Есть объект Dbf1: Tdbf, он ссылается на таблицу dbf, из которой подтягиваются заголовки столбцов (но почему-то не значения таблицы). При включении Active в свойствах Dbf появляется ошибка...
Как закрасить сектора круга между внутренним и внешним радиусами? Lazarus Имеем координаты центра круга X0, Y0, начальный и конечный угол сектора Alfa1, Alfa2, внутренний и внешний радиус r1 и R2. with Image1.Canvas do begin Brush.Color := clLime; // цвет...	Lazarus Найти ошибки в программе https://www.cyberforum.ru/ lazarus/ thread2498081.html Решил попробовать перекомпилировать игру на Lazarus, код которой предоставил Kropotkin (код был сделан для Delphi и опубликован как пример грамотного программирования ООП игры.) Однако обнаружились...

Puporev

Почетный модератор

64270 / 47569 / 32739

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

Сообщений: 115,182

25.09.2019, 10:52

Дано трехзначное число; найти в нем число тысяч, десятков и единиц - Lazarus - Ответ 13852015

25.09.2019, 10:52. Показов 2460. Ответов 3

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

Ответ

Pascal

procedure TForm1.Button1Click(Sender: TObject);
var n,s,d,e:integer;
begin
val(Edit1.text,n,e);//число нужно ввести до нажатия кнопки
if(e<>0)or(n<100)or(n>999) then
 begin
   ShowMessage('Введите целое число от 100 до 999');
   Edit1.Clear;
   Edit1.SetFocus;
   exit;
 end;
s:=n div 100;
d:=n div 10 mod 10;
e:=n mod 10;
Edit2.text:=inttostr(s);
Edit3.text:=inttostr(d);
Edit4.text:=inttostr(e);
end;

Вернуться к обсуждению:
Дано трехзначное число; найти в нем число тысяч, десятков и единиц Lazarus

Вложения

111.zip (126.4 Кб, 4 просмотров)

Programming

Эксперт

94731 / 64177 / 26122

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

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

25.09.2019, 10:52

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

Найти в заданном трехзначном числе количество тысяч, десятков и единиц
Составить алгоритм и программу для решения задачи: Дано трехзначное число. Найти в нем число...

Дано двухзначное число. Найти число десятков, число единиц в нем, произведение его цифр
Помогите плиз=)) Дано двухзначное число. Найти число десятков ,число едениц в нем, произвеление его...

Дано трехзначное число. Найти число десятков и единиц в том числе, сумму и произведение его цифрам
Дано трехзначное число.Знайты число десятков и единиц в том числе, сумму и произведение его цифрам

Дано двухзначное число. Найти число десятков и единиц в нем
Помогите, пожалуйста с решением такой задачи: "Дано двухзначное число. Найти число десятков и...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

25.09.2019, 10:52

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

Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц
1.Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц.

Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц
2. Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц...

Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц исходного числа (например, 123
Задание: Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц...

Дано трехзначное число определить количество сотен, десятков и единиц
Дано трехзначное число определить кол-во сотен,десятков и единиц.Помогите решить!

Наверх