PCTuning fórum

Takže asi to neni už vtipný, ale kámoš tady uspěl takže se pokusim o něco podobnýho. Mám uplně stejnem problém protože jsme ve stejný třídě - Visual Basic a naše špatný programátorský schopnosti:-/
Jestli se teda ještě někdo obětuje a dá si tu práci, budu jen rád. Něco jsem už vyřešil sám, ale na tohle asi ještě nemám..

1.. Napište proceduru UlozP, která vytiskne obsah pole P (jednotlivé prvky) do souboru “PoleP.txt“.

2.Napište funkci KOLIKRAT, která vrátí počet výskytů svého parametru v poli P.

3. Naprogramujte uživatelskou funkci F, která je dána předpisem F(x)=2*x+3.

4. Napište logickou funkci PRVOCISLO, která určí, zda zadané číslo N je prvočíslo tak, že se jej pokusí bezezbytku vydělit všemi čísly od 2 do sqr(N).

5.. Napište proceduru P3, která vytiskne N členů posloupnosti 5,-10,15,-20,25,...

6.Napište logickou funkci LF1, která bude vracet TRUE, jestliže její parametr bude kladné číslo menší než 10.

7. Pomocí ovládacího prvku Timer naprogramujte pohybující se obrázek.

díík

1.
(N = pocet prvku v poli)
open app.path & "PoleP.txt" for output as #1
for i = 1 to N
print #1, P(i) // pokud by pole nebylo string, tak radsi str(P(i))
next i
close #1

2.
private function KOLIKRAT(txt as //typ promene) as integer
a=0
for i = 1 to N
if P(i) = txt then a = a +1
next i
KOLIKRAT = a
end function

3.
private function F(x as integer) as integer
F = 2*x+3
end function

4.
private function PRVOCISLO(N as integer) as boolean
for i = 2 to sqr(N)
if N / i = int(N/i) then a=a+1
next i
if a > 0 then PRVOCISLO = false else prvocislo = true
end function

5.
(listbox list1) //pro vystup
private function P3(N as integer)
a = 0
for i = 1 to N
if a = 0 then list1.additem (5*N) else list1.additem (-5*N)
if a = 0 then a = 1 else a = 0
next i
end function

6.
private function LF1(N as integer) as boolean
if N < 10 and N=>0 then LF1=true else LF1 = false
end function

7.
(o - obrazek)
do volani jmenotimeru - timer napsat
o.x = o.x + 1 //posun obrazku po ose X

Snad nejak takhle, za chyby nerucim