Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
2 / 0 / 0
Регистрация: 26.10.2013
Сообщений: 36
1

Сформировать массив, в элементах которого содержится количество 5 в трёх других массивах (процедуры)

25.04.2014, 19:10. Просмотров 1003. Ответов 1
Метки нет (Все метки)


Дано: L(6), X(8), Y(9). Сформировать массив Z (3), где Z (1)- количество чисел 5 в массиве L, Z (2)- количество чисел 5 в массиве X , Z (3) - количество чисел 5 в массиве Y. Вычисление количества чисел 5 в массиве оформить в виде подпрограммы.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.04.2014, 19:10
Ответы с готовыми решениями:

Процедуры: Сформировать 4-ый массив, каждый элемент которого равен максимальному элементу из трёх массивов
Пожалуйста, помогите решить задачу!!! Тема: "Применение процедур при работе с массивами" Даны три...

Сформировать массив Z, в состав которого включить элементы, которые одновременно содержатся в массивах X и Y
Заданы массивы X и Y каждый из которых содержит неповторяющиеся элементы. Сформировать массив Z...

Процедуры: Сформировать массив X(N), n-ый член которого определяется формулой X(N)=1/N!
Сформировать массив X(N), n-ый член которого определяется формулой X(N)=1/N!

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

1
399 / 378 / 408
Регистрация: 14.09.2013
Сообщений: 1,204
25.04.2014, 19:28 2
Лучший ответ Сообщение было отмечено Юрий48 как решение

Решение

как-то так, но можно лучше
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
uses crt;
type mas=array[1..10] of integer;
var a,b,c,d:mas;
procedure invect(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  x[i]:=random(i+n);
end;
procedure outvect(var x:mas;n:integer);
 var i:integer;
begin
 for i:=1 to n do
  write(x[i]:4);
end;
procedure newvect(var xa,xb,xc,x:mas;n,m,p:integer);
 var i,k,l,j:integer;
begin
k:=0;
 for i:=1 to n do
  begin
  if xa[i]=5 then
     inc(k);
  if xb[i]=5 then
   inc(j);
  if xc[i]=5 then
   inc(l);
  end;
 x[1]:=k;
 x[2]:=j;
 x[3]:=l;
end;
begin
 clrscr;
  writeln('Ïåðâûé ìàññèâ :');
   invect(a,6);
   outvect(a,6);
 writeln;
  writeln('Âòîðîé ìàññèâ :');
   invect(b,8);
   outvect(b,8);
 writeln;
  writeln('Òðåòèé ìàññèâ :');
   invect(c,9);
   outvect(c,9);
   newvect(a,b,c,d,6,8,9);
  writeln;
   writeln('Íîâûé ìàññèâ :');
    outvect(d,3);
 writeln;
 
 readkey;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.04.2014, 19:28

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Сформировать новый массив, элементы которого будут равны максимальному из трех соседних элементов
Собсно, нужна помощь в написании 3х программ. №1 Ввести одномерный массив. Сформировать новый...

Сформировать массив, i-й элемент которого содержит количество повторений i-го элемента массива А
Дан массив А размера n. Сформировать массив той же размерности , i-й элемент которого содержит...

Сформировать массив, элементы которого содержат количество букв в словах предложения
Сформировать массив, элементы которого содержат количество букв в словах предложения.

Сформировать массив, элементы которого насчитывают количество букв в словах предложения
Сформировать массив, элементы которого насчитывают количество букв в словах предложения.

Сформировать матрицу D из трех других матриц
не работает процедура подскажите что не правильно.Нужно сформировать матрицу D Aij=(–i/4+1)·j/2...

Массив вызванный из процедуры имеет значение во всех элементах 0
Массив вызванный из процедуры равен во всех элементах 0. procedure masFunction(key:boolean); ...


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

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

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