Помощь - Поиск - Пользователи - Календарь
Полная версия: Процедуры и функции
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Selena
Помогите, пожалуйста! Я никак не могу найти ошибку в проге.
Вот мое задание:
Дан вектор A[1:35]. Получить сумму и количество элементов, кратных 2, находящихся в диапазоне [-12:+7] и сумму и количество элементов, кратных 3 находящихся в диапазоне [5:21]. Получение суммы или количества элементов в заданном диапазоне и заданной кратности реализовать одной функцией и одной процедурой.

Программа счетает сумму и количество элементов неправилно.
Вот прога, только она пока без функции:
Program lab_6;
Uses WinCrt;
Type
mas1=array[1..50] of integer;
mas2=array[1..10,1..10] of integer;
Var
sp1,sp2, s1, s2:Integer; A:mas1; kp1, kp2, k1, k2:Byte;
Procedure FormVek(na:Byte;Pa,Qa:integer;Var Aa:mas1);
Var i:Byte;
Begin
For i:=1 to na do Aa[i]:=Random(Qa-Pa)+Pa;
End;

Procedure VyvodVek(na:Byte;Var Aa:mas1);
Var i:Byte;
Begin
For i:=1 to na do
Write(Aa[i]:3,' ');
writeLn('');
End;

Procedure Summa1(Aa:mas1;na:byte;Var s1:integer; Var s2:integer; Var k1:byte; Var k2:Byte);
Var i:Byte;
Begin
S1:=0;S2:=0;k1:=0;k2:=0;
For i:=1 to na do
Begin
If (Aa[i]>=-12)or(Aa[i]<=7)
Then If Aa[i] mod 2=0
Then Begin s1:=s1+Aa[i]; k1:=k1+1;end;
end;

For i:=1 to na do
begin
If (Aa[i]>=5)or(Aa[i]<=21)
Then If Aa[i] mod 3=0
Then begin s2:=s2+Aa[i];k2:=k2+1;end;
end;
end;



Begin
FormVek(35,-12,21,A);
VyvodVek(35, A);
Summa1(A,35,s1,s2, k1, k2); sp1:=s1; kp1:=k1;
Summa1(A,35,s1,s2, k1, k2);sp2:=s2; kp2:=k2;
WriteLn('sp1= ', sp1:5);
WriteLn('sp2= ', sp2:5);
WriteLn('kp1= ', kp1:5);
WriteLn('kp2= ', kp2:5);
End.
.
volvo
Все делай в одном цикле, зачем тебе второй?
For i:=1 to na do begin
If (Aa[i]>=-12) and (Aa[i]<=7) and ((Aa[i] mod 2)=0) then begin { AND а не OR }
s1:=s1+Aa[i]; k1:=k1+1;
end;

If (Aa[i]>=5) and (Aa[i]<=21) and ((Aa[i] mod 3)=0) then begin { AND а не OR }
s2:=s2+Aa[i];k2:=k2+1;
end;
end;
Selena
Точно!!!!!!!! Я похоже презанималась. Ограмное спасибо.

Можно еще вопрос?

Тоже самое задание только сделанос помощью функции.
Как в нем посчитать количество элементов? Или это надо делать в отдельной функции?

Program lab_6;
Uses WinCrt;
Type
mas1=array[1..50] of integer;
mas2=array[1..10,1..10] of integer;
Var
sp1,sp2, s1, s2:Integer; A:mas1; kp1, kp2, k1, k2:Byte;

Procedure FormVek(na:Byte;Pa,Qa:integer;Var Aa:mas1);
Var i:Byte;
Begin
For i:=1 to na do Aa[i]:=Random(Qa-Pa)+Pa;
End;

Procedure VyvodVek(na:Byte;Var Aa:mas1);
Var i:Byte;
Begin
For i:=1 to na do
Write(Aa[i]:3,' ');
writeLn('');
End;

Function Summa2(Aa:mas1; na,priz:Byte):Integer;
Var i:byte; s1,s2:Integer;
begin
S1:=0;S2:=0;
For i:=1 to na do begin
If (Aa[i]>=-12) and (Aa[i]<=7) and ((Aa[i] mod 2)=0) then
s1:=s1+Aa[i];
If (Aa[i]>=5) and (Aa[i]<=21) and ((Aa[i] mod 3)=0) then
s2:=s2+Aa[i];
end;
Case priz of
1: Summa2:=s1;
0: Summa2:=s2;
end; end;



Begin
FormVek(35,-12,21,A);
VyvodVek(35, A);
sp1:=Summa2(A,35,1);
sp2:=Summa2(A,35,0);
WriteLn('sp1= ', sp1:5);
WriteLn('sp2= ', sp2:5);
End.
.
volvo
Selena, я бы сделал так:
Function Sum(Aa:mas1; na:byte;
RangeStart, RangeFinish: integer; Divider: byte; Var k:byte): integer;
Var i:Byte;
Begin
S := 0; k :=0;
For i := 1 to na do begin
If (Aa[i]>=RangeStart) and (Aa[i]<=RangeFinish) and
((Aa[i] mod Divider) = 0) Then Begin
s := s + Aa[i]; k := k + 1;
end;
Sum := s;
End;

И вызов:
Var
K1, K2: integer;
Begin
FormVek(35,-12,21,A);
VyvodVek(35, A);
sp1 := Sum(A, 35, -12, 7, 2, K1); { Вот так... }
sp2 := Sum(A, 35, 5, 21, 3, K2);
WriteLn('sp1= ', sp1:5);
WriteLn('sp2= ', sp2:5);
...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.