Форум программистов, компьютерный форум, киберфорум
Наши страницы

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

Войти
Регистрация
Восстановить пароль
 
NSkaje
0 / 0 / 0
Регистрация: 22.03.2013
Сообщений: 22
#1

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

02.10.2013, 21:47. Просмотров 619. Ответов 7
Метки нет (Все метки)

Собственно вот задачка: Дана последовательность целых чисел. Упорядочить их по убыванию и присвоить целой переменной t вторую от конца цифру 1-го числа упорядоченной последовательности. Вывести на экран дисплея результаты.
При вводе чисел, выводятся почему то совсем другие числа, и вторую от конца цифре не показыват, помогите найти ошибку.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.10.2013, 21:47
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывод чисел (Delphi):

Вывод чисел в список - Delphi
Написать консольное приложение: Вывести с клавиатуры N вещественных чисел, записать их в список, вывести на экран элементы получившегося...

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

Вывод в массиве только ЧИСЕЛ - Delphi
Как исправить этот код что бы он выводил любые числа(т.е. числа больше 9, например 128). procedure TForm1.btn1Click(Sender: TObject); ...

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

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

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

7
droider
Universal
Эксперт Pascal/Delphi
4381 / 2429 / 518
Регистрация: 04.10.2012
Сообщений: 8,839
02.10.2013, 23:08 #2
NSkaje, для начала, где у Вас в коде заполняется массив? Ни рандомно, ни вручную я этого не вижу.
1
MrOnlineCoder
Всегда онлайн
399 / 355 / 61
Регистрация: 07.04.2013
Сообщений: 1,658
Завершенные тесты: 2
02.10.2013, 23:16 #3
NSkaje, вместо
Delphi
1
2
3
4
5
for k:=1 to 10 do
s:=s+' '+IntToStr(a[k]);
showmessage(s);
s:=IntToStr(a[i]);
Edit1.Text:=strtoint(s[length(s)-1]);
можно сделать:
Delphi
1
showmessage(inttostr(a[high(a)-1)]);
1
NSkaje
0 / 0 / 0
Регистрация: 22.03.2013
Сообщений: 22
05.10.2013, 22:10  [ТС] #4
Цитата Сообщение от MrOnlineCoder Посмотреть сообщение
NSkaje, вместо
Delphi
1
2
3
4
5
for k:=1 to 10 do
s:=s+' '+IntToStr(a[k]);
showmessage(s);
s:=IntToStr(a[i]);
Edit1.Text:=strtoint(s[length(s)-1]);
можно сделать:
Delphi
1
showmessage(inttostr(a[high(a)-1)]);
а что за high я же не задавал такую переменную, а по вводу, вот в этом вопрос и возник, мне надо что бы вводилось 10 чисел с клавиатуры в мемо , я думал вот эта часть кода отвечает за это Memo1.Lines.add(IntToStr (a[i]));, помогите в этом фрагменте пожалуйста
0
MrOnlineCoder
Всегда онлайн
399 / 355 / 61
Регистрация: 07.04.2013
Сообщений: 1,658
Завершенные тесты: 2
05.10.2013, 23:55 #5
NSkaje, high - функция, которая возвращает количество элементов в массиве.
Цитата Сообщение от NSkaje Посмотреть сообщение
а что за high я же не задавал такую переменную, а по вводу, вот в этом вопрос и возник, мне надо что бы вводилось 10 чисел с клавиатуры в мемо , я думал вот эта часть кода отвечает за это Memo1.Lines.add(IntToStr (a[i]));, помогите в этом фрагменте пожалуйста
Что именно?
0
FIL
Модератор
3409 / 2547 / 491
Регистрация: 19.09.2012
Сообщений: 7,907
06.10.2013, 00:50 #6
Цитата Сообщение от MrOnlineCoder Посмотреть сообщение
high - функция, которая возвращает количество элементов в массиве.
High для массивов возвращает самый большой индекс, а не количество элементов.
1
MrOnlineCoder
Всегда онлайн
399 / 355 / 61
Регистрация: 07.04.2013
Сообщений: 1,658
Завершенные тесты: 2
06.10.2013, 01:00 #7
FIL, ну да. Неправильно написал.
0
NSkaje
0 / 0 / 0
Регистрация: 22.03.2013
Сообщений: 22
06.10.2013, 22:28  [ТС] #8
Цитата Сообщение от MrOnlineCoder Посмотреть сообщение
FIL, ну да. Неправильно написал.
а как сделать что бы ввод работал? а то у меня проблемы с вводом, я ввожу 10 чисел, а он не расстанвливает их по порядку, а выдает совершенно другие числа(
0
06.10.2013, 22:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.10.2013, 22:28
Привет! Вот еще темы с ответами:

Лабораторная: Ввод-вывод чисел (целых, вещественных) - Delphi
Помогите плис решить задание по информатике. Вот задание: 1. Создайте новый проект и сохраните его в отдельной папке с названием «Лаб....

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

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

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


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Опции темы

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