Паскал - Pascal

[~angela~]

Да се одреди збирот
1+(1+2)+(1+2+3)+...+(1+2+3+....n)
Подзадача:Одредување на збир на броевите до к;


aj pls da ja resi nekoj zadacava!!!!!!!

 

[Intex]

Да се одреди збирот
1+(1+2)+(1+2+3)+...+(1+2+3+....n)
Подзадача:Одредување на збир на броевите до к;


aj pls da ja resi nekoj zadacava!!!!!!!

Хах, истава задача ја имав на тест у втора по програмски, и јееј, само јас ја имав решено од цел клас.

Program Mirce;
Var N,A,Suma,Podsuma:intereger;
Begin
WriteLn ('Vnesete go N');
readln (N);
For A:=1 to N Do
Begin
Podsuma:=Podsuma+A;
Suma:=Suma+Podsuma;
END;
WriteLn ('Zbirot e ', Suma);
readln;
END.

 

[~angela~]

Хах, истава задача ја имав на тест у втора по програмски, и јееј, само јас ја имав решено од цел клас.

mi treba so PODFUNKCII ZATOA INACE JA IMAM RESENO TAKA

 

[Intex]

mi treba so PODFUNKCII ZATOA INACE JA IMAM RESENO TAKA

Чекај, чекај, какви подфункции? Шо всушност треба да праат тие подфункции?

 

[~angela~]

Чекај, чекај, какви подфункции? Шо всушност треба да праат тие подфункции?

epa podfunkcijata ti e odreduvanje na toj podzbir, a posle vo zadacata treba samo da ja povikas funkcijata

znae li nekoj drug da ja resiiiiii???

 

[Детелина]

Да се одреди збирот
1+(1+2)+(1+2+3)+...+(1+2+3+....n)
Подзадача:Одредување на збир на броевите до к;


aj pls da ja resi nekoj zadacava!!!!!!!

Истава и мене ми треба со while и do знае некој на таков начин да ја реши?

 

[son_goku]

epa podfunkcijata ti e odreduvanje na toj podzbir, a posle vo zadacata treba samo da ja povikas funkcijata

znae li nekoj drug da ja resiiiiii???

Што е толку тешко? Само ја ставаш пресметката од кодот на Др. Кулен во функција, а читањето и запишувањето го оставаш во главниот begin.

Program Mirce;
Var N:integer;

function funkcija(N:integer):integer;
var A,Suma,Podsuma:integer;
begin
For A:=1 to N Do
 Begin
 Podsuma:=Podsuma+A;
 Suma:=Suma+Podsuma;
 END;
funkcija:=suma;
end;

Begin
WriteLn ('Vnesete go N');
readln (N);
WriteLn ('Zbirot e:', funkcija(N));
readln;
END.

Истава и мене ми треба со while и do знае некој на таков начин да ја реши?

Го правиш истото како и горе само што наместо for циклусот ќе ставиш:

A:=1;
while (A<=N) do
begin
 пресметки
 inc(A);
end;

 

[~angela~]

Што е толку тешко? Само ја ставаш пресметката од кодот на Др. Кулен во функција, а читањето и запишувањето го оставаш во главниот begin.

Program Mirce;
Var N:integer;

function funkcija(N:integer):integer;
var A,Suma,Podsuma:integer;
begin
For A:=1 to N Do
 Begin
 Podsuma:=Podsuma+A;
 Suma:=Suma+Podsuma;
 END;
funkcija:=suma;
end;

Begin
WriteLn ('Vnesete go N');
readln (N);
WriteLn ('Zbirot e:', funkcija(N));
readln;
END.

Го правиш истото како и горе само што наместо for циклусот ќе ставиш:

A:=1;
while (A<=N) do
begin
 пресметки
 inc(A);
end;

falaaaa smao veke me mrzi da tupam glava cel den se ostaiv so zadacive, ne mi ide bas pascal najdobro

 

[Детелина]

Што е толку тешко? Само ја ставаш пресметката од кодот на Др. Кулен во функција, а читањето и запишувањето го оставаш во главниот begin.

Program Mirce;
Var N:integer;

function funkcija(N:integer):integer;
var A,Suma,Podsuma:integer;
begin
For A:=1 to N Do
 Begin
 Podsuma:=Podsuma+A;
 Suma:=Suma+Podsuma;
 END;
funkcija:=suma;
end;

Begin
WriteLn ('Vnesete go N');
readln (N);
WriteLn ('Zbirot e:', funkcija(N));
readln;
END.

Го правиш истото како и горе само што наместо for циклусот ќе ставиш:

A:=1;
while (A<=N) do
begin
 пресметки
 inc(A);
end;

фала, успеав некако да ја рашам.

дали ја знае некој задачава да ја реши со while i do
Да се пресмета сумата на
S=1/2-2/3+3/4.......(-1)на n*(n-1)/n

 

[Intex]

фала, успеав некако да ја рашам.

дали ја знае некој задачава да ја реши со while i do
Да се пресмета сумата на
S=1/2-2/3+3/4.......(-1)на n*(n-1)/n

Не сфатив како иде, објасни, па ќе ти ја решам.
S=(1/2)-(2/3) и после иде плус или минус ... или погрешно сфатив?

 

[Детелина]

S=(1/2)-(2/3)+(3/4).......(-1)на n*(n-1)/n вака иде сумата

 

[Rokerot]

IS THERE ANY WAY да се сејвира output-от што излага од програмата во текст фајл или некој начин за mark & copy као во cmd што има, или copy to clipboard опција.. anything... Пример ако имам

write('Bla')'
write('-Bla');

Тоа Bla-Bla што ќе ми излезе коа ќе ја дебагирам програмата сакам да му напраам некако copy... Ideas? :uvo:

 

[fuUuUzZzZy]

Секако дека може. Разгледај конктретни примери.

 

[Rokerot]

Хм, таман, фала :wink: ... А за copy-paste или mark као во cmd, нема ништо а?

 

[fuUuUzZzZy]

За Visual Basic или делфи ќе ти кажев код, а за паскал..

хммз.. немам до сега начекано