Ви не увійшли. Будь ласка, увійдіть або зареєструйтесь.
Ласкаво просимо вас на україномовний форум з програмування, веб-дизайну, SEO та всього пов'язаного з інтернетом та комп'ютерами.
Будемо вдячні, якщо ви поділитись посиланням на Replace.org.ua на інших ресурсах.
Для того щоб створювати теми та надсилати повідомлення вам потрібно Зареєструватись.
Український форум програмістів → Pascal/Delphi → сума перших 5 чисел без використання циклів
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися
В програмі потрібно знайти суму перших 5 додатних елементів масива, без використання циклів.
допоможіть доробити, я не знаю як без указання цикла знайти суму перших 5 додатніх чисел..
program sdfsd;
const n=9; k=5;
type
ar=array[1..n] of real;
label m1;
const a:ar=(2.8,-3.5,-2.1,4,6,8.1,6.2,9.5,1.1);
var
i:integer; s:real;
begin
i:=0; s:=0;
m1: i:=i+1;
if a[i]>0 then s:=s+a[i];
if i<k then goto m1;
writeln('suma=',s);
readln;
end.
Використовуй рекурсію, Люк!
lichmanmaksim
Один із варіантів у вашому коді - мітки. Але там потрібно ввести іще один лічильник, котрий буде відраховувати лише додатні елементи, а не усі підряд.
Torbins , як за допомогою міток таке зробити?!
Torbins , як за допомогою міток таке зробити?!
Мабуть, щільно заплющити очі і тричі сказати: "перехід назад - не цикл, перехід назад - не цикл, перехід назад - не цикл!"
Використовуй рекурсію, Люк!
Сума перших N додатніх елементів масиву - це:
Якщо перший елемент масиву додатній, то
результат - це сума перших N-1 додатніх елементів масиву без першого елемента
інакше
результат - це сума перших N додатніх елементів масиву без першого елемента.Torbins , як за допомогою міток таке зробити?!
Так само, як зроблено у коді з першого посту, тільки додати іще одну змінну. Ви ж писали цей код, маєте розуміти, як він працює. Чи не ви?
bunyk
Боюся рекурсію вони ще не проходили.
Torbins, та я писав, просто після 5-годинного марафону роботи над курсовою, ту уже нічого не розумієш і дивися на код як на звичайний текст
я пробував знову зробити через ці мітки, але не виходить, пробував робити так як ви говорили, для початку знайти всі елементи масиву більші 0, але потім завтрявав на внесенні до нового масиву цих чисел та закінченням використання мітки.
koala, ну то скажіть "доступною мовою", а не як завжди, своєю "остроумністю", як це зробити без використання циклів, якщо ви такий розумний)
Я серйозно: якщо взагалі без циклів, то єдиний варіант - рекурсія. Ви не знаєте, що таке рекурсія? Продемонструйте, що хоч щось спробували почитати на цю тему, покажіть новий код (наприклад, за bunyk-овим псевдокодом) - допоможемо довести до ладу.
Якщо ж мова тільки про repeat, while і for, то можна поставити мітку, як ви і зробили.
koala, ну ось, вона працює але тільки для заданого прикладу, для інших я так розумію будуть збої.
program sdfsd;
const k=5;
type
ar=array[1..9] of real;
label m1,m;
const a:ar=(2.8,-3.5,-2.1,4,6,8.1,6.2,9.5,1.1);
var
i:integer; s:real;
begin
i:=0; s:=0;
m1: i:=i+1;
if a[i]>0 then s:=s+a[i];
if i<7 then goto m1;
writeln('suma=',s);
readln;
end.А, в цьому сенсі... ну то
m1: i:=i+1;
if a[i]>0 then begin
s:=s+a[i];
positive := positive + 1;
end;
if ( i <= 9 ) and ( positive < 5) then
goto m1;
Рекурсивним методом:
type
TArray = array[1..100] of integer;
var
havePositive : integer; //лічильник додатніх чисел
sum : integer; // сума елементів
procedure withoutCycle(A : TArray; n : integer; index : integer);
begin
if (index = 1) then //якщо масив заповнюємо з 1
begin
havePositive := 0;
sum := 0;
end;
{ якщо вже отримали 5 додатніх або відбувається переповнення(індекс виходить
за кількість елеменів в масиві) }
if (havePositive = 5) or ( index > n) then exit;
if (A[index] > 0) then
begin
sum := sum + A[index];
havePositive:= havePositive + 1;
end;
withoutCycle(a,n,index + 1); // викликаємо рекурсивно
end;
var
A : TArray;
i,n : integer;
begin
read(n);
for i := 1 to n do { зчитування робимо без циклу}
read(a[i]);
withoutCycle(A,n,1);
writeln(sum);
readln;
readln
end.Варто було б змінні havePositive та sum занести в список переметрів процедури та забрати оцей кусок коду:
var
havePositive : integer; //лічильник додатніх чисел
sum : integerз мітками буде легше.
1: якщо лічильник ; кількість´то
початок
додав число;
додав лічильник';
поернувся до 1;
кінець;
вивести суму;
type
TArray = array[1..100] of integer;
function withoutCycle(var A : TArray; index, left : integer):integer;
begin
result := 0;
if (left > 0) and (index < 100) then begin
if A[ index ] > 0 then result := A[ index ] + withoutCycle(A, index + 1, left -1 )
else result := withoutCycle(A, index + 1, left )
end
end;
...
writeln(withoutCycle(A,1,5));так красивіше, як на мене.
Сторінки 1
Для відправлення відповіді ви повинні увійти або зареєструватися