модульное программирование (процедуры-подпрограммы)

@44Victory44 · Регистрация: 19.10.2010

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

Даны два вектора: A(10) и B(11). Вычислить z=cd, где c- колличество положительных элементов вектора A, d- колличество отрицательных элементов вектора B. Все вычисления оформить процедурами. Аналогично для векторов С(5) и D(17).

если можнно напишите пожалуйста с пояснениями)

@SuPeR XaKer · 24.10.2010, 11:43

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
{положительные массива A}
kolpA:=0;
for i:=1 to 10 do
if a[i]>0 then
begin
kolpA:=kolpA+1;
end;
writeln(kolpA);
writeln;
{отрицательные массива B}
koloB:=0;
for i:=1 to 11 do
if b[i]<0 then
begin
koloB:=koloB+1;
end;
writeln(koloB);
writeln;
{ну и произведение}
z:=kolpA*koloB;
writeln(z);

@AI\EKCAH^P · 24.10.2010, 12:53

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
Program zad1;
uses crt;
type mas=array[1..20] of integer;
var
a,b:mas;
z,i,c,d:integer;
 
procedure vvod(N:integer;var vector:mas);
var
 
i:integer;
begin
  randomize;
  for i:=1 to n do
  begin
    vector[i]:=random(101)-50;
    write(vector[i]:3);
  end;
  writeln;
end;
 
procedure kol_C(var c:integer);
var
a:mas;
i:integer;
begin
 
  vvod(10,a);
  for i:=1 to 10 do
  begin
 
    if a[i]>=0 then
    begin
 
      c:=c+1;
 
    end;
  end;
 
  writeln('колличество положительных элементов вектора А равно ',c);
end;
 
procedure kol_D(var d:integer);
var
b:mas;
i:integer;
begin
 
  vvod(11,b);
  for i:=1 to 11 do
  begin
    if b[i]<0 then
    begin
 
      d:=d+1;
 
    end;
  end;
 
  writeln('колличество отрицательных элементов вектора B равно ',d);
end;
procedure pr_Z(c,d:integer;var z:integer);
begin
  z:=c*d;
  writeln;
  writeln('произведение равно Z=',z);
end;
 
BEGIN
  clrscr;
  c:=0;
  d:=0;
  kol_C(c);
  kol_D(d);
  pr_Z(c,d,z);
  readln;
END.

Для векторов С(5) и D(17) сделаешь сам надеюсь.

@AI\EKCAH^P · 24.10.2010, 12:55

Вот скриншот результата

@44Victory44 · 24.10.2010, 14:17 **[ТС]**

спасибо большое *)))))))))))

@44Victory44 · 10.11.2010, 15:18 **[ТС]**

вот мой конечный результат)

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
Program 8;
uses crt;
type massiv=array[1..20] of integer;
var A,B,C,D,m:massiv;
    i,n,e,f,z:integer;
 
procedure P1(N:integer;var vector:massiv);
begin
randomize;
  for i:=1 to n do
   begin
    vector[i]:=random(101)-50;
    write(vector[i]:5);
   end;
writeln;
end;
 
function Pol(m:massiv; n:integer):real;
begin
 for i:=1 to n do
  begin
   if m[i]>=0 then
   e:=e+1;
   pol:=e;
  end;
end;
 
function Otr(m:massiv; n:integer):real;
begin
  for i:=1 to n do
   begin
    if m[i]<0 then
    f:=f+1;
    otr:=f;
   end;
end;
 
function Pro(e,f:integer):real;
begin
 z:=e*f;
 pro:=z;
end;
 
BEGIN
  clrscr;
  P1(10,A);
  pol(A,10);
  writeln('+A=',e);
  P1(11,B);
  Otr(B,11);
  writeln('-B=',f);
  Pro (e,f);
  writeln('произведение',z);
  writeln;
  P1(5,C);
  pol(C,5);
  writeln('+C=',e);
  P1(17,D);
  Otr(D,17);
  writeln('-D=',f);
  Pro (e,f);
  writeln('произведение=',z);
END.

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

@44Victory44 0 / 0 / 0 Регистрация: 19.10.2010 Сообщений: 27

	модульное программирование (процедуры-подпрограммы) 24.10.2010, 11:33. Показов 931. Ответов 5 Метки нет (Все метки) Даны два вектора: A(10) и B(11). Вычислить z=cd, где c- колличество положительных элементов вектора A, d- колличество отрицательных элементов вектора B. Все вычисления оформить процедурами. Аналогично для векторов С(5) и D(17). если можнно напишите пожалуйста с пояснениями) 0

@AI\EKCAH^P $Аватар для AI\EKCAH^P$ 105 / 102 / 89 Регистрация: 18.05.2009 Сообщений: 201
	24.10.2010, 12:55
	Вот скриншот результата Миниатюры 1

@44Victory44 0 / 0 / 0 Регистрация: 19.10.2010 Сообщений: 27
	24.10.2010, 14:17 [ТС]
	спасибо большое *))))))))))) 0