Форум программистов, компьютерный форум, киберфорум
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 и опубликован как пример грамотного программирования ООП игры.) Однако обнаружились...
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
25.09.2019, 10:52 0

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

25.09.2019, 10:52. Показов 2460. Ответов 3
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
Вложения
Тип файла: zip 111.zip (126.4 Кб, 4 просмотров)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.09.2019, 10:52
Готовые ответы и решения:

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

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

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

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

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

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

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

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

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

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