0 / 0 / 0
Регистрация: 30.01.2014
Сообщений: 51
1

В начало каждого модуля должен быть помещен комментарий, описывающий функции данного модуля

03.02.2014, 06:14. Показов 1035. Ответов 4
Метки нет (Все метки)

Очень нужна ваша помощь. Пожалуйста, кто знает, помогите с этой задачей.
Задача на тему: Использование процедур и функций
Примечание: В начало каждого модуля должен быть помещен комментарий, описывающий функции данного модуля

Даны векторы A[10], B[10], C[10], каждый элемент которых имеет значение 1 или 0. Значение каждой компоненты вектора, имеющего максимальное число компонент со значением 0 (в предположении, что такой вектор только 1), заменить логической суммой значений соответствующих компонент двух других векторов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.02.2014, 06:14
Ответы с готовыми решениями:

Функции модуля работают, но самого модуля в книге не видно
Помогите, пожалуйста. Написал в модуле функцию. Использовал ее на листе и сохранил файл. Когда...

Вызов функции из модуля по имени модуля
Есть 2 модуля Модуль1 и Модуль2 В каждом из них есть паблик функция qwe() Вопрос: как из Модуль3...

Определить число соседств двух чисел одного знака, причем модуль первого числа должен быть меньше модуля второго числа
Написала программу, хочу проверить правильно ли сделала Даны натуральное число п, действительные...

Ошибка "'ScriptManager' должен быть помещен внутрь тега формы с параметром runat=server"
Прошу помощи,не могли бы вы объяснить ,пытаюсь работать с updatepanel для работы с ней нужен...

4
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,491
Записей в блоге: 1
03.02.2014, 09:18 2
Эм.А что за "логическая сумма"?
0
0 / 0 / 0
Регистрация: 30.01.2014
Сообщений: 51
03.02.2014, 09:39  [ТС] 3
CodeR, может имеется в виду логическое сложение (дизъюнкция) с её таблицей истинности.
0
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,491
Записей в блоге: 1
03.02.2014, 10:11 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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Const n=10;
Type mas=array[1..n] of 0..1;
Var A,B,C:mas;
    K:array[1..3] of byte;
    imax,i:byte;
Procedure Input(Var A:mas);{процедура заполнения массива случайными числами}
Var i:byte;
Begin
    For i:=1 to n do
     A[i]:=random(2);
End;
Procedure Output(A:mas;ch:char);{процедура вывода массива на экран}
Var i:byte;
Begin
    writeln('Массив ',ch);
    For i:=1 to n do
     write(A[i]:2);
    writeln;
End;
Function Kol(A:mas):byte;{процедура нахождения количества нулей в массиве}
Var i,k:byte;
Begin
    k:=0;
    For i:=1 to n do
     if A[i]=0 then inc(k);
    Kol:=k;
End;
Procedure Add(Var A:mas;B,C:mas);{логическая сумма}
Var i:byte;
Begin
    For i:=1 to n do
     A[i]:=ord((B[i]<>0) or (C[i]<>0));
End;
Begin
   Input(A);OutPut(A,'A');
   K[1]:=Kol(A);
   Input(B);OutPut(B,'B');
   K[2]:=Kol(B);
   Input(C);OutPut(C,'C');
   K[3]:=Kol(C);
   imax:=1;
   For i:=2 to 3 do
    if K[i]>K[imax] then imax:=i;
   Case imax of
    1:
    Begin
      writeln('Массив с max количеством нулей A там нулей = ',K[imax]);
      Add(A,B,C);
      OutPut(A,'A');
    End;
    2:
    Begin
      writeln('Массив с max количеством нулей B там нулей = ',K[imax]);
      Add(B,A,C);
      OutPut(B,'B');
    End;
    3:
    Begin
      writeln('Массив с max количеством нулей C там нулей = ',K[imax]);
      Add(C,A,B);
      OutPut(C,'C');
    End;
   End;
   readln;
End.
С модулями,если нужно сам разберёшься и перекинешь)
1
0 / 0 / 0
Регистрация: 30.01.2014
Сообщений: 51
03.02.2014, 10:38  [ТС] 5
Спасибо большое! Вы мне очень помогли.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.02.2014, 10:38
Помогаю со студенческими работами здесь

Как из одного модуля добраться к языковым переменным другого модуля? (Joomla 2.5)
Хочу сделать регистрацию в модальном окне. Для этого делаю модуль вставки html и вставляю форму...

Устранить ошибку отсутствия модуля exeptions при импорте модуля docx
Доброго времени суток! только начал знакомство с питоном, установил pip, pycharm и тд. Вот решил...

ПММ AEG. Нужна ремонтная документашка и прошивка силового модуля и модуля индикации
F55402VI0P 911676002 j24_cac01_02z003.dax 117384831 computime code: ELED046 ELECTROLUX CODE:...

запуск модуля из модуля (Sub test() CommandBars(1).Enabled = False load module2.test1 End Sub)
Sub test() CommandBars(1).Enabled = False load module2.test1 End Subвот что-то типа такого и не...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru