Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
katareva
0 / 0 / 0
Регистрация: 19.03.2016
Сообщений: 22
#1

В массиве вещественных чисел элементы с нечетными номерами заменить их квадратным корнем - Turbo Pascal

13.06.2016, 18:19. Просмотров 284. Ответов 3
Метки нет (Все метки)

Дан массив вещественных чисел.Все элементы с нечетными номерами заменить на их квадратный корень.Помогите пожалуйста! Срочно нужно.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2016, 18:19
Здравствуйте! Я подобрал для вас темы с ответами на вопрос В массиве вещественных чисел элементы с нечетными номерами заменить их квадратным корнем (Turbo Pascal):

В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1. - Turbo Pascal
В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1.

В заданном массиве чисел заменить элементы с нечетными номерами на квадраты их номеров - Turbo Pascal
Одномерные массивы. В заданном массиве чисел заменить элементы с нечетными номерами на квадраты их номеров.

Заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1 - Turbo Pascal
1. В одномерном массиве, состоящем из n целых чисел, заменить элементы с четными номерами нулем, а элементы с нечетными номерами - 1.

В одномерном массиве каждый элемент больший 100 заменить квадратным корнем этого элемента - Pascal
В одномерном массиве каждый элемент больший 100 заменить квадратным корнем этого элемента, а все большие 0 и меньшие 1 возвести в квадрат.

В линейном массиве вещественных чисел a(n) заменить все элементы, большие 10 на число k - Turbo Pascal
2. В линейном массиве вещественных чисел a(n) заменить все элементы, большие 10 на число k.

Все элементы массива с нечетными номерами заменить на их квадратный корень - Turbo Pascal
Помогите с решением! Задача на одномерный массив. Массивы не проходили, изучали сами, тоесть никак. а решить надо. Вот задачка ...

3
Peoples
1186 / 691 / 434
Регистрация: 06.02.2016
Сообщений: 1,818
Записей в блоге: 14
Завершенные тесты: 4
13.06.2016, 18:59 #2
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
program pr;
const
  Csize = 100;
var
  a: array [1..Csize] of real;
  i, n: integer;
 
begin
  writeln('Введите размер массива');
  readln(n);
  for i := 1 to n do
  begin
    a[i] := random(21);
    write(' ',a[i]:3);
  end;
  for i := 1 to n do
    if i mod 2 <> 0 then
    begin
      a[i] := sqrt(a[i]);
    end;
    writeln;
  writeln('Изменённый массив');
  for i := 1 to n do
    write('  ',a[i]:3:2);
end.
0
magirus
Супер-модератор
Эксперт по компьютерным сетямЭксперт Windows
27151 / 15427 / 911
Регистрация: 15.09.2009
Сообщений: 67,194
Записей в блоге: 78
13.06.2016, 19:03 #3
katareva, прекратите дублировать темы.
0
ezhukov67
22 / 22 / 31
Регистрация: 10.05.2014
Сообщений: 52
13.06.2016, 19:08 #4
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
uses  Crt;
const n=10;
type  Tmass=array[1..n] of Real;
var   a:Tmass;
      i:integer;
begin
      ClrScr;
       Writeln('Ichodniy massiv:');
        Writeln;
         Randomize;
       for i:=1 to n do
        begin
          a[i]:=Random(10000)/100;
          Write(a[i]:7:2);
        end;
        Writeln; Writeln;
       Writeln('Konecniy massiv:');
        Writeln;
       for i:=1 to n do
        begin
          if (i mod 2)<>0
           then a[i]:=sqrt(a[i]);
          Write(a[i]:7:2);
        end;
       ReadKey;
end.
0
13.06.2016, 19:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.06.2016, 19:08
Привет! Вот еще темы с ответами:

Дан одномерный массив Zn. Все элементы с нечетными значениями заменить суммой элементов с четными номерами - Turbo Pascal
Дан одномерный массив Zn. Все элементы с нечетными значениями заменить суммой элементов с четными номерами.

Задан массив с количеством элементов N. Вывести элементы с нечетными номерами, являющиеся нечетными - Turbo Pascal
Где ошибка program ffwrewre4; uses crt; const n=20; var a:array of integer; i,m:integer; begin clrscr; randomize;

Задан массив с количеством элементов N. Вывести элементы с нечетными номерами, являющиеся нечетными - Turbo Pascal
Задан массив с количеством элементов N. Вывести элементы с нечетными номерами, являющиеся нечетными.

Вычислить сумму положительных чисел, введенных под четными номерами, и найти минимальное из чисел, введенных под нечетными номерами - Turbo Pascal
Из n чисел, введенных с клавиатуры, вычислить сумму положительных чисел, введенных под четными номерами, и найти минимальное из чисел,...


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

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

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