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

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

Войти

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

Другие темы раздела
Delphi Переделать программу с использованием Stringrid помогите переделать в Stringrid. чтоб матрица отображалась в stringrid unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type https://www.cyberforum.ru/ delphi-beginners/ thread967538.html	Delphi Отличие классов TButton от TBitBtn и TSpeedButtton Чем отличаются Button от bitBtn и speedbuttton
Delphi Constant exspression expected https://www.cyberforum.ru/ delphi-beginners/ thread967495.html unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, math, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm)	Delphi Обнуление массива https://www.cyberforum.ru/ delphi-beginners/ thread967435.html Как обнулить массив типа integer?
Delphi Список: При обходе списка в обратном порядке программа зависает Добрый вечер, Задача состоит в том чтобы написать программу создания списка, я написал но почему-то чтение его в обратном порядке вызывает зависание, а в прямом все нормально я так понимаю что теряется обратный указатель, но где ? вот код var ins,t,t1:TPList; label 1; begin new(ins); ins^.ID:=Form1.Sort(s,IntToStr(g),IntToStr(c)); ins^.Marka:=s; ins^.God:=g; ins^.Cena:=c;	Delphi Нахождение max(min(a,b), min(c,d)) https://www.cyberforum.ru/ delphi-beginners/ thread967343.html Здравствуйте! Буду очень благодарна, если кто поможет. Нужно написать программу на языке дельфи нахождения max(min(a,b), min(c,d))
Delphi Оптимизация https://www.cyberforum.ru/ delphi-beginners/ thread967331.html Вот в делфи собрал програмку для выведения 4 случайных чисел в столлбик! Код кнопки procedure TForm1.Button1Click(Sender: TObject); var a:array of integer; i:byte; begin for i:=1 to 4 do a:=random(30000);	Delphi нужно разобраться с кодом увидел вот такую штуку type TMy = procedure (Name : String; id, col: Integer); вот ее вызов procedure ... (a : Tmy; ...) ..... a(aName, aId, aCol); так вот вопрос - что же делает эта процедура?? в другом модуле нашел:
Delphi Перевод приложения с х32 на х64 Всем добрый вечер! Помогите, пожалуйста, с переводом приложения на 64-битную версию! В настройках программы указываю 64 бита и при компиляции начинают вылетать ошибки, что не хватает многих файлов .dcu . В том числе DBTables (он вроде как стандартный, так чего его программа не может найти?). Ошибка F1026. File not found: 'DBTables.dcu' Добавлено через 20 минут Решил проблему: убрал вообще... https://www.cyberforum.ru/ delphi-beginners/ thread967308.html	Delphi Замена в тексте (по разделам) https://www.cyberforum.ru/ delphi-beginners/ thread967305.html Доброго времени суток! Есть небольшая задача, с которой, пока что я сам не могу справится. Есть текст вида: какой-то текст какой-то текст какой-то текст и так далее..
Закрасить stringgrid в шахматную доску Delphi Помогите с задачей: нужно закрасить stringgrid(8 на 8) чтобы она выглядела как шахматная доска.	Delphi Номера строк из memo в компоненте HeaderControl https://www.cyberforum.ru/ delphi-beginners/ thread967215.html Привет всем: помогите пожалуйста как добавить номера строк построчно из memo1 в компоненте HeaderControl ??? или в самом memo Заранее спасибо!!!

NSkaje

0 / 0 / 1

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

Сообщений: 22

Вывод чисел - Delphi - Ответ 5129692

02.10.2013, 21:47. Показов 4057. Ответов 7

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

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

Собственно вот задачка: Дана последовательность целых чисел. Упорядочить их по убыванию и присвоить целой переменной t вторую от конца цифру 1-го числа упорядоченной последовательности. Вывести на экран дисплея результаты.
При вводе чисел, выводятся почему то совсем другие числа, и вторую от конца цифре не показыват, помогите найти ошибку.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 
var i,k,j,t,max:integer;
buf:integer;
a:array[1..10] of integer;
s:string;
 
begin
Memo1.Lines.Clear;
for i:=1 to 10 do
Memo1.Lines.add(IntToStr (a[i]));
begin
max:=i;
for j:=i+1 to 10 do
if a[j]>a[max] then max:=j;
buf:=a[i];
a[i]:=a[max];
a[max]:=buf;
end;
 
for k:=1 to 10 do
s:=s+' '+IntToStr(a[k]);
showmessage(s);
s:=IntToStr(a[i]);
Edit1.Text:=strtoint(s[length(s)-1]);
end;
 
end.

Вернуться к обсуждению:
Вывод чисел Delphi

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

02.10.2013, 21:47

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

Вывод чисел в список
Написать консольное приложение: Вывести с клавиатуры N вещественных чисел, записать их в список,...

Вывод чисел в список
Вывести с клавиатуры N вещественных чисел, записать их в список, вывести на экран элементы...

Вывод чисел в Memo
Не могу корректно вывести числа из файла в Memo. Вместо чисел выводятся цифры столбиком. ...

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

	02.10.2013, 21:47

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

02.10.2013, 21:47

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

Вывод чисел с запятой
AddObject('один', TObject(1+(1 div 10))); AddObject('два', TObject(2)); ...

чтение и вывод чётных чисел
нужна ваша помощь, ребята разработал процедуру для чтения чётных чисел из внешнего файла и...

Вывод чисел в нужном порядке
Собственно вот задачка: Дана последовательность целых чисел. Упорядочить их по убыванию и присвоить...

Вывод чисел с постоянным умножением на 2
у меня есть число 1 нужно сделать так чтобы выполнялось умножение на 2 и выводилось число в форме,...

Вывод в массиве только ЧИСЕЛ
Как исправить этот код что бы он выводил любые числа(т.е. числа больше 9, например 128). ...

Вывод чисел в компонент StringGrid
Подскажите чайнику. Беру значения чисел из StringGrid1 и по определенной формуле считаю,...

Наверх