Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
fantomas995
21 / 6 / 0
Регистрация: 08.11.2012
Сообщений: 81
1

Допишите программу

12.03.2013, 20:25. Просмотров 299. Ответов 0
Метки нет (Все метки)

Помогите дописать 2 часть программы.
Вычислить :
а) Z=(s1+s2)/2
где s1 сумма положительных элементов массива X(n),s2-сумма отрицательных эл-тов массива Y(m). Для вычисления суммы указанных элементов использовать подпрограмму.
б)Вычислить суммы элементов находящихся в интервале от a до b,для данных двумерных таблиц X(n,m),Y(k,t)

Под а) у меня так получилось:
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
program pr1;
 
function pol(x: array[1..5] of integer):integer;
var a,n:integer;
begin
a:=0;
for n:=1 to 5 do
begin
if x[n]>0 then a:=a+x[n];
end;
pol:=a;
end;
 
function otr(y: array[1..7] of integer):integer;
var b,m:integer;
begin
b:=0;
for m:=1 to 7 do
begin
if y[m]<0 then b:=b+y[m];
end;
otr:=b;
end;
 
var n,m,s1,s2:integer;
z:real;
x:array [1..5] of integer;
y:array [1..7] of integer;
begin
randomize;
for n:=1 to 5 do
begin
x[n]:=random(10)-5;
write(x[n]:3);
end;
writeln;
for m:=1 to 7 do
begin
y[m]:=random(10)-5;
write(y[m]:3);
end;
writeln;
s1:=pol(x);
writeln('s1=',s1);
 
writeln;
s2:=otr(y);
writeln('s2=',s2);
 
writeln;
z:=(s1+s2)/2;
writeln('z=',z);
readln;
end.
А как под б)?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.03.2013, 20:25
Ответы с готовыми решениями:

Допишите программу
Дан двумерный массив A удалите в нем строку содержащую максимальное по модулю...

Допишите программу
Сформировать запись, имеющую следующую структуру type студент= record...

Допишите программу на матрицу
Здравствуйте, сделайте пожалуйста так, чтобы программа еще раз вывела ...

Допишите программу
Здравствуйте! У меня большая просьба к вам дописать пару функций в программу....

Пожалуйста допишите программу
Здесь два конструктора, нужно объявить класс main, если не сложно покажите как...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.03.2013, 20:25

Допишите прогу
Удалить из вещественного массива элементы, наименее отличающиеся от его...

Допишите код
ЗАДАЧА. Составить программу вычисления выражения с использованием функции...

ДОПИШИТЕ КОД )
Всем форумчан с наступающим поздравляю; Дописывайте код. Может что прикольное...


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

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

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