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

@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.

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

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

	модульное программирование (процедуры-подпрограммы) 24.10.2010, 11:33. Показов 925. Ответов 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