Вычислить количество элементов массива, лежащих в диапазоне от А до В;

@j_one · Регистрация: 12.01.2010

Студворк — интернет-сервис помощи студентам

Здрасте!!Прошу помощи по циклам и массивам срочно так как не могу защитить лабу без этих задач.
вот условия задач:
Циклы:
1. Дано вещественное число X и целое число N (> 0). Вывести X – X^3/3! + X^5/5! – ... + (–1)^NX^2N+1/(2N+1)! (N! = 1*2*...*N). Полученное число является приближенным значением функции sin в точке X.
2. Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести номер последнего числа в наборе, меньшего K. Если таких чисел в наборе нет, то вывести 0.
3. Дано целое число N и набор из N вещественных чисел: A1, A2, ..., AN. Вывести следующие числа: A1, A2^2, ..., AN–1^N–1, AN^N.
4. Найти два наименьших1|наибольших2 из данных десяти элементов.
5. Напечатать таблицу перевода расстояния в верстах в километры для значений от 1 до 50 с шагом 5.
6. Автоморфным называется число, содержащее в последних разрядах свой квадрат: 5*5=25; 25*25=625.Дано число n. Выяснить является ли оно автоморфным.
Массивы:
1. В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) количество элементов массива, лежащих в диапазоне от А до В;
2) сумму элементов массива, расположенных после максимального элемента.
Упорядочить элементы массива по убыванию модулей.
2. В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1) номер минимального элемента массива;
2) сумму элементов массива, расположенных между первым и вторым отрицательными элементами.
Преобразовать массив таким образом, чтобы сначала располагались все элементы, модуль которых не превышает единицу, а потом — все остальные.
3. Дана квадратная матрица порядка M. Вывести минимальные1|максимальные2 из элементов каждой ее диагонали, параллельной главной3|побочной4 (начиная с одноэлементной диагонали A[1,M]3|A[1,1]4).
4. Дана целочисленная матрица размера M x N. Вывести номер ее первой1|последней2 строки3|столбца4, содержащего максимальное количество одинаковых элементов.
5. Дана матрица размера M x N. Элемент называется локальным минимумом (максимумом), если он меньше (больше) всех окружающих его элементов. Заменить все локальные минимумы1|максимумы2 данной матрицы на 0.
6. Коэффициенты системы линейных уравнений заданы в виде прямоугольной матрицы. С помощью допустимых преобразований привести систему к треугольному виду (оформить в виде процедуры).
7. Найти количество строк, среднее арифметическое элементов которых меньше заданной величины (оформить в виде функции).

Заранее огромное спасибо=))

@mamedovvms · 12.01.2010, 12:37

вам скорее всего во фриланс, так как одну две ну три задачи бы вам может быть за так решили а такое количество мало кто согласится

@j_one · 12.01.2010, 13:36 **[ТС]**

ну я же не говорю что бы кто то один решил все задачи=))
один пару другой пару вот и получится все количество=))

@Puporev · 12.01.2010, 13:38

j_one, Когда в теме столько задач, я их даже не читаю.

@mamedovvms · 12.01.2010, 13:39

Сообщение от j_one

ну я же не говорю что бы кто то один решил все задачи=))
один пару другой пару вот и получится все количество=))

да вы хитрец))))))))))))) обычно при виде такого количества задач люди даже не пытаются помочь, потому что это уже получается не помощь, а тупое решение задач за кого то, а кому это надо ???? Вы все равно не будете с ними разбираться Вы так их просто просмотрите что бы сдать и все, а нам такие задачи решать не интересно (вот когда человек над задачей бьется и не может решить а мы ему подсказываем и показываем вот тогда и у него останется что то в голове и нам хоть какое то моральное удовлетворение)

@j_one · 12.01.2010, 13:42 **[ТС]**

Сообщение от mamedovvms

да вы хитрец))))))))))))) обычно при виде такого количества задач люди даже не пытаются помочь, потому что это уже получается не помощь, а тупое решение задач за кого то

это малая часть которая мне не по силам=))
большую часть задач я уже сделал остались только эти=))

@mamedovvms · 12.01.2010, 13:44

Сообщение от j_one

большую часть задач я уже сделал остались только эти=))

выкладывайте наработки по этим задачам дабы развеять наши предположения что вы их не решали

@Inadequate · 12.01.2010, 13:45

Сообщение от j_one

это малая часть которая мне не по силам=))
большую часть задач я уже сделал остались только эти=))

Вы мало того, что хитрец, да еще и врун. Преподам будете на уши присидать тем, что Вы что-то делали. А тут видно и так чего Вы из себя представляете как "программист".

@j_one · 12.01.2010, 13:46 **[ТС]**

ок=))
через небольшой промежуток времени все появится=))

@mamedovvms · 12.01.2010, 13:48

ок=))
через небольшой промежуток времени все появится=))

хорошо но вот только не надо что бы было просто ввод массива или матрицы кодов которых и так на форуме завались, и тем более не надо просто объявление переменных или тупой сумбур

@Puporev · 12.01.2010, 13:50

Короче всем все ясно, прекращаем флудить.

@j_one · 12.01.2010, 14:25 **[ТС]**

Цикл 6 задача:
выдает ошибку!
вот код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
PROGRAM PRG_7;
 VAR N, R, M : INTEGER;
BEGIN
REPEAT
 WRITE('BBEДИTE НАТУРАЛЬНОЕ ЧИСЛО N= ');
 READLN (N);
UNTIL N>0;
М:=N;
R:=1;
WHILE M>0 DO
BEGIN
M:=M DIV 10;
R:=R*10;
END;
IF (N*N MOD R) = N THEN
WRITELN('ЧИСЛО ', N, ' АВТОМОРФНО ') ELSE
WRITELN('ЧИСЛО ', N, ' HE АВТОМОРФНО ')
END.

@Artishok · 12.01.2010, 14:41

в 8 строке М из другого языка.То есть в начале у тебя английская М а потом стала русской

@j_one · 12.01.2010, 15:09 **[ТС]**

во заработала=)

Добавлено через 25 минут
вот тут тоже не могу с ошибкой справится:

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
program matrica;
uses crt;
const n=6;
type
Tmatr=array[1..n,1..n] of integer;
var a:Tmatr;
i,j,min,max:integer;
procedure Vgl(a:Tmatr; var b:integer; var c:integer);
var i,j,k:integer;
begin
for k:=1 to n-1 do
begin
b:=a[1,n-k+1];c:=a[1,n-k+1];
for i:=1 to k do
begin
for j:=n downto n-k+1 do
if (j=i+n-k)and(a[i,j]) begin
b:=a[i,j]
end
else if (j=i+n-k)and(a[i,j]>c) then
begin
c:=a[i,j];
end;
end;
writeln('min=',b,' max=',c);
end;
end;
procedure Ngl(a:Tmatr; var b:integer; var c:integer);
var i,j,k:integer;
begin
for k:=1 to n-1 do
begin
b:=a[k+1,1];c:=a[k+1,1];
for i:=k+1 to n do
begin
for j:=1 to n-k do
if (j=i-k)and(a[i,j] begin
b:=a[i,j]
end
else if (j=i-k)and(a[i,j]>c) then
begin
c:=a[i,j];
end;
end;
writeln('min=',b,' max=',c);
end;
end;
procedure Vpb(a:Tmatr; var b:integer; var c:integer);
var i,j,k:integer;
begin
for k:=1 to n-1 do
begin
b:=a[k,1];c:=a[k,1];
for i:=k downto 1 do
begin
for j:=1 to k do
if (j=k-i+1)and(a[i,j] begin
b:=a[i,j]
end
else if (j=k-i+1)and(a[i,j]>c) then
begin
c:=a[i,j];
end;
end;
writeln('min=',b,' max=',c);
end;
end;
procedure Npb(a:Tmatr; var b:integer; var c:integer);
var i,j,k:integer;
begin
for k:=1 to n-1 do
begin
b:=a[k+1,n];c:=a[k+1,n];
for i:=k+1 to n do
begin
for j:=n downto 2 do
if (j=n-i+k+1)and(a[i,j] begin
b:=a[i,j]
end
else if (j=n-i+k+1)and(a[i,j]>c) then
begin
c:=a[i,j];
end;
end;
writeln('min=',b,' max=',c);
end;
end;
begin
clrscr;
{randomize;}
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(20);
write(a[i,j]:4);
end;
writeln;
end;
readln;
writeln('Vyshe glavnoj diagonali:');
Vgl(a,min,max);
readln;
writeln('Nyge glavnoj diagonali:');
Ngl(a,min,max);
readln;
writeln('Vyshe pobochnoj diagonali:');
Vpb(a,min,max);
readln;
writeln('Nyge pobochnoj diagonali:');
Npb(a,min,max);
readln
end.

@Artishok · 12.01.2010, 15:22

я не проверяю верно ли ты решил задачу.
проверь все if-ки.у тебя там then недописано и a[i,j] посмотри с чем ты его сравниваешь

@j_one · 12.01.2010, 15:26 **[ТС]**

но добавил then и после этого в 17 строке на and показывает что это неправильное выражение.
что нада сделать??=)

@Artishok · 12.01.2010, 15:28

a[i,j] у тебя проссто в скобках.с чем ты его стравниваешь?

@Puporev · 12.01.2010, 15:44

Наверное
i

Pascal
1
f (j=i+n-k)and(a[i,j]<=c) begin

@j_one · 12.01.2010, 15:53 **[ТС]**

все разобрался с этой задачей все работает=)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@j_one 6 / 6 / 0 Регистрация: 12.01.2010 Сообщений: 9

	Вычислить количество элементов массива, лежащих в диапазоне от А до В; 12.01.2010, 12:11. Показов 4436. Ответов 18 Метки нет (Все метки) Здрасте!!Прошу помощи по циклам и массивам срочно так как не могу защитить лабу без этих задач. вот условия задач: Циклы: 1. Дано вещественное число X и целое число N (> 0). Вывести X – X^3/3! + X^5/5! – ... + (–1)^NX^2N+1/(2N+1)! (N! = 12...N). Полученное число является приближенным значением функции sin в точке X. 2. Дано целое число K и набор ненулевых целых чисел; признак его завершения — число 0. Вывести номер последнего числа в наборе, меньшего K. Если таких чисел в наборе нет, то вывести 0. 3. Дано целое число N и набор из N вещественных чисел: A1, A2, ..., AN. Вывести следующие числа: A1, A2^2, ..., AN–1^N–1, AN^N. 4. Найти два наименьших1\|наибольших2 из данных десяти элементов. 5. Напечатать таблицу перевода расстояния в верстах в километры для значений от 1 до 50 с шагом 5. 6. Автоморфным называется число, содержащее в последних разрядах свой квадрат: 55=25; 25*25=625.Дано число n. Выяснить является ли оно автоморфным. Массивы: 1. В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) количество элементов массива, лежащих в диапазоне от А до В; 2) сумму элементов массива, расположенных после максимального элемента. Упорядочить элементы массива по убыванию модулей. 2. В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1) номер минимального элемента массива; 2) сумму элементов массива, расположенных между первым и вторым отрицательными элементами. Преобразовать массив таким образом, чтобы сначала располагались все элементы, модуль которых не превышает единицу, а потом — все остальные. 3. Дана квадратная матрица порядка M. Вывести минимальные1\|максимальные2 из элементов каждой ее диагонали, параллельной главной3\|побочной4 (начиная с одноэлементной диагонали A[1,M]3\|A[1,1]4). 4. Дана целочисленная матрица размера M x N. Вывести номер ее первой1\|последней2 строки3\|столбца4, содержащего максимальное количество одинаковых элементов. 5. Дана матрица размера M x N. Элемент называется локальным минимумом (максимумом), если он меньше (больше) всех окружающих его элементов. Заменить все локальные минимумы1\|максимумы2 данной матрицы на 0. 6. Коэффициенты системы линейных уравнений заданы в виде прямоугольной матрицы. С помощью допустимых преобразований привести систему к треугольному виду (оформить в виде процедуры). 7. Найти количество строк, среднее арифметическое элементов которых меньше заданной величины (оформить в виде функции). Заранее огромное спасибо=)) 1

@mamedovvms 2923 / 844 / 324 Регистрация: 30.04.2009 Сообщений: 2,633
	12.01.2010, 12:37
	вам скорее всего во фриланс, так как одну две ну три задачи бы вам может быть за так решили а такое количество мало кто согласится 0

@j_one 6 / 6 / 0 Регистрация: 12.01.2010 Сообщений: 9
	12.01.2010, 13:36 [ТС]
	ну я же не говорю что бы кто то один решил все задачи=)) один пару другой пару вот и получится все количество=)) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	12.01.2010, 13:38
	j_one, Когда в теме столько задач, я их даже не читаю. 1

@j_one 6 / 6 / 0 Регистрация: 12.01.2010 Сообщений: 9
	12.01.2010, 13:46 [ТС]
	ок=)) через небольшой промежуток времени все появится=)) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	12.01.2010, 13:50
	Короче всем все ясно, прекращаем флудить. 1

@Artishok ЧакЭ одобряЭ 285 / 284 / 86 Регистрация: 27.12.2009 Сообщений: 1,767
	12.01.2010, 14:41
	в 8 строке М из другого языка.То есть в начале у тебя английская М а потом стала русской 2

@Artishok ЧакЭ одобряЭ 285 / 284 / 86 Регистрация: 27.12.2009 Сообщений: 1,767
	12.01.2010, 15:22
	я не проверяю верно ли ты решил задачу. проверь все if-ки.у тебя там then недописано и a[i,j] посмотри с чем ты его сравниваешь 1

@j_one 6 / 6 / 0 Регистрация: 12.01.2010 Сообщений: 9
	12.01.2010, 15:26 [ТС]
	но добавил then и после этого в 17 строке на and показывает что это неправильное выражение. что нада сделать??=) 1

@Artishok ЧакЭ одобряЭ 285 / 284 / 86 Регистрация: 27.12.2009 Сообщений: 1,767
	12.01.2010, 15:28
	a[i,j] у тебя проссто в скобках.с чем ты его стравниваешь? 1

@j_one 6 / 6 / 0 Регистрация: 12.01.2010 Сообщений: 9
	12.01.2010, 15:53 [ТС]
	все разобрался с этой задачей все работает=) 1