Форум программистов, компьютерный форум CyberForum.ru

Составить алгоритм и программу для замены в заданном массиве - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ PROTECTED http://www.cyberforum.ru/cpp-beginners/thread29267.html
есть два класса: class Base{ private: int age; }; class Derived: public Base{ .......
C++ Задан массив чисел Задан массив чисел Q(M). Упорядочить его последние L элементов по ненарастаниям (по неспадениям) (1<L<M). http://www.cyberforum.ru/cpp-beginners/thread29239.html
C++ Упорядочить заданный числовой массив
Упорядочить заданный числовой массив X(M) в порядке спадания значений его элементов.
Таблица перекрестных ссылок C++
На пальцах в двух словах объянсите пожалуйста, что означает слова составить таблицу перекрестных ссылок :( в краце, дял представления для чего это все нужно, надо состваить массив заданный структурой и дерево к одному из полей массива построить (или посадить:D)
C++ Степень и корень... http://www.cyberforum.ru/cpp-beginners/thread29231.html
Помогите написать программу, вычисляющую длинный корень и длинную степень.... лучше будет на C... Добавлено через 12 часов 59 минут 6 секунд Ну кто нибудь помогите мне...
C++ Масив(вычисление повторений в масиве) Написать програму на я зыке С, которая считывает с файла масив А с 10 чисел и число Х. С помощью функции вычислить сколько раз число Х записано в масив А. Я незнаю как написать эту функцию вычисления( буду рад помощи. подробнее

Показать сообщение отдельно
aNdRyXa
14 / 14 / 0
Регистрация: 28.03.2009
Сообщений: 46
11.04.2009, 01:20
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
program P; 
var IshMas, NulID, PolMas, OtrMas:array [1..N] of integer;   
i, PolCount, OtrCount: integer;   
SredKvad, SredGeom: real; 
begin   
PolCount := 0;   
OtrCount := 0;   
for i := 1 to N do     
  if IshMas[i] > 0 then     
    begin       
     PolCount := PolCount + 1;       
     PolMas[PolCount] := IshMas[i];     
   end;     
  if IshMas[i] < 0 then     
    begin       
      OtrCount := OtrCount + 1;       
      OtrMas[OtrCount] := IshMas[i];     
    end;   
   SredKvad := 0;   
   SredGeom := 0;   
   if OtrCount > 0 then   
     begin     
        for i := 1 to OtrCount do       
           SredKvad := SredKvad + OtrMas[i]*OtrMas[i];     
           SredKvad := SredKvad/OtrCount;     
           SredKvad := sqrt(SredKvad);   
     end;   
     if PolCount > 0 then   
        begin     
           for i := 1 to PolCount do       
             SredGeom := SredGeom * PolMas[i]; 
            {    SredKvad := SredKvad/OtrCount;     
            SredKvad := sqrt(SredKvad);}   
        end;   
     for i := 1 to N do     
        if IshMas[i] = 0 then       
          if i mod 2 = 0 then 
            IshMas[i] := SredGeom       
          else IshMas[i] := SredKvad; 
  end;
обрати внимание на объявление массива: вместо N ты должен поставить размер своего массива, если оно известно, или просто большое число, если N вводится в программе; а также на то, что исходный масств состоит из уелых чисел

осталось добавить нахождение корня n-ой степени (где комменты). надеюся скоро будет
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//n-ая степень числа a 
function Stepen(a: real; n: integer): real; 
var j: integer; 
begin   
  Result := 1;   
  for i := 1 to n do     
    Result := Result * a; 
end;   
//корень n-ой степени числа a 
function Koren(a: real; n: integer): real; 
var j: integer;     x_1, x_2: real; 
begin   
x_1 := 0;   
x_2 := a/2;   
repeat     
  x_1 := x_2;     
  x_2 := ((n - 1)*x_1 + a/Stepen(x_1, n-1))/n   
until abs(x_1 - x_2) < 0.001 
end;
//в том месте где раньше были коменты напиши:
SredGeom := Koren(SredGeom, PolCount);
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru