С Новым годом! Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Как осуществить перемещение изображения по форме? Есть форма,что то вроде теста. Принцип работы прост. Например слово жидкость перетаскиваем на серое поле,где происходит проверка true or else,при else будет отображено сообщение об ошибке. Так вот как и какими компонентами можно осуществить само перемещение этих полей? Опыта в дэлфи мало и с таким первый раз сталкиваюсь,были идеи через кнопки сделать,но как в запущенной программе осуществить... https://www.cyberforum.ru/ delphi-beginners/ thread2038166.html Задача с треугольником Delphi
Задача звучит так- треугольник задан координатами вершин, найти медианы. Координаты вершин вводятся с клавиатуры, и чтобы найти длины нужно использовать соответствующие формулы , но видимо я что то недопонимаю и после ввода координат ничего не происходит, помогите в чем ошибка как ее исправить. program Project1; {$APPTYPE CONSOLE} {$R *.res} uses
Delphi Нужно чтобы считало общее кол-во цифр и знаков(+,-,*). Цифры сделал https://www.cyberforum.ru/ delphi-beginners/ thread2038159.html
Часть уже написал- подсчёт цифр, надо сделать ещё знаки(строка s вводится с клавы) unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)
Delphi В строке произвольной длины найти символ "а" и удалить за ним 5 символов https://www.cyberforum.ru/ delphi-beginners/ thread2038115.html
Знаю только то , что надо делать через массив(по-другому, вроде никак).
Вставка изображения png Delphi
Инструмент Image1 вставляешь картинку в формате пнг без фона, но когда запускаешь программу появляется белый фон, как быть ? У меня стоит черный фон у программы (альфаскины)
Delphi Процедуры и функции Создал 2 формочки , 2-ая с помощью функции описывает факториал числа , в чём проблема , не робит.unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TForm1 = class(TForm) https://www.cyberforum.ru/ delphi-beginners/ thread2038020.html
Delphi Расчет CRC16 для Modbus https://www.cyberforum.ru/ delphi-beginners/ thread2038011.html
Здравствуйте. Пишу расчет CRC16 для Modbus по описанию: http://piclist.ru/S-CRC16-RUS/CRC16.html 1. В регистр CRC заносится начальное значение FFFFh. 2. В конец сообщения добавляется 16 нулевых битов. 3. Содержимое регистра сдвигается влево на 1 бит, и в последнюю (нулевую) позицию заносится очередной, ещё не обработанный бит данных. 4. Если из регистра был выдвинут бит со значением "1", то...
Delphi. Дан Массив А (18). Вычислить среднее арифметическое значение элементов массива А, условие 0<=A(i)<=100 Delphi
Помогите пожалуйста написать программу..
Delphi Delphi. Определить максимальное число в 3-й строке двумерного массива. Указать его индексы Помогите пожалуйста с программой на Delphi.. https://www.cyberforum.ru/ delphi-beginners/ thread2037980.html Delphi Tedit как сделать что бы поле не редактировалось Уважаемые форумчане, как сделать что бы поле Tedit не редактировалось, то есть после запуска программы у меня в нем пишутся числа, но можно просто навести мышкой на поле нажать, и изменить эти числа, как сделать что бы такое не допускалось ? https://www.cyberforum.ru/ delphi-beginners/ thread2037910.html
Delphi Пытаюсь сделать динамическую загрузку dll. Dll-библиотека не подает признаков жизни
Здравствуйте. У меня такое дело, я пытаюсь создать в своей программе динамическую загрузку dll-библиотеки: type TApple = procedure; TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public
Delphi Необходимо использовать только целочисленные результаты Здравствуйте, имеется вот такой код для решения задачи (формула выведена). Проблема в том, что мне необходимо, чтобы количество монахов было только целочисленным, и для этого я попробовал использовать условие окончание цикла until A+B+C=M and frac(B)=0 and frac(C)=0 Но компилятор пишет об ошибке несовместимости типов. Если использовать условие until A+B+C=M То программа работает, но... https://www.cyberforum.ru/ delphi-beginners/ thread2037890.html
Модератор
9646 / 6253 / 2426
Регистрация: 21.01.2014
Сообщений: 26,674
Записей в блоге: 3
11.09.2017, 08:38 0

Определить время окончания рабочего дня зная время начала и продолжительность - Delphi - Ответ 10744072

11.09.2017, 08:38. Показов 1687. Ответов 5
Метки (Все метки)

Ответ

Хотя можете не перепечатывать и попыток не показывать... Из Вашего задания понятно, что надо Вам не более, чем это...
Delphi
1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var h, m: integer;
begin
 h := StrToInt(Edit1.Text) + StrToInt(Edit3.Text);
 m := StrToInt(Edit2.Text) + StrToInt(Edit4.Text);
 Edit5.Text := IntToStr(h + m div 60);
 Edit6.Text := IntToStr(m mod 60);
end;


Вернуться к обсуждению:
Определить время окончания рабочего дня зная время начала и продолжительность Delphi
Миниатюры
Определить время окончания рабочего дня зная время начала и продолжительность  
0
Заказать работу у эксперта
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
11.09.2017, 08:38
Готовые ответы и решения:

Оставшееся время до окончания выполнения операции
всем привет искал по этому вопросу - ничего не нашел интересует: как рассчитать оставшееся время...

Определить перменную расписания,содержащую:день недели,количество пар в этот день,время начала и конца пары,название предмета,фамилию преподавателя
Определить перменную расписания,содержащую: -день недели -количество пар в этот день ...

Заменить в англоязычном тексте окончания слов "ing 'на' ed ', сжав в то же время текст
Заменить в англоязычном тексте окончания слов &quot;ing 'на' ed ', сжав в то же время текст.

Показывать не только дату окончания/начала но и время
Добрый день Подскажите пожалуйста как сделать так, чтобы в данных ячейках показывалось не только...

5
11.09.2017, 08:38
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
11.09.2017, 08:38
Помогаю со студенческими работами здесь

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

Время в миллисекундах с начала дня
Подскажите, как получить время в миллисекундах с 00.00

Вычислить длительность процесса, зная время начала и конца
Добрый вечер, шарящие люди) Столкнулся с тем что приходится в домашних условиях учиться...

Получить время в секундах с начала дня в виде числа типа Int32
TimeSpan current_time = DateTime.Now.TimeOfDay; Добавлено через 57 минут Хочу получить время...

0
Новые блоги и статьи
Администрирован­­­ие Git, продвинутые техники работы с Git
InfoMaster 11.01.2025
Основы управления репозиторием Эффективное управление Git-репозиторием требует глубокого понимания механизмов контроля доступа и инструментов администрирования. Рассмотрим ключевые аспекты. . .
Что такое HCL Notes и как с ним работать
InfoMaster 10.01.2025
HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .
Как работать с Git из Windows и Visual Studio
InfoMaster 10.01.2025
Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .
Аналог оператора switch case в Python
InfoMaster 10.01.2025
Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .
Отличия абстрактного класса от интерфейса
InfoMaster 10.01.2025
В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .
Как работать в Git
InfoMaster 10.01.2025
Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .
Реализация передвижения персонажа в Unity3d на C#
InfoMaster 10.01.2025
Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .
Docker: руководство для начинающих
InfoMaster 10.01.2025
В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
Что такое NullReferenceEx­­­ception и как исправить?
InfoMaster 08.01.2025
NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .
Что такое Null Pointer Exception (NPE) и как это исправить?
InfoMaster 08.01.2025
Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .
Русский язык в консоли C++
InfoMaster 08.01.2025
При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru