Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Lazarus Найдите ошибку в коде https://www.cyberforum.ru/ lazarus/ thread1827553.html
Почему выдает 0? var a:longint; function Chislo(c:longint):longint; var d:longint; begin d:=c; c:=d mod 10 mod 2; if c=0 then c:=c-1; end;
Программа тест, не выводит содержимое файла Lazarus
Имеется программа-тест, после нажатия кнопки "загрузить файл"(txt в котором хранятся вопросы и ответы) кнопка "следующий вопрос" становится активной, но самих вопросов не видно...
Lazarus Сделать маркер экрана на прозрачной канве https://www.cyberforum.ru/ lazarus/ thread1826679.html
Вопрос такой - есть множество экранных маркеров, но они платные, хотя казалось-бы за что платить. Есть мысль сделать прозрачную канву на весь экран, которая-бы включалась кнопкой и рисовать на ней...
Lazarus Подсчитать количество цифр в числе, не превосходящих заданной пользователем цифры Подсчитать количество цифр в числе не превосходящих заданной цифры, введённой с клавиатуры. https://www.cyberforum.ru/ lazarus/ thread1826630.html
Lazarus В чем разница между owner И parent у контролов?
В чем разница между owner И parent у контролов? Можно ли делать так: MyPanel := TPanel.Create(Form1); MyPanel.Parent ;= ScrollBox1
Lazarus Дописать к данной программе быстрое сохранение https://www.cyberforum.ru/ lazarus/ thread1825847.html
unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus, Grids, StdCtrls, ComCtrls;
Lazarus Бесконечная отладка. Программа перестает работать Пользуюсь Lazarus на Mac и не могу решить проблему с отладкой. Не выдает ошибок, но после компиляции процесс отладки не заканчивается. Что делать? https://www.cyberforum.ru/ lazarus/ thread1825828.html Lazarus Как копировать данные из защищенного от изменений поля DBGrid?
Есть две DBGrid, где защита от изменений стоит в виде Grid1) установленного свойства ReadOnly отдельных столбцов Grid2) установленного свойства ReadOnly всего запроса, из которого закачиваются...
Lazarus Как убрать пустую строку в DBGrid без записей? Если запрос, из которого берет данные DBGrid, не возвращает ни одной строки, то в DBGrid всё равно имеется пустая строка, при этом пользователю нельзя ничего добавлять в нее и вообще работать.... https://www.cyberforum.ru/ lazarus/ thread1825300.html Lazarus Как "войти" в ячейку новой строки DBGrid для редакции? https://www.cyberforum.ru/ lazarus/ thread1824679.html
В DBGrid я добавляю новую строчку и мне нужно, чтобы сразу после добавления пользователь мог начать вбивать данные в одну из колонок этой строчки. Поставить фокус на нужную колонку я могу командой...
Вычисление количества цифр в тексте текстового редактора на основе lazarus Lazarus
Имеется программа-текстовый редактор с возможностью создания открытия и сохранения текстовых файлов. Необходимо добавить процедуру для вычисления количества цифр в тексте текстового редактора. Вот...
Lazarus Вычисление площадей внешней и внутренней поверхности пустотелого шара Помогите пожалуйста составить программу вычисления площади поверхности (внешней и внутренней) пустотелого шара, где D1– внутренний диаметр, D2 – наружный диаметр. https://www.cyberforum.ru/ lazarus/ thread1824130.html
10 / 7 / 3
Регистрация: 14.07.2015
Сообщений: 284
17.10.2016, 18:42 0

Вывести на экран все числа, принадлежащие отрезку [m, n] и кратные 7 - Lazarus - Ответ 9656461

17.10.2016, 18:42. Показов 1486. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Sui как решение

Решение

На форму можно просто кинуть Memo1 что-то вроде консоли.
А с отрезком все просто просто пробегаемся по всем числам из отрезка и смотрим делится ли на 7.
Delphi
1
2
3
for i := m to n do
  if i mod 7 = 0 //если i деленое на 7 не оставляет остаток значит это число кратно семи
    then Memo1.Lines.Add(IntToStr(i)); // Add добавяет строку в мемо, а IntToStr переводит число в строку


Вернуться к обсуждению:
Вывести на экран все числа, принадлежащие отрезку [m, n] и кратные 7 Lazarus
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.10.2016, 18:42
Готовые ответы и решения:

Вывести на экран все простые числа , принадлежащие числовому отрезку от A до B
Вывести на экран все простые числа , принадлежащие числовому отрезку от A до B

Вывести на экран все элементы массива, принадлежащие отрезку [a,b]
Здравствуйте. Столкнулся вот с такой задачей: "Дан массив из n элементов. Числа а и b (а<b)....

Напечатайте на экране монитора числа, принадлежащие отрезку [1; 99] и кратные числу 3
Напечатайте на экране монитора числа, принадлежащие отрезку и кратные числу 3.

Перестроить массив, включив в него числа, принадлежащие отрезку [-30;-20] и все положительные
Помогите решить задачи в VB. 1. Из старого массива Z(12) составить новый B(N), включив в него...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.10.2016, 18:42

Вывести все четные элементы массива стоящие на четных местах, принадлежащие отрезку CD.
Дан целочисленный двумерный массив 5х5. Вывести все четные элементы массива стоящие на четных...

Вывести на экран все кратные числа заданным
Ребята помогите программу через процедуру записать Даны натуральные числа А и В. Вывести на экран...

Вывести на экран все целые числа от А до Б ,кратные С
Вывести на экран все целые числа от А до Б ,кратные С.Или подскажите как записать "кратные С"в...

Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.
Помогите вывести на экран из файла out1.txt числа кратные 20 а из второго все простые числа.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.