Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Elenochka
0 / 0 / 2
Регистрация: 26.04.2011
Сообщений: 42
#1

В первый массив включить элементы исходного массива с четными номерами, а во второй – с нечетными - Turbo Pascal

26.04.2011, 17:18. Просмотров 350. Ответов 1
Метки нет (Все метки)

1) задан массив а размерности n. сформируйте два массива в и с: в первый включить элементы исходного массива а с четными номерами, а во второй с нечетными

2) Составить программу для вычисления суммы ряда: S i=1,n (2*i)!+|x| / (i во 2 степени)

3) { x+ SIN в 3 степени (x-b), 0<x<1
y={ LN(Корень (|b* e в степени (-х) -a|) + arctg (x-2)), x>2 <---(это все одна система)
{ не опредлено в остальных случаях

где а=1.28 b=0,3 x=2,646

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

В первый массив включить элементы исходного массива с четными номерами, а во второй – с нечетными
Задан массив с количеством элементов N. Сформировать два массива: в первый...

Сформировать два массива, включив в первый элементы исходного с четными индексами, а во второй - с нечетными
дан массив из 20 элементов. Сформировать два массива размером 10,включив в...

Сформировать два массива, включив в первый элементы с четными индексами, во второй - с нечетными
Создать массив, сделать блок схему 25. Дан массив размерностью 10 из целых...

Переписать в новый массив В того же размера вначале все элементы исходного массива с четными номерами
Дан целочисленный массив A размера N.переписать в новый массив В того же...

Выбросить из массива А все элементы с четными номерами, а из массива В - с нечетными номерами
Выбросить из массива А все элементы с четными номерами, а из массива В - с...

Все элементы массива с нечетными номерами удвоить, с четными - уменьшить на 1
Дан массив из 15 элементов. Все элементы с нечетными номерами удвоить, с...

1
KaiTheCat
К.О.
531 / 496 / 344
Регистрация: 26.03.2011
Сообщений: 1,141
26.04.2011, 17:42 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1
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
var
  a,b,c: array[1..100] of integer;
  i,n,k1,k2: integer;
Begin
  randomize;
  readln(n);
  for i:=1 to n do
    begin
      a[i]:=random(100)-50;
      write(a[i]:4);
      if odd(i)=false then
        begin
          inc(k1);
          b[k1]:=a[i];
        end
        else begin
          inc(k2);
          c[k2]:=a[i];
        end;
    end;
  writeln;
  for i:=1 to k1 do
    write(b[i]:4);
  writeln;
  for i:=1 to k2 do
    write(c[i]:4);
  readln
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.04.2011, 17:42
Привет! Вот еще темы с решениями:

Дан массив. Все элементы с четными номерами удвоить, с нечетными - уменьшить на 1
Дан массив. Все элементы с четными номерами удвоить, с нечетными - уменьшить на...

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

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

Элементы массива X[N] с четными индексами увеличить на третий, а с нечетными – уменьшить на первый элемент
Элементы массива X с четными индексами увеличить на тре- тий, а с нечетными –...


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

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

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