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

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

Войти

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

Рейтинг 5.00/7:

ELEVEN1000

0 / 0 / 0

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

Сообщений: 10

Delphi 6-7

Перевод кода паскаль в делфи (новичок)

30.05.2018, 07:28. Показов 1269. Ответов 1

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

Author24 — интернет-сервис помощи студентам

Помогите перевести этот код в делфи. Желательно с кнопочками.

Pascal

var
i:integer;
Begin
    For i:=1000 to 9999 do
     if (i div 1000 + i mod 10)=(i div 100 mod 10 + i div 10 mod 10) then write(i:5);
End.

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

Лучшие ответы (1)

Сообщение: #12433916

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

30.05.2018, 07:28

Ответы с готовыми решениями:

Перевод из паскаль в делфи
Помогите перевести код на язые паскаль, на язык делфи uses crt; const n = 10; var max, min :...

Перевод из языка Паскаль на язык Делфи
Помогите перевести программу на языке паскаль, на язык делфи: var n, i, x: integer; A, B:...

Новичок в делфи
Ребят пожалуйста,кому не сложно,помогите с двумя задачами в Делфи. 1.Разработать приложение...

Из паскаль в делфи
uses crt; var a,r:real; begin clrscr; write('Введите сторону квадрата и радиус круга-> ');...

Joy

2386 / 1298 / 1492

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

Сообщений: 4,661

30.05.2018, 07:32

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

Решение

На Форме Memo1 и Button1 в обработчике нажатия кнопки:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  MEmo1.Clear;
  For i:=1000 to 9999 do
  if (i div 1000 + i mod 10)=(i div 100 mod 10 + i div 10 mod 10) then Memo1.Lines.Add(inttostr(i));
end;

	30.05.2018, 07:32

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

30.05.2018, 07:32

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

Паскаль>Делфи
uses crt; var s: string; i: integer; begin write('s='); readln(s); s:=upcase(s); for...

делфи и паскаль
у меня есть программа на паскале, как его использовать в делфи? Добавлено через 1 минуту var ...

сделать из паскаль в делфи
Program Hord; Var a,b,c,d,eps,answer: real; n: integer; f: text; Function...

Паскаль и делфи, задача не понятная(
Даны целочисленные координаты точки на плоскости. Если точка не лежит на координаты осях, то...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи
Что такое 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 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? 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++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .

Наверх