Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Mariya1758
0 / 0 / 0
Регистрация: 05.05.2014
Сообщений: 72
1

Даны действительные числа а1, ..., а20. Извлечь а20, а11, а19, а10, ..., а10, а1

27.05.2014, 22:38. Просмотров 500. Ответов 8
Метки нет (Все метки)

дано действительные числа а1, ..., а20. Извлечь а20, а11, а19, а10, ..., а10, а1.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.05.2014, 22:38
Ответы с готовыми решениями:

Дано действительные числа а1.а10. Определить а1+а2^2+а10^10
Дано действительные числа а1...а10. Определить а1+а2^2+a10^10.

Даны целые числа а1, ... А20 .. Получить: min (a2, a5, ..) + max (a1, a4, ..)
Даны целые числа а1, ... А20 .. Получить: min (a2, a5, ..) + max (a1, a4, ..)....

Даны целые числа al, а2,…, а10. Вывести на печать только те числа, для которых выполняется a[i] < i
в оконом режиме Delphi

Даны действительные числа?????
Помогите решить..........!!!!

Даны действительные числа x, y Получить????
Помогите пожалусто решить задание....буду благодарна!!!

8
Puporev
Модератор
55095 / 42346 / 29247
Регистрация: 18.05.2008
Сообщений: 100,064
28.05.2014, 08:46 2
Цитата Сообщение от Mariya1758 Посмотреть сообщение
Извлечь а20, а11, а19, а10, ..., а10, а1.
Что-то непонятная последовательность, может ошиблись когда писали?
0
Modesty
22 / 22 / 17
Регистрация: 29.11.2013
Сообщений: 46
28.05.2014, 08:50 3
наверно а20, a11 а дальше с уменьшением на 1, а19, a10, a18, a9 и т.д.
0
Puporev
Модератор
55095 / 42346 / 29247
Регистрация: 18.05.2008
Сообщений: 100,064
28.05.2014, 08:54 4
Если просто извлечь, без изменения массива, то так
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.Button1Click(Sender: TObject);
const n=20;
var a:array[1..n] of real;
    i:integer;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:=5*random;
  Edit1.Text:=Edit1.Text+floattostrF(a[i],ffFixed,5,2)+'  ';
 end;
for i:=1 to n div 2 do
 begin
  Edit2.Text:=Edit2.Text+floattostrF(a[n-i+1],ffFixed,5,2)+'  ';
  Edit2.Text:=Edit2.Text+floattostrF(a[n div 2-i+1],ffFixed,5,2)+'  ';
 end;
end;
0
Mariya1758
0 / 0 / 0
Регистрация: 05.05.2014
Сообщений: 72
28.05.2014, 09:24  [ТС] 5
да нет ... все правильно
Даны действительные числа а1, ..., а20. Извлечь а20, а11, а19, а10, ..., а10, а1
0
Puporev
Модератор
55095 / 42346 / 29247
Регистрация: 18.05.2008
Сообщений: 100,064
28.05.2014, 09:54 6
Думаю в задании опечатка, такое часто бывает.

Добавлено через 16 минут
Тогда так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
var a:array[1..n] of real;
    i:integer;
begin
randomize;
for i:=1 to n do
 begin
  a[i]:=5*random;
  Edit1.Text:=Edit1.Text+floattostrF(a[i],ffFixed,5,2)+'  ';
 end;
for i:=1 to n div 2 do
 begin
  Edit2.Text:=Edit2.Text+floattostrF(a[n-i+1],ffFixed,5,2)+'  ';
  Edit2.Text:=Edit2.Text+floattostrF(a[n div 2-i+2],ffFixed,5,2)+'  ';
 end;
Edit2.Text:=Edit2.Text+floattostrF(a[n div 2],ffFixed,5,2)+
            '  '+floattostrF(a[1],ffFixed,5,2)
end;
Последовательность будет такая
20,11,19,10,18,9,17,8,16,7,15,6,14,5,13,4,13,3,11,2,10,1
номера 10,11 будут по 2 раза
0
Mariya1758
0 / 0 / 0
Регистрация: 05.05.2014
Сообщений: 72
28.05.2014, 11:08  [ТС] 7
не работает
0
Puporev
Модератор
55095 / 42346 / 29247
Регистрация: 18.05.2008
Сообщений: 100,064
28.05.2014, 11:11 8
У меня работает. Просто руки пришейте на место...
0
Вложения
Тип файла: rar массив_1.rar (163.6 Кб, 1 просмотров)
Mariya1758
0 / 0 / 0
Регистрация: 05.05.2014
Сообщений: 72
28.05.2014, 11:13  [ТС] 9
спасибо
0
28.05.2014, 11:13
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.05.2014, 11:13

Даны действительные числа s,t,a . Получить
Даны действительные числа s,t,a0,...a12. Получить p(1)-p(t)+p2(s-t)-p3(1), где...

Даны действительные положительные числа х, у, z.
Даны действительные положительные числа х, у, z. а) Выяснить, существует ли...

Даны действительные Числа, Матрица
Даны действительные Числа {a}_{1},...,{a}_{10}., {b}_{1},...,{b}_{20}....


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

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

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