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

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

Войти

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

Другие темы раздела
Delphi Коммивояжер, алгоритм Литтла HELP!!!!:cry: Акулы программирования нужна ваша помощь у меня есть готовый исходник проекта.Только вся соль в том что,мне нужно вводить значения в матрицу самой.А в проекте можно только рандомом.Помогите пжлс-та переделать!!:cry:Очень нужнооо https://www.cyberforum.ru/ delphi-beginners/ thread1291998.html	Составить программы Delphi 1)Написать программу, в которой будет реализована процедура вычисления кол-ва строк двумерного массива, в которых все элементы упорядочены по убыванию. 2)Составить программу содержащую процедуру вычисления значений выражений по заданным формулам(см. рисунок) 3)Составить программу, содержащую функцию для нахождения количества отрицательных элементов одномерного массива. ...
Delphi Найти количество элементов набора из N целых чисел, расположенных после последнего максимального элемента Дано целое число N и набор из N целых чисел. Найти количество элементов, расположенных после последнего максимального элемента. program Minmax17; var a,N,i,max,mx:integer; begin i:=1; Writeln('Введите число N'); readln(N); Writeln('Введите ',N,' целых чисел.'); https://www.cyberforum.ru/ delphi-beginners/ thread1291978.html	Delphi Добавить элемент в очередь https://www.cyberforum.ru/ delphi-beginners/ thread1291977.html Мне нужно реализовать добавление заданного элемента в очередь. На код не ругается , но элемент не добавляет, что не так подскажите пожалуйста. ВОТ КОД unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;
Delphi Найти сумму элементов каждой диагонали матрицы A порядка M, параллельной побочной Дана квадратная матрица A порядка M. Найти сумму элементов каждой ее диагонали, параллельной побочной (начиная с одно элементной диагонали A1,1). var j,i,l,M:integer; a: array of real; Sum:real; begin // Ввод данных writeln('Введите число M (M<=10)'); readln(M);	Delphi GLScene. Установка под Delphi Xe5 Всем привет! Я хочу установить на Delphi XE5 GLScene. При билде вылетает ошибка(вложена). Может кто помочь? Последняя версия офицально под XE4, но я каким то боком (давно) смог установить под XE5 три bpl файла. Вот файлы: GlCg_RunTimeXE5.bpl GLScene_DesignTimeXE5.bpl GLScene_RunTimeXE5.bpl Как мне установить все пакеты? https://www.cyberforum.ru/ delphi-beginners/ thread1291962.html
Delphi Работа со строками https://www.cyberforum.ru/ delphi-beginners/ thread1291885.html Дана последовательность, содержащая от 2 до 50 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними словами - не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют условию: длина слова максимальна	Поиск по массиву Delphi Здраствуйте. Єсть некая порблема...Єсть у нас з Екселя загруженая таблица данных .Как в ней сделать поиск, что б например при вводе в Edit1 и Edit2 чисел : 1,6 и 30 оно проводило поиск по ним в масиве и выводило с етих координат число , как на рисунке : 135,5. :cry:Помогите, а то очень нужно...
Delphi Преобразование часов в минуты или секунды https://www.cyberforum.ru/ delphi-beginners/ thread1291791.html Написать программу преобразования часов в минуты или секунды по выбору пользователя.	Delphi Чтение файла и копирование содержимого https://www.cyberforum.ru/ delphi-beginners/ thread1291693.html Проблема, такая качаю файл из интернета, и сразу начинаю парсить содержимое, нахожу строку через pos, и начинаю копировать функцией copy. беда в том, что когда функция находит null байт, она останавливается, и пропускает кусок файла. как побороть сие действо? да и вообще, при работе со строками, если встречается nul байт, перестает читаться дальше. Delphi7
Работа с txt файлом Delphi Всем привет,у меня такой вопрос: Можно или нет читать файл по несколько строк,а не весь сразу. Если да то каким образом.	Delphi Заполнение массива через процедуру Необходимо заполнить двумерный массив и вывести значения его ячеек, но на выводе получаю совершенно непонятные значения. program Project4; {$APPTYPE CONSOLE} uses SysUtils; https://www.cyberforum.ru/ delphi-beginners/ thread1291610.html

NIKOLAYY

843 / 738 / 342

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

Сообщений: 5,034

05.11.2014, 12:33

Дан символ "а" и позиции на экране (n,m). Вывести "а" в заданных позициях, если это возможно - Delphi - Ответ 6809896

05.11.2014, 12:33. Показов 1413. Ответов 5

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

Ответ

warrior71,
Дописал, текст будет прямо на рабочем столе, держи все в сборе:

Delphi

var
  shir, vis: Integer; //перменные для ширины, высоты
  n, m: Integer; //координаты точки
  Scr: TCanvas; //для экрана
begin
  //произвольные координаты точки
  n := 100;
  m := 300;
 
  //ширина и высота в переменные
  shir := Screen.Width;
  vis := Screen.Height;
 
  Label1.Caption := 'Ширина моего экрана = ' + IntToStr(shir);
  Label2.Caption := 'Высота моего экрана = ' + IntToStr(vis);
 
  if (n > shir) or (m > vis) then
  begin
    ShowMessage('Я немогу нарисовать там букву "а", мы вышли за пределы экрана');
  end
  else
  begin
    Scr := TCanvas.Create;
    Scr.Handle := GetDC(HWND_DESKTOP);
    Scr.Brush.Color := clBlue;
    Scr.Font.Color := clYellow;
    Scr.Font.Size := 72;
    Scr.TextOut(n, m, 'Текст на экране'); //нужный текст
    Scr.Free;
  end;
end;

Вернуться к обсуждению:
Дан символ "а" и позиции на экране (n,m). Вывести "а" в заданных позициях, если это возможно Delphi

Миниатюры

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

05.11.2014, 12:33

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

Вывести на экран позиции, на которых находится буква c, если такой символ был введён в матрицу
Дана матрица символов размерностью 8*10 (символы вводятся с клавиатуры). Вывести на экран позиции,...

Как это сделать , если это возможно, сам не уверен
Помогите, как это сделать Пример В таблице Excel я ввожу какую нибудь формулу (Sin(x), a не...

Вывести на печать элементы массива, стоящие на заданных позициях
Дан массив C = }, i=1,10; j=1,10 ]. Вывести на печать элементы, стоящие в позициях i >2 и j >4. ...

Пусть символ # определен как стирающий символ Backspace, т.е. если дана строка abc#d##c, то в действительности это ac
Пусть символ # определен как стирающий символ Backspace, т.е. если дана строка abc#d##c, то в...

Возможно ли это и если да как это сделать?
Имеется удаленный сервер с управлением через KVM и с операционной системой windows server 2012, ее...

	05.11.2014, 12:33

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

05.11.2014, 12:33

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

Дан символ. Вывести символ, который в кодовой таблице следует за этим символом
Дан символ. Вывести символ, который в кодовой таблице следует за этим символом.

Дан символ; вывести символ, который в кодовой таблице следует за этим символом
Задание 1) Дан символ. Вывести символ, который в кодовой таблице следует за этим символом

Сделать условие если символ позиции превышает длину строки
Здравствуйте, была дана задача со строками и никак не могу нормально задать условие если номер...

6 Задание. Дан символ. Вывести символ, который в кодовой таблице следует за этим символом
Дан символ. Вывести символ, который в кодовой таблице следует за этим символом. И БЛОК-СХЕМУ...

Дан массив C = ({C(i,j)}, i = 1, 10; j = 1, 10), вывести на печать элементы, стоящие в позициях i > 2 и j > 4
дан массив C = ({C(i,j)}, i = 1, 10; j = 1, 10) (элементы выбираются случайным образом):...

Наверх