Упорядочить последовательность по возрастанию и присвоить переменной t третью от конца цифру первого числа упорядоченной последовательности

@iluxych · Регистрация: 10.04.2010

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

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

Для Delphi 7, вывод нужен в виртуальную форму , не в консоль. помогите пожалуста.

@Ev1l · 20.09.2012, 21:34

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.Button2Click(Sender: TObject);
var i,k,j,t,min:integer;//добавил переменную t
buf:integer; // буфер для обмена
a:array[1..10] of integer;
st:string;
begin
randomize;
//введем массив
for i:=1 to 10 do a[i]:=random(9001)+999;//заполняем числами минимальное =1000 максимальное 9999
 
for i:=1 to 10 - 1 do // кол-во элементов минус один
 begin
//поищем минимальный элемент
  min:=i;
  for j:=i+1 to 10 do
   if a[j] < a[min] then min:=j;
//поменяем местами
  buf:=a[i];
  a[i]:=a[min];
  a[min]:=buf;
 end;
for k:=1 to 10 do
st:=st+' '+IntToStr(a[k]);
ShowMessage(st);//показываем что получилось
 
st:=inttostr(a[1]);
t:=strtoint('s[length(s)-2]');//3й символ первого элемента с конца
end;

Не по теме:

честно, долго не искал, реализация не лучшая, но свою работу выполняет

Добавлено через 11 минут
27 строка t:=strtoint(st[length(st)-2]); без апострофов

Новые блоги и статьи Все статьи Все блоги /
Как использовать OAuth2 со Spring Security в Java Javaican 14.05.2025 Протокол OAuth2 часто путают с механизмами аутентификации, хотя по сути это протокол авторизации. Представьте, что вместо передачи ключей от всего дома вашему другу, который пришёл полить цветы, вы. . .	Анализ текста на Python с NLTK и Spacy AI_Generated 14.05.2025 NLTK, старожил в мире обработки естественного языка на Python, содержит богатейшую коллекцию алгоритмов и готовых моделей. Эта библиотека отлично подходит для образовательных целей и. . .	Реализация DI в PHP Jason-Webb 13.05.2025 Когда я начинал писать свой первый крупный PHP-проект, моя архитектура напоминала запутаный клубок спагетти. Классы создавали другие классы внутри себя, зависимости жостко прописывались в коде, а о. . .	Обработка изображений в реальном времени на C# с OpenCV stackOverflow 13.05.2025 Объединение библиотеки компьютерного зрения OpenCV с современным языком программирования C# создаёт симбиоз, который открывает доступ к впечатляющему набору возможностей. Ключевое преимущество этого. . .	POCO, ACE, Loki и другие продвинутые C++ библиотеки NullReferenced 13.05.2025 В C++ разработки существует такое обилие библиотек, что порой кажется, будто ты заблудился в дремучем лесу. И среди этого многообразия POCO (Portable Components) – как маяк для тех, кто ищет. . .
Паттерны проектирования GoF на C# UnmanagedCoder 13.05.2025 Вы наверняка сталкивались с ситуациями, когда код разрастается до неприличных размеров, а его поддержка становится настоящим испытанием. Именно в такие моменты на помощь приходят паттерны Gang of. . .	Создаем CLI приложение на Python с Prompt Toolkit py-thonny 13.05.2025 Современные командные интерфейсы давно перестали быть черно-белыми текстовыми программами, которые многие помнят по старым операционным системам. CLI сегодня – это мощные, интуитивные и даже. . .	Конвейеры ETL с Apache Airflow и Python AI_Generated 13.05.2025 ETL-конвейеры – это набор процессов, отвечающих за извлечение данных из различных источников (Extract), их преобразование в нужный формат (Transform) и загрузку в целевое хранилище (Load). . . .	Выполнение асинхронных задач в Python с asyncio py-thonny 12.05.2025 Современный мир программирования похож на оживлённый мегаполис – тысячи процессов одновременно требуют внимания, ресурсов и времени. В этих джунглях операций возникают ситуации, когда программа. . .	Работа с gRPC сервисами на C# UnmanagedCoder 12.05.2025 gRPC (Google Remote Procedure Call) — открытый высокопроизводительный RPC-фреймворк, изначально разработанный компанией Google. Он отличается от традиционых REST-сервисов как минимум тем, что. . .

@iluxych 0 / 0 / 0 Регистрация: 10.04.2010 Сообщений: 22

	Упорядочить последовательность по возрастанию и присвоить переменной t третью от конца цифру первого числа упорядоченной последовательности 20.09.2012, 20:51. Показов 1314. Ответов 1 Метки нет (Все метки) 2. Дана последовательность целых чисел. Упорядочить их по возрастанию и присвоить целой переменной t третью от конца цифру 1-го числа упорядоченной последовательности. Вывести на экран дисплея результаты. Для Delphi 7, вывод нужен в виртуальную форму , не в консоль. помогите пожалуста. 0

Опции темы

Упорядочить последовательность по возрастанию и присвоить переменной t третью от конца цифру первого числа упорядоченной последовательности

Решение