Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal В массиве все элементы, значения которых больше 5, заменить на 15 В произвольном одномерном массиве все элементы значения которых больше 5 заменить на 15. Вывести номера этих элементов и найти количество элементов которые не удовлетворяют данному условию https://www.cyberforum.ru/ turbo-pascal/ thread1761766.html	Почему не печатаются значения слагаемых? Turbo Pascal Почему не печатаются значения слагаемых? /А здесь результат суммы стоит нормально/ Вычислить сумму того же ряда с помощью цикла С Предусловием (while). Program Summa; uses Crt; var Eps: real; S: real; Y: real;
Turbo Pascal Вычислить сумму ряда https://www.cyberforum.ru/ turbo-pascal/ thread1761755.html Ряд чисел с большими пробелами. И результат суммы тоже с большим пробелом. А нельзя ли их как-то уменьшить? Вычислить сумму ряда: Ряд Y = {Программа № 50с. Задание 7.1. со стр. 114} Program Summa; Uses Crt;	Turbo Pascal Знак возведения в степень https://www.cyberforum.ru/ turbo-pascal/ thread1761753.html Возведение числа в степень в Basicax выполняется с помощью знака возведения в степень (^). Например: N = a ^ 7. А в Паскале такого знака нет; получается, что надо 7 раз перемножить a * a * a * a * a * a * a . А по другому как-нибудь можно?
Turbo Pascal В Паскале цикл for исполняется с шагом 1 (-1). А как выполнить любой другой шаг? В Паскале цикл for исполняется с шагом 1 (-1). А как выполнить любой другой шаг?	Turbo Pascal Вычислить сумму ряда https://www.cyberforum.ru/ turbo-pascal/ thread1761751.html Ряд Y = {Программа № 50с. Задание 7.1. со стр. 114} Program Summa; Uses Crt; Var R, S: real; I: integer; Begin ClrScr; For i: = 0 to 5 do Begin
Turbo Pascal Как определить в количество слагаемых, определяющих сумму ряда https://www.cyberforum.ru/ turbo-pascal/ thread1761743.html Для заданного ряда написана программа для приближённого вычисления суммы с использованием оператора while (цикл с предусловием). А можно ли определить в этой программе количество слагаемых, определяющих сумму этого ряда? Program Summa2; var Eps: real; {Заданное число «эпсилон»} X: real; {Основание степени в числителе дроби} S: real; {Переменная для...	Turbo Pascal Отсортировать массив по неубыванию линейной сортировкой Дан одномерный массив. С клавиатуры вводится N чисел. Отсортировать по неубыванию линейной сортировкой после первого минимального элемента
Turbo Pascal Умножение, сложение и вычитание матриц Действия над матрицами https://www.cyberforum.ru/ turbo-pascal/ thread1761222.html	Turbo Pascal Для заданных a и b найти все точки с целочисленными координатами, находящиеся внутри эллипса https://www.cyberforum.ru/ turbo-pascal/ thread1760965.html Для заданных a и b найти все точки с целочисленными координатами, находящиеся внутри эллипса \frac{{x}^{2}}{{a}^{2}}+\frac{{y}^{2}}{{b}^{2}}\leq 1
Turbo Pascal Нарисуйте домик, ёлочку и машину Ничего,не получается(как и с Азбукой морзе(тема созданная раннее))	Turbo Pascal Азбука Морзе - при нажатии на клавишу выдать соответствующий сигнал https://www.cyberforum.ru/ turbo-pascal/ thread1760675.html Дайте пожалуйста код Азбуки Морзе с пищанием при переводе с русского на азбуку морзе. Вот задание от преподавателя:Программа- при нажатии на букву звучит азбука морзе этой буквы. Буду очень признателен так как pascal мне не дается.

Peoples

1624 / 954 / 782

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

Сообщений: 2,452

Записей в блоге: 31

13.06.2016, 18:59

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

13.06.2016, 18:59. Показов 4974. Ответов 3

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

Ответ

Pascal

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.

Вернуться к обсуждению:
В массиве вещественных чисел элементы с нечетными номерами заменить их квадратным корнем Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

13.06.2016, 18:59

Готовые ответы и решения:

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

В заданном массиве чисел заменить элементы с нечетными номерами на квадраты их номеров
Сформировать одномерный массив с поощью генератора случайных чисел в диапазоне . В заданном массиве...

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

В массиве заменить элементы с четными номерами суммой элементов с нечетными номерами
1)В массиве заменить элементы с четными номерами суммой элементов с нечетными номерами. 2)Найти...

	13.06.2016, 18:59

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

13.06.2016, 18:59

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

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

Дан массив вещественных чисел. Все элементы с четными номерами удвоить, с нечетными — уменьшить на 1
Помогите пожалуйста Дан массив вещественных чисел. Все элементы с четными номерами удвоить, с...

Найти в массиве минимальный по модулю элемент. Заменить им элементы с нечетными номерами
Написать процедуру и функцию, которая находит в массиве минимальный по модулю элемент и заменяет им...

В массиве все элементы с четными номерами удвоить, а с нечетными - заменить нулями.
Помогите написать задание: Дан массив B(m), m15. Все элементы с четными номерами удвоить, а с...

Наверх