Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Turbo Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Turbo Pascal Обменные сортировки Задан массив AX (N). Добавить массив С(К). Выполнить обменную сортировку. В полученном векторе подсчитайте число и сумму положительных, число и произведение отрицательных элементов https://www.cyberforum.ru/ turbo-pascal/ thread1117820.html Turbo Pascal Вычислить сумму чисел, кратных 3 из интервала [3,60]
Вычислить сумму чисел, кратных 3 из интервала : S = 3 +6 +9 + ... +60.
Turbo Pascal Вычислить произведение ряда https://www.cyberforum.ru/ turbo-pascal/ thread1117739.html
Нужно написать паскаль-программу с циклическим вычислением.Вот условие:Вычислить произведение: P = 1/3 * 1/6 * 1/9 * ... * 1/60. 		Turbo Pascal Задано N чисел, описать функцию, находящую в этой последовательности максимальный элемент https://www.cyberforum.ru/ turbo-pascal/ thread1117731.html
Помогите сделать с рекурсией данное задание.
Решить систему дифференциальных уравнений Turbo Pascal
Помогите,плиз.Мне нужно решить систему дифференциальных уравнений с начальными условиями,действующая на отрезке методом Эйлера.И подсчитать в определённой точке.Подскажите правильно ли?(скинула как картинку) y'(x)=z z'(x)=-(\alpha +\beta *cos(x))*y w'(x)=g g'(x)=-(\alpha +\beta *cos(x))*w 		Turbo Pascal Подсчитать функцию y=sin(sin(...sin(x)))))) для заданого х (рекурсия) посчитать функцыю y=sin(sin(...sin(x)))))) для заданого х, в котором имя "sin" повторяется n раз https://www.cyberforum.ru/ turbo-pascal/ thread1117660.html
Turbo Pascal Подключить модуль https://www.cyberforum.ru/ turbo-pascal/ thread1117643.html
const m = 19; var a: array of integer; p, q, i, n: integer; begin randomize; repeat write('n = '); readln(n); if (n < 3) or (n > m) then writeln('n out of range 3..', m, ', reenter.') until (n >= 3) and (n <= m); 		Turbo Pascal Переменной присвоить значение, равное скалярному произведению векторов x и y
Дана действительная матрица порядка nxn. Переменнойt присвоить значение, равное скалярному произведению векторов x и y, компоненты которых определяются: xi=maxs(ais); yi=mink(aki)
Turbo Pascal Удаление нулевых элементов, стоящих между отрицательными Здравствуйте! Дана задача: Из одномерного массива А(20) удалить нулевые элементы, стоящие между двумя отрицательными элементами. Я тут пытался кое-что сделать, https://www.cyberforum.ru/ turbo-pascal/ thread1117602.html Turbo Pascal В массиве из 20 чисел выполнить обратное присваивание В массиве из 20 чисел выполнить обратное присваивание (первый элемент становится равным последнему, второй-предпоследнему и т.д) https://www.cyberforum.ru/ turbo-pascal/ thread1117594.html
Построить точку в центре экрана и соединить с крайними, чтобы получился треугольник Turbo Pascal
Помогите пожайлуста написать код. задание:построить точку в центре экрана и соединить с крайними,чтобы получился треугольник 		Turbo Pascal Рассчитать сумму бесконечного ряда Доброго времени суток! Помогите в решении след. задачи: Рассчитать сумму бесконечного ряда (на картинке). Значение Х меняется от Х-начальное до Х-конечное с шагом h. Функция: cos(x); Х-начальное: 0.1; Х-конечное: 1; Шаг: 0.1; Е=10^(-4) https://www.cyberforum.ru/ turbo-pascal/ thread1117520.html
79 / 53 / 65
Регистрация: 18.06.2013
Сообщений: 99
13.03.2014, 06:13 0

В полученном векторе каждый третий элемент заменить на значение «-3» - Turbo Pascal - Ответ 5892899

13.03.2014, 06:13. Показов 1054. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено Seva_by как решение

Решение

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

uses crt;
var ax,c:array [1..100]of integer;
n,m,i,j,k,b:integer;
begin
clrscr;
randomize;
write('Введите n=');readln(n);
write('Введите k=');readln(k);
writeln('Исходный массив А:');
for i:=1 to n do
begin
ax[i]:=random(50)-10;
write(ax[i]:4);
end;
writeln;
writeln('Массив C:');
for i:=1 to k do
begin
c[i]:=random(50)-10;
write(c[i]:4);
end;
writeln;
for i:=1 to k do
begin
n:=n+1;
ax[n]:=c[i];
end;
writeln('Объединенный массив:');
for i:=1 to n do
write(ax[i]:4);
writeln;
for i:=2 to n do
begin
b:=ax[i];
j:=1;
while b>ax[j] do
inc(j);
for m:=i-1 downto j do
ax[m+1]:=ax[m];
ax[j]:=b;
end;
writeln('Объединенный отсортировочный массив:');
for i:=1 to n do
write(ax[i]:4);
writeln;
writeln('Объединенный отсортировочный массив после замены каждого третьего элемента на -3:');
for i:=1 to n do
begin
if (i mod 3)=0 then ax[i]:=-3;
write(ax[i]:4);
end;
end.


Вернуться к обсуждению:
В полученном векторе каждый третий элемент заменить на значение «-3» Turbo Pascal
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 13.03.2014, 06:13
Готовые ответы и решения:

В отсортированном векторе каждый третий элемент заменить на значение «-3»
18. Задан массив AX (N). Добавить массив С(К). Выполнить обменную сортировку. В полученном векторе...

В отсортированном векторе каждый третий элемент заменить на значение «-3»
18. Задан массив AX (N). Добавить массив С(К). Выполнить сортировку включением. В полученном...

В полученном векторе заменить первый положительный элемент на минимальное значение элемента массива
Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением. В полученном векторе...

В заданной матрице каждый третий элемент заменить на значение «-3»
18. В заданном массиве A(N) каждый третий элемент заменить на значение «-3».

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 13.03.2014, 06:13
Помогаю со студенческими работами здесь

В заданном массиве A(N) каждый третий элемент заменить на значение «-3»
В заданном массиве A(N) каждый третий элемент заменить на значение «-3».оформить процедурами ввод...

В заданном массиве A(N) каждый третий элемент заменить на значение «-3»
В заданном массиве A(N) каждый третий элемент заменить на значение «-3».

Дано натуральное число n. Заменить каждый третий элемент на значение «-99»
Дано натуральное число n. Заменить каждый третий элемент на значение «-99». не массив. Можете...

Заменить в массиве каждый третий элемент на значение ближайшего справа отрицательного элемента
Не выходит написать программу. &quot;Заменить в одномерном массиве целых чисел каждый третий элемент...

Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением. В полученном векторе заменить первый положительный элемент на минимал
Задан массив AX (N). Добавить массив С(К). Выполнить сортировку разделением. В полученном векторе...

Каждый третий элемент массива заменить числом 10.
Помогите с задачками 1 задача по одномерным массивам Каждый третий элемент массива заменить...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru