Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Решение уравнения https://www.cyberforum.ru/ turbo-pascal/ thread247583.html
Помогите пожалуйста написать программку на Паскале. У самой не получается. Нужно решить это уравнение. заранее огромное спасибо!!
Массив + составные условия Turbo Pascal
Найти число пap "соседних" элементов массива, являющихся четными числами
Turbo Pascal Установить, что сумма элементов массива есть четное число https://www.cyberforum.ru/ turbo-pascal/ thread247555.html
Дан массив целых чисел. Выяснить: а) верно ли, что сумма элементов массива есть четное число; 6) верно ли, что сумма квадратов элементов массива есть пятизначное число
Turbo Pascal Метод симпсона https://www.cyberforum.ru/ turbo-pascal/ thread247533.html
у меня в программе вычисляется определённый интеграл методом симпсона, только я вот не понял как его считать с погрешностью , ниже на картинке формула с вычислением погрешности, как мне её в свою...
В массиве А (L) все числа меньше двух заменить на нули. Вычислить сумму таких элементов Turbo Pascal
1.В массиве А (L) все числа меньше двух заменить на нули. Вычислить сумму таких елементов. 2.на операторы if-else и case заданные три числа:a, b, c. Вычислить количество пар равных между собой...
Turbo Pascal Модульное програмирование Pascal Здравствуйте все! Недавно начал изучение паскаля , в уневере, задали курсовую по програмированию, в ней оказалась одна непосильная для меня задачка,из раздела- модульное програмирование.Так вот и... https://www.cyberforum.ru/ turbo-pascal/ thread247524.html
Turbo Pascal Работа с данными комбинированного типа (Record) https://www.cyberforum.ru/ turbo-pascal/ thread247523.html
Здравствуйте! Помогите пожалусто написать програму. ЗАДАНИЕ type date= record subject:array{1..5] of string; mark: array{1..5] of integer; end; studrec= record name : string; sub:date;
Процедуры или функции Turbo Pascal
Как через процедуру или функцию? Program zadacha; Var x1,y2:integer; V:real; Begin Writeln(‘Vvedite x1,y2’); Readln(x1,y2); V:=2*3.14*x1*y2; Writeln(‘V=’,v:2:2);
Turbo Pascal заполнить масив по спирали https://www.cyberforum.ru/ turbo-pascal/ thread247519.html
Заполнить матрицу 7х7 элементами от 1 до 49 по спирали. Поменять местами столбцы с минимально и максимальной суммой элементов.
Turbo Pascal вычислить определитель матрицы целочисленных чисел по Гауссу 5х5 https://www.cyberforum.ru/ turbo-pascal/ thread247517.html
Дали такое задание : вычислить определитель матрицы целочисленных чисел по Гауссу 5х5 незнаю как решить =(
Turbo Pascal двумерный масыв n порядка
получить квадратную матрицу порядка n: 11...11 1...1 . . 0...0 . . 1...1 11...11
Turbo Pascal решить двумерный массив помогите пожалуйста решить 3 задание. Спасибо! https://www.cyberforum.ru/ turbo-pascal/ thread247512.html
382 / 330 / 159
Регистрация: 06.12.2010
Сообщений: 894
24.02.2011, 00:20 0

Переписать отрицательные элементы массива X в массив Y и подсчитать их количество - Turbo Pascal - Ответ 1395770

24.02.2011, 00:20. Показов 1691. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено qwer11 как решение

Решение

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
// X = 3 i -10 ?sin(i - 0,5), i где i = 1, 2, …, 20.
    uses crt;
    const nmax=20;
    var X,Y:array[1..nmax] of real;
        i,n,j:integer;
begin
  repeat
    write('i= ');
    readln(n);
  until n in [1..nmax];
  j:=0;
  for i:=1 to n do
  begin
     X[i]:=3*i-10*sin(i-0.5);
     write(X[i]:2:2,' ');
     if (X[i]<0) then
     begin
        inc(j);
        Y[j]:=X[i];
     end;
  end;
  writeln;
  writeln('Y: ');
  for i:=1 to j do
  write(Y[i]:2:2,' ');
  
  Readln;
end.


Вернуться к обсуждению:
Переписать отрицательные элементы массива X в массив Y и подсчитать их количество Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.02.2011, 00:20
Готовые ответы и решения:

Переписать элементы массива Х в массив У и подсчитать их количество
Переписать элементы массива Х в массив У и подсчитать их количество

Переписать в массив X подряд положительные элементы массива P, а в массив Y — отрицательные
И снова здравствуйте =) Задача: Дан массив P( N)состоящий из N вещественных чисел. Переписать...

Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N)
Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N)

Переписать подряд в массив Y положительные и в массив Z отрицательные элементы массива X(N).
1. Проверить, есть ли в заданном векторе A=(a1,a2,...,aN) элементы, равные нулю. Если есть, найти...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.02.2011, 00:20

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Переписать в массив Y положительные и в массив Z отрицательные элементы массива X
Переписать в массив Y положительные и в массив Z отрицатель- ные элементы массива X. Помогите...

Переписать положительные элементы масива Х, в одномерный массив У, подсчитать их количество.
помогите завтра крайний срок 1. Переписать положительные элементы масива Хm,m(1&lt;=n&lt;=10 ...

Если сумма элементов массива > 0, переписать в массив В положительные элементы, иначе – отрицательные
Ввести массив А(n). Найти сумму элементов массива. Если она &gt;0, переписать в массив В положительные...

переписать положительные элементы массива х в массив у и подсчитать их количество
дан массив х(70)-1&lt;=xi&lt;=1. переписать положительные элементы массива х в массив у и подсчитать их...

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