PCTuning fórum

Věřím že už toho máte asi trochu dost, ale programování není moje silná strámka a proto mam stejmý problém s prací z VISUAL BASICU, jako mí kámoši ze třídy. Takže jestli se tu najde aspoň jeden člověk, který si s tím dá práci a pomůze budu mu moc vděčnej. Dík všem.Jo a měco málo jsem už udělal, takže toho neni tolik.

1. Napište program, který výřeší následující úlohu. Při dělení jistého přírozeného čísla čísly 19 a 99 vyjdou jako zbytky dvě prvočísla. Součet obou neúplných podílu se rovná 1999. Určete dělené číslo.

2. Napište proceduru HVEZDICKY, která na FORM1 vytiskne obdelník hvězdiček s R a S sloupci, kde R a S jsou parametry procedury HVEZDICKY.

3. Napište funkci NSD, která určuje největšího společného dělitele dvou čísel pomocí Euklidova algoritmu. Euklidův agoritmus: od většího čísla odečítejte menší a menší nechávejt beze změny. To opakujte tak dlouho, dokud nedostanetestejná čísla.

4. Napište funkci PRUMER, která vrátí aritmetický průměr prvků v poli P.

5. Napište program, který bude číst čísla ze souboru "cisla.txt" a určí, kolikrát je v uvedeném soubou číslo nula.

6. Programem vytvořte soubor "cisla.txt" a zapiste do něj 200 náhodných celých čísel v rozsahu -10 až 50.

To je všechno DÍK VŠEM.

//€agle - upraven nazev threadu

4.
(N=pocet prvku v poli)
private function PRUMER(pole() as integer) as double
dim v as double
v=0
for i = 1 to N
v = v + pole(i)
next i
v = v / N
PRUMER = v
end function

5.
open app.path & "cisla.txt" for input as #1
dim p as integer
dim cis as string
do while not eof(1)
line input #1, cis
if val(cis) = 0 then p = p + 1
loop
msgbox str(p)
close #1

6.
open app.path & "cisla.txt" for output as #1
for i = 1 to 200
print #1, str(int(rnd*60)-10)
next i
close #1

Funkcnost nezarucuju, zbytek MOZNA dodam pozdeji

1.
jestli sem to spravne pochopil, tak takhle:

Dim i As Integer
i = 10000
Do
i = i + 1
If (Int(i / 19) + Int(i / 99)) = 1999 Then MsgBox i: Exit Do
DoEvents
Loop

2.
Private Function HVEZDICKY(R As Integer, S As Integer)
Dim t As String
t = ""
For i = 1 To S
t = t + "*"
Next i
For i = 1 To R
Form1.Print t
Next i
End Function

3.
private function NSD(x as integer, y as integer) as integer
do while x<>y
if x>y then x = x-y else y=y-x
loop
NSD = x
end function