8 / 0 / 0
Регистрация: 15.12.2010
Сообщений: 36
1

Каждый элемент массива, больший 10, заменить на его квадратный корень

16.12.2010, 19:44. Показов 4814. Ответов 16
Метки нет (Все метки)

Дан массив вещественных чисел.Каждый элемент,больший 10,заменить на его квадратный корень.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.12.2010, 19:44
Ответы с готовыми решениями:

Каждый элемент массива, больший 10, заменить на его квадратный корень
Дан массив вещественных чисел. Каждый элемент,больший 10,заменить на его квадратный корень.

Каждый элемент, больший 10, заменить на его квадратный корень
дан массив вещественных чисел.Каждый элемент, больший 10, заменить на его квадратный корень.

Заменить каждый элемент массива на квадратный корень данного элемента
Заменить каждый элемент массива на корень квадратный данного элемента. (если можно, укажите весь...

Каждый элемент массива, больший 10, заменить на его квадратный корень
Дан массив вещественных чисел.Каждый элемент,больший 10,заменить на его квадратный корень.

16
Фрилансер
Эксперт С++
5843 / 1224 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
16.12.2010, 19:57 2
Pascal
1
2
3
for i:=1 to n do
if arr[i]>10 then
arr[i]:=sqr(arr[i]);
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
16.12.2010, 19:58 3
Dekio
sgr-это квадрат
0
0 / 0 / 0
Регистрация: 15.12.2010
Сообщений: 16
16.12.2010, 19:59 4
Дадада вышесказаное будет работать. ТОлько объявить масив переменные и сделать вывод.
0
Фрилансер
Эксперт С++
5843 / 1224 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
16.12.2010, 20:00 5
я имел ввиду sqrt, вероятно "t" плохо нажалось
0
0 / 0 / 0
Регистрация: 15.12.2010
Сообщений: 16
16.12.2010, 20:00 6
sqr это действительно квадрат.
sqrt это корень.
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
16.12.2010, 20:01 7
ага -4 бух Error
0
Фрилансер
Эксперт С++
5843 / 1224 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
16.12.2010, 20:03 8
Цитата Сообщение от SuPeR XaKer Посмотреть сообщение
ага -4 бух Error
магия оО
ЗЫ. парный корень с отрицательного числа ты никогда не добудешь.
легче на 0 поделить
0
0 / 0 / 0
Регистрация: 15.12.2010
Сообщений: 16
16.12.2010, 20:06 9
Впринципе можно сделать по другому.

если сильно хочется взять модуль отрицательного, взять корень, и опять умножить на -1
)))
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
16.12.2010, 20:06 10
(-4)^(1/2)
2 i
Sergei-kras
верно написал
если сильно хочется взять модуль отрицательного, взять корень, и опять умножить на -1
1
0 / 0 / 0
Регистрация: 15.12.2010
Сообщений: 16
16.12.2010, 20:08 11
Не ну уже комплексные числа сюда припаеваются.))))
0
Заблокирован
16.12.2010, 20:10 12
Цитата Сообщение от Dekio Посмотреть сообщение
магия оО
ЗЫ. парный корень с отрицательного числа ты никогда не добудешь.
легче на 0 поделить
Пrоблемы, паскалист?
Fortran
1
2
Data.Complex> sqrt (-4) :: Complex Double
(-0.0) :+ 2.0
0
2856 / 1985 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
16.12.2010, 20:14 13
Не ну уже комплексные числа сюда припаеваются.))))
Потому что так оно и есть.
Но...
Возведение числа в степень
0
8 / 0 / 0
Регистрация: 15.12.2010
Сообщений: 36
20.12.2010, 18:54  [ТС] 14
братцы программу составте полностью
0
65 / 62 / 63
Регистрация: 15.12.2010
Сообщений: 150
20.12.2010, 21:55 15
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
uses crt;
var n, m, i, j:integer;
     a: array[1..100,1..100] of real;
begin
writeln('введите размерность массива');
readln(n,m);
i:=1; j:=1;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=random//здесь не знаю как вещественное число задать
    write(a[i,j]);
   end;
   writein;
 end;
 writeln;
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]>10 then begin
a[i,j]:=sqrt(a[i,j]);
write(a[i,j]);
end else write(a[i,j]);
end;
writeln;
end;
writeln;
end.
вот попробуй это. если что не будет работать пиши, попробуем исправить.
0
8 / 0 / 0
Регистрация: 15.12.2010
Сообщений: 36
20.12.2010, 22:43  [ТС] 16
братуха я не имел виду подробно,а имел виду составить программу с Program....до end.
0
7 / 9 / 1
Регистрация: 10.12.2010
Сообщений: 48
20.12.2010, 23:00 17
Могу попробовать. Тебе полностью программа нужна?

Добавлено через 5 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  i,j,m,n:integer;
  a:array [1..100,1..100] of real;
begin
  write('Введите размеры массива (m,n): ');
  readln(m,n);
  for i:=1 to m do
  begin
    for i:=1 to n do
    begin
      a[i,j]:=random*100-50;
      if a[i,j]>10 then a[i,j]:=sqrt(a[i,j]);
      write(a[i,j]:4);
    end;
    writeln;
  end;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.12.2010, 23:00

Каждый элемент, больший 10, заменить на его квадратный корень.
Дан массив вещественных чисел. а) Каждый элемент, больший 10, заменить на его квадратный корень. ...

Дан массив вещественных чисел.Каждый элемент больше 10 заменить на его квадратный корень.
Помогите новичку с недельным опытом=) Дан массив вещественных чисел.Каждый элемент больше 10...

Дан массив. Каждый его элемент, больший 4, заменить на его квадрат
дан массив. каждый его элемент,больший 4, заменить на его квадрат помогите пожалуйста

Дан массив. Каждый его элемент, больший 4, заменить на его квадрат
дан массив. каждый его элемент,больший 4, заменить на его квадрат

Массив: Каждый элемент, больший 5, заменить его квадратом.
Помогите пожалуйста с задачей. Заранее спасибо. Каждый элемент больший 5, заменить его квадратом....

Каждый элемент массива больший определенного числа заменить на нуль
Задание Каждый элемент массива, который больше введенного числа, заменить на нуль. Разработать...


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

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

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