Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
skrimmi
0 / 0 / 0
Регистрация: 03.03.2010
Сообщений: 8
#1

на формирование массива - Pascal

17.03.2010, 16:22. Просмотров 530. Ответов 1
Метки нет (Все метки)

Даны два целочисленных массива с положительными элементами: X1,X2,...,Xn и Y1,Y2,..Yn.Если все элементы массива X меньше всех элементов массива Y с соответствующими индексами,сформировать массив Z1,Z2,..Zn по правилу: (Zi!)/(Xi!(Yi-Xi)!)

ребят не могу решить ее,что то в ней меня смущает,но я так и не поняла что..помогите,если сможете, контрольная неделя..завтра сдать ее надо,буду вам очень благодарна..
http://www.cyberforum.ru/pascal/thread122121.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.03.2010, 16:22
Я подобрал для вас темы с готовыми решениями и ответами на вопрос на формирование массива (Pascal):

Формирование массива
Дан массив целых чисел, в котором могут встречаться повторяющиеся элементы....

Формирование массива
Дан массив целых чисел, в котором могут встречаться повторяющиеся элементы....

Формирование массива
Даны массивы X(8),Y(8),Z(10),W(15) элементы которых определяются за формулами (...

Формирование массива
Помогите составить программу: Сформировать элементы массива А(5*5) по формуле ...

Формирование массива по правилу
нужно 1) сформирования массива Х По закону : x=a; x=a+dx;...

1
*~<`PIK`>~*
ﻌﺹ ﺦ ﺖﻀ ﺹ ﻙ ﺵﻔ ﺊ ﺘﺝ
606 / 386 / 81
Регистрация: 15.12.2009
Сообщений: 753
17.03.2010, 17:13 #2
Лучший ответ Сообщение было отмечено skrimmi как решение

Решение

Цитата Сообщение от skrimmi Посмотреть сообщение
сформировать массив Z1,Z2,..Zn по правилу: (Zi!)/(Xi!(Yi-Xi)!)
или что-то в условии не то или я не пойму чего-то.
Цитата Сообщение от skrimmi Посмотреть сообщение
(Zi!)/(Xi!(Yi-Xi)!)
Zi=0 и по этому тут (Zi!)/(Xi!(Yi-Xi)!) получится 0.

Добавлено через 12 минут
Pascal
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
uses
  SysUtils;
  var i:integer;
      b:boolean;
      X:array[1..10] of integer;
      Y:array[1..10] of integer;
      Z:array[1..10] of integer;
begin
b:=True;
Randomize;
For i:=1 to 10 do
x[i]:=Random(10);//формирование массива X рендомными числами от 0 до 9
 
For i:=1 to 10 do
y[i]:=Random(30)+10;//формирование массива Y рендомными числами от 10 до 39
 
Write('MaccuB X=');//вывод массива X на экран
Writeln;
For i:=1 to 10 do
begin
Write(x[i]);
Write(' ');
end;
Writeln;
Writeln;
 
Write('MaccuB Y=');//вывод массива Y на экран
Writeln;
For i:=1 to 10 do
begin
Write(y[i]);
Write(' ');
end;
 
Writeln;
Writeln;
 
For i:=1 to 10 do
If x[i]>=y[i] then//проверка правда ли что все числа массива X больше 
begin                 //соответствующих чисел в массиве Y
b:=False;
Break;
end;
 
If b=True then//если правда то формируем массив Z
begin
For i:=1 to 10 do
z[i]:=x[i]*(y[i]-x[i]);//вот здесь формируется массив Z
end;
   If b=True then//если правда то выводим массив Z на экран
   begin
   Write('MaccuB Z=');
   Writeln;
   For i:=1 to 10 do
   begin
   Write(z[i]);
   Write(' ');
   end;
   end
   else//если неправда то пишем что это неправда
   begin
   Writeln;
   Write('HekoTopbIe 4ucJla MaccuBa X 6oJlbWe 4eM B MaccuBe Y.');
   Writeln;
   end;
   Readln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.03.2010, 17:13
Привет! Вот еще темы с решениями:

Формирование нового массива из старого
Из элементов массива С сформировать массив А той же размерности по правилу:...

Формирование векторов из двумерного массива
Сформировать, четыре вектора из двумерного массива.

Формирование одномерного массива из двумерного
Бьюсь над задачей, сам не могу допереть как это сделать, найти тоже не...

Формирование одномерного массива из двумемерного
Ввести матрицу В(N,M). Определить в каждой строке матрицы минимальный элемент...


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

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

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