Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 19.04.2010
Сообщений: 6
1

Создать список действительных чисел и преобразовать его согласно условию

19.04.2010, 21:39. Показов 521. Ответов 4
Метки нет (Все метки)

Здраствуйте!)
Срочно нужна помощь в реализации такой задачи:

Разработать программу, которая создает список, элементами которого являются действительные числа. Превращает список по правилу: если числа упорядочены по неспаданнию (x(1)<=x(2)<=...<=x(n)), то список остается без изменения, иначе элементы в списке располагаются в обратном порядке (x(n), x(n-1),...,x(1)). Выводит модифицированный список.

Заранее благодарю!)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.04.2010, 21:39
Ответы с готовыми решениями:

Создать массив. Напечатать его в общепринятом виде. Упорядочить его согласно условию
Нужно помочь с тремя заданиями.(ниже) желательно сделать к ним и блок схемы. 2. Создать массив....

Создать двусвязный список согласно условию
Не могли бы вы мне помочь с двусвязными списками. Я тут немного написала, но это всего малая часть....

Создать список из случайных целых чисел, лежащих в диапазоне от –50 до +50 и преобразовать его в два списка
Требуется создать список из случайных целых чисел, лежащих в диапазоне от –50 до +50 и...

Проинициализировать массив целых чисел согласно условию и вывести его на консоль
С помощью цикла проициализировать массив целых чисел. Заполнить массив значениями 0, 10, 20, 30, 40...

__________________
4
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
607 / 387 / 81
Регистрация: 15.12.2009
Сообщений: 753
19.04.2010, 23:22 2
вот
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
29
30
31
32
33
34
35
36
var
  Form1: TForm1;
  s:string;
  i,j,t:integer;
  x:array[1..5] of integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
For i:=1 to Length(x) do
x[i]:=i;//забиваем массив от 1 до 5(по возрастанию)
 
x[3]:=6;//для проверки
 
For i:=1 to Length(x) do
  If i<>Length(x) then//если не последний номер то
    If x[i]>x[i+1] then//если один ел больше следующего(ел построены не по неспаданию) то
      begin
      For j:=1 to ((Length(x) div 2)+1) do
        begin
        t:=x[j];//темп = ел.
        x[j]:=x[Length(x)-j+1];//ел = ел с конца
        x[Length(x)-j+1]:=t;//ел с конца = темп
        end;
      Break;//выход с цикла
      end;
 
s:='';//очищаем переменную S
 
For i:=1 to Length(x) do
s:=s+IntToStr(x[i])+' ';//заносим массив в переменную S
 
ShowMessage(s);//выводим массив
end;
0
0 / 0 / 0
Регистрация: 19.04.2010
Сообщений: 6
19.04.2010, 23:26  [ТС] 3
разве это динамические данные? о_О
0
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
607 / 387 / 81
Регистрация: 15.12.2009
Сообщений: 753
19.04.2010, 23:49 4
Цитата Сообщение от vanya92 Посмотреть сообщение
разве это динамические данные?
ыыы сор непрочитал задание

Добавлено через 11 минут
динамические данные - динамический массив???
0
0 / 0 / 0
Регистрация: 19.04.2010
Сообщений: 6
19.04.2010, 23:57  [ТС] 5
ну список, типа массив)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.04.2010, 23:57

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Дан массив целых чисел, состоящий из 7 столбцов и 5 строк. Заполнить его согласно условию: A[i,j]=2(j-i)
Помогите пожалуйтса!!!

Создать функцию вывода суммы чисел кратных трём согласно условию
функция должна выводить сумму чисел которые крптны трем, в диапазоне от трех до 3K, при этом сумма...

Изменить два заданных действительных числа согласно условию
действительные числа x, y задаются пользователем. Если x и y отрицательные, то к каждому...

Преобразовать массив согласно условию
Задан массив. Преобразовать его элементы по правилу: из всех положительных элементов вычесть...


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

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

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