Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
dima_bu
0 / 0 / 0
Регистрация: 16.10.2017
Сообщений: 24
#1

Дан одномерный массив натуральных чисел - Turbo Pascal

25.10.2017, 17:56. Просмотров 200. Ответов 3
Метки нет (Все метки)

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

Дан массив натуральных чисел - Turbo Pascal
Дан массив натуральных чисел. Определить есть ли в нем : а)два подряд идущих одинаковых числа; б)три подряд идущих одинаковых числа; в) k...

Дан массив, состоящий из n натуральных чисел. Образовать новый массив, элементами которого будут элементы исходного, оканчивающиеся на цифру к. - Turbo Pascal
Помогите пожалуйста задачка на одномерные массивы нужна прога зараннее благодарен!!!

Дан одномерный массив из 10 целых чисел. Подсчитайте количество различных чисел в нем - Turbo Pascal
Дан одномерный массив из 10 целых чисел. Подсчитайте количество различных чисел в нем.

Дан одномерный массив из n чисел - Turbo Pascal
Дан одномерный массив из n чисел. Вывести на экран, отсортирован ли массив по возрастанию.

Дан одномерный массив из n чисел - Turbo Pascal
Дан одномерный массив из n чисел. Вывести на экран, отсортировать массив по возрастанию.

Дан одномерный массив действительного типа. Получить массив, состоящий из отрицательных чисел исходного массива - Turbo Pascal
Помогите пожалуйста решить задачку) Дан одномерный массив действительного типа. Получить другой массив, состоящий только из отрицательных...

3
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3835 / 2822 / 1941
Регистрация: 05.06.2014
Сообщений: 13,818
25.10.2017, 19:09 #2
Найти минимальный элемент массива и его номер
Определить факториал числа
Подключаемые модули
0
dima_bu
0 / 0 / 0
Регистрация: 16.10.2017
Сообщений: 24
25.10.2017, 19:34  [ТС] #3
Я в этом не шарю, можете написать задачу?

Добавлено через 15 минут
Вы бы спасли мне жизнь
0
dima_bu
0 / 0 / 0
Регистрация: 16.10.2017
Сообщений: 24
25.10.2017, 20:38  [ТС] #4
Вот я сделал, но она не работает, выводит нули, не могу найти ошибку , исправьте пожалуйста
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
unit dimas; 
interface 
type mass=array[1..100]of integer; 
procedure vuv(b:mass; n:integer); 
procedure vv(var a:mass; var n:integer); 
procedure minf( var b:mass; a:mass;n:integer; var k:integer); 
procedure min(a:mass; n:integer; var m:integer); 
procedure fa(a:mass; n:integer; var m:integer); 
implementation 
procedure min(a:mass; n:integer; var m:integer); 
var f,i:integer; 
begin 
m:=a[1]; 
for i:=1 to n do 
if a[i]<m then m:=a[i]; 
end; 
procedure fa(a:mass; n:integer; var m:integer); 
var i:integer; 
begin 
for i:=1 to n do 
m:=m*a[i]; 
end; 
procedure vv(var a:mass; var n:integer); 
var i:integer; 
begin 
read(n); 
for i:=1 to n do 
readln(a[i]); 
end; 
procedure minf(var b:mass; a:mass; n:integer; var k:integer); 
var i,p,l,m:integer; 
begin 
min(a,n,l); 
fa(a,n,m); 
for i:=1 to n do begin 
k:=k+1; 
if a[i]mod 2=0 then b[k]:=a[i]*l; 
end; 
end; 
procedure vuv(b:mass; n:integer); 
var i:integer; 
begin 
for i:=1 to n do 
write(b[i],' '); 
end; 
end.
Pascal
1
2
3
4
5
6
7
8
uses dimas; 
var a,b:mass; l,f,n:integer; 
begin 
vv(a,n); 
min(a,n,l); 
vuv(b,n); 
writeln('min = ', l); 
end.
Добавлено через 16 минут
Блин,это совсем не то

Добавлено через 19 минут
вот, исправьте(если надо) и надо дописать основную задачу
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
unit dimas; 
interface 
type mass=array[1..100]of integer; 
procedure vv(var a:mass; var n:integer); 
procedure max(var a:mass;n:integer; var k:integer); 
procedure min(a:mass; n:integer; var l:integer); 
procedure sfa(a:mass; k,l:integer; var s:integer ); 
implementation 
procedure min(a:mass; n:integer; var l:integer); 
var f,i:integer; 
begin 
l:=a[1]; 
for i:=1 to n do 
if a[i]<l then l:=a[i]; 
end; 
procedure sfa(a:mass; k,l:integer; var s:integer ); 
var f,f1,i:integer; 
begin 
f:=1; 
f1:=1; 
for i:=1 to k do 
f:=f*a[i]; 
for i:=1 to l do 
f1:=f1*i; 
s:=f+f1; 
 
end; 
procedure vv(var a:mass; var n:integer); 
var i:integer; 
begin 
read(n); 
for i:=1 to n do 
readln(a[i]); 
end; 
procedure max(var a:mass;n:integer; var k:integer); 
var i,p,l,m:integer; 
begin 
k:=a[1]; 
for i:=1 to n do begin 
if a[i]>k then k:=a[i]; 
end; 
end; 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.10.2017, 20:38
Привет! Вот еще темы с ответами:

Дан двумерный массив 5 на 5. Найти количество простых чисел в каждом столбце матрицы и вывести в одномерный массив - Turbo Pascal
Из матрицы 5на5 вывести количество простых чисел в одномерный массив, в котором будет 5 чисел в строке. То есть по каждому столбцу матрицы....

Дан массив натуральных чисел. Указать те, у которых остаток от деления на М равен L (0<L<M-1). - Turbo Pascal
Дан массив натуральных чисел. Указать те, у которых остаток от деления на М равен L (0&lt;L&lt;M-1). подскажите мне пожалуйста

Дан массив натуральных чисел. Найти произведение элементов, кратных данному К - Turbo Pascal
Дан массив натуральных чисел. Найти произведение элементов, кратных данному К.

Дан массив натуральных чисел. Найти сумму элементов кратных данному К. - Turbo Pascal
Дан массив натуральных чисел. Найти сумму элементов кратных данному К.


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

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

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