Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
SMOTRA_42rus
0 / 0 / 0
Регистрация: 07.02.2013
Сообщений: 7
1

Использование процедур и функций

09.02.2013, 19:43. Просмотров 974. Ответов 1
Метки нет (Все метки)

Использование процедур и функций. Дан интервал (с,d) и два произвольных массива Q, W размера n, k соответственно. Найти сумму отрицательных элементов массива Q, не попадающих в интервал (с,d), и сумму отрицательных элементов массива W, не попадающих в интервал (с,d). Исходные данные взять самостоятельно.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.02.2013, 19:43
Ответы с готовыми решениями:

Использование процедур и функций
Даны три произвольных массива Е, S, С размера n, m, k соответственно. Найти среднее геометрическое...

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

Использование процедур и функций
1.Определить сумму и количество положительных элементов массива Xi, (i = 1,...,15) . Увеличить все...

Использование процедур и функций

Использование процедур и функций.
Даны координаты вершин двух треугольников. Определить, какой из них имеет большую площадь.

1
Nikitko_Cent
144 / 114 / 37
Регистрация: 27.10.2011
Сообщений: 690
Завершенные тесты: 3
09.02.2013, 22:00 2
Лучший ответ Сообщение было отмечено SMOTRA_42rus как решение

Решение

Цитата Сообщение от SMOTRA_42rus Посмотреть сообщение
Использование процедур и функций. Дан интервал (с,d) и два произвольных массива Q, W размера n, k соответственно. Найти сумму отрицательных элементов массива Q, не попадающих в интервал (с,d), и сумму отрицательных элементов массива W, не попадающих в интервал (с,d). Исходные данные взять самостоятельно.
Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Math;
 
var C,D,N,K,i: integer;
    Input: TextFile;
    Q,W: array of integer;
    summ: integer=0;
begin
  //===============READ INPUT==========
    AssignFile(Input, 'INPUT.TXT');
    Reset(Input);
 
    Readln(Input, C, D);
    Readln(Input, N, K);
 
    SetLength(Q, N);
    SetLength(W, K);
 
    for i := 0 to N-2 do
      read(Input, Q[i]);
 
    readln(Input, Q[i]);
 
    for i := 0 to K-1 do
      read(Input, W[i]);
 
    CloseFile(Input);
  //===================================
  //================SOURCE=============
    for i := 0 to N-1 do
      if (Q[i]<0) and ((Q[i]<min(C,D)) or (Q[i]>max(C,D))) then
        summ:=summ+Q[i];
 
    Writeln('Sum from Q: ', summ);
 
    summ:=0;
    for i := 0 to K-1 do
      if (W[i]<0) and ((W[i]<min(C,D)) or (W[i]>max(C,D))) then
        summ:=summ+W[i];
 
    Writeln('Sum frow W: ', summ);
 
    readln;
end.
Структура INPUT.TXT :
1ая строка: через пробел, числа C и D, задающие интервал
2ая строка: числа N и K, задающие размеры массивов Q и W
3ая строка: N чисел массива Q
4ая строка: K чисел массива W
Пример содержимого INPUT.TXT:
-15 -20
5 7
-365 -20 -21 -18 -665
-984 -5 58 0 -19 -78 62
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.02.2013, 22:00

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

Использование переменных в названиях процедур/функций
Есть много чекбоксов(14шт). Как сделать цикл, который проверяет каждый чекбокс, отмечен ли он? ...

Возможно ли использование процедур и функций сторонней DLL
Если у меня есть dll драйвера видеокарты, и я знаю некоторые функции из неё, я могу обратиться к...


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

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

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