Создать второй массив из дробей первого массива , возведенных в n степень

01.11.2012, 19:08. Показов 525. Ответов 0

Метки нет (Все метки)

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

Помогите пожалуйста,
Суть задачи в следующем:
Дан массив из дробей.Создать второй массив из дробей первого массива , возведенных в n степень(модуль), при этом нужно сократить эти дроби(модуль),выяснить является ли массив убывающим(модуль);
Есть наработки (только работают некорректно)

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
unit po_modyl;
interface
type
frac=record
p:integer;
q:integer
end;
procedure step(var c:frac);
   procedure sokr(var a:frac);
   function nod(var a,b:integer):integer;
   implementation
   procedure step;
   var j,h,y,y1:integer;
   begin
   y:=c.p;
   y1:=c.q;
   for j:=1 to h-1 do begin
   c.p:=c.p*y;
   c.q:=c.q*y1
   end;
   end;
   procedure sokr;
   var n:integer  ;
   begin
   n:=nod(a.p,a.q);
   a.p:=a.p div n;
   a.q:=a.q div n;
   end;
   function nod;
   begin
   while a<>b do
   if a>b then a:=a-b
   else b:=B-a;
   nod:=a;
   end;
   begin
   end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program ff;
uses po_modyl;
var a:array[1..100] of frac;        b:array[1..100] of frac;
i,n:integer;
s:frac;
begin
randomize;
writeln('введите колличество дробей');
readln(n);
for i:=1 to n do begin
a[i].p:=random(10)+1;
 a[i].q:=random(10)+1;
 end;
 for i:=1 to n do write(a[i].p,'/',a[i].q);
 s.p:=0;
 s.q:=0;
 {for i:=1 to n do step(a[i],s,s);}
 writeln(s.p,'/',s.q);
 sokr(s);
  writeln(s.p,'/',s.q);
  end.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

01.11.2012, 19:08

Ответы с готовыми решениями:

Создать второй массив, состоящий из отрицательных элементов первого массива
2. Дан одномерный массив .создать второй массив, состоящий из отрицательных элементов первого массива .вывести на экран..

Вычислить сумму чисел от 1 до N, возведенных в степень M. Возведение в степень оформить как многократное умножение
Не знаю как это написать.. или объясните пожалуйста или помогите сделать)

Создать второй массив на основе первого, но с изменениями
Как на основе 1го массива создать 2й и отобразить их? (например в 2м квадрат чисел 1го)

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

01.11.2012, 19:08

Помогаю со студенческими работами здесь

Одномерный массив. Найти наименьшие среди элементов первого массива, которые не входят во второй массив.
Задано два массива. Найти наименьшие среди элементов первого массива, которые не входят во второй массив. Ни как не могу придумать:cry:, ...

Объединить два массива в один, записав второй массив после 2-го элемента первого массива.
А вот ещё. Я вообще не имею представления, как её решить: Заданы два одномерных массива различных размеров. Объединить их в один массив,...

Объединить два массива в один, включив второй массив между k-ым и (k+1)-ым элементами первого массива
Может кто решить ? вовсе не могу понять ... Дано два одномерных масива различной размерности. Обьединить их в один масив, включив второй...

Объединить два массива в один, включив второй массив между 4 и 5 элементами первого массива
Заданы два одномерных массива с числом элементов 6 и 7. Объединить их в один массив,включив второй массив между 4 и 5 элементами первого...

Заданы два одномерных массива.Объединить их в один массив, включив второй массив между K и (K+1) элементами первого
Последняя на сегодня... Заданы два одномерных массива: массив А размера M и массив В размера N. Объединить их в один массив, включив...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

Наверх