PCTuning fórum

Dobrý den!Mooc se všem omlouvám,že otravuju!Já jsem už vážně poslední který tu potřebuje pomoct se závěrečnou zkouškou z Visual Basicu a jsem taky ze stejné třídy,jako ti ostatní studenti co tu prosili o pomoc!Já jsem teď v strašně moc velký krizy,protože jsem hodně chyběl ve škole na programování! Byl jsem na operaci nosní sliznice a dutin,do školy jsem přišel před 3 týdny.Tak že tam nemam vůbec žádnou známku.A právě na týto práci mi opravdu záležíí,protože to bude moje jediná známka! Proto vás mooooc prosím o pomoc...nechci dělat opravky!Moc dlouho jsem chyběl a hodně látky co probrali mi chybí! Budu vám moooc vděčnej a zavázán....pomocte mi prosíím....

Závěrečná práce z Visual Basica

1. Hodnotu proměnné Y zvětšete o 1.


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


3. Napište program,který bude číst čísla ze souboru "cisla.txt" a určí největší číslo.

4. Pomocí funkcí Dir a Shell naprogramujte test nové pošty se spouštěním programu PMAIL.

5. Napište část programu,která určí,zda hodnota proměnné X je kladná či nikoliv a vytiskne o tom zprávu.

6. Napište funkci,která sčítá řadu 1+1/3+1/9+1/27....,dokud členy řady nebudou menší než zadané EPSILON,které je parametrem této funkce.

7. Napište část programu,která vypisuje přirozená čísla od A do B,kde A a B jsou proměnné.

8. Do proměnné X přiřaďte hodnotu Y.

9. Napište program,který v oboru reálných čísel řeší rovnici ax2+bx+c=0 a to i v případě,že některá z čísel a,b,c jsou rovna nule.

10. Napište funkci MAXIMUM3,která bude vracet maximální hodnotu ze tří parametrů.


Doufám že mi pomůžete........vážně jsem na tom s programováním špatně! Předem vám moc děkuji.......Tomáš A.

Ma obvykla prvni odpoved, projdi si tech ostatnich, ted uz asi 6 threadu ) a protrid co uz je nekde napsany a pak napis jenom to co jeste nevis... Jinak nevedet, jak zvetsit hodnotu promenne o 1 nebo ji nastavit hodnotu x je fakt krize

//jinak zkracen nazev threadu

1. Hodnotu proměnné Y zvětšete o 1.


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


3. Napište program,který bude číst čísla ze souboru "cisla.txt" a určí největší číslo.

4. Pomocí funkcí Dir a Shell naprogramujte test nové pošty se spouštěním programu PMAIL.

6. Napište funkci,která sčítá řadu 1+1/3+1/9+1/27....,dokud členy řady nebudou menší než zadané EPSILON,které je parametrem této funkce.

8. Do proměnné X přiřaďte hodnotu Y.

9. Napište program,který v oboru reálných čísel řeší rovnici ax2+bx+c=0 a to i v případě,že některá z čísel a,b,c jsou rovna nule.

10. Napište funkci MAXIMUM3,která bude vracet maximální hodnotu ze tří parametrů.


Dííííky moooc...!;-)

1.
Y=Y+1

2.
nestacilo by si pockat na odpoved tady? http://forum.pctuning.cz/viewtopic.php?t=38482

3.
open app.path & "cisla.txt" for input as #1
dim max as integer
max = 0
dim s as string
do while not eof(1)
line input #1, s
if val(s) > max then max = val(s)
loop
close #1

4.
viz 2.

5.
to zadani by spis melo by dokud cleny rady BUDOU mensi nez zadane EPSILON
i tak je to imho blbost, pac kdyz bude EPSILON treba 5, tak se to muze scitat do nekonecna a stejne se nedostane vysledek...

8.
x=y

9.
vyreseno v http://forum.pctuning.cz/viewtopic.php?t=38482

10.
private function MAXIMUM3(a as double, b as double, c as double) as double
if a > b and a > c then MAXIMUM3 = a
if b > a and b > c then MAXIMUM3 = b
if c > a and c > b then MAXIMUM3 = c
end function

4. Pomocí funkcí Dir a Shell naprogramujte test nové pošty se spouštěním programu PMAIL.
8.To je celý??

4. odpovim ti jako tam: To nevim co si mam predstavit pod pojmem test nove posty...
8. ano, to je cely

Tu odpověď na 9. Napište program,který v oboru reálných čísel řeší rovnici ax2+bx+c=0 a to i v případě,že některá z čísel a,b,c jsou rovna nule.
jsem nenašel.

A tu 6. Napište funkci,která sčítá řadu 1+1/3+1/9+1/27....,dokud členy řady budou menší než zadané EPSILON,které je parametrem této funkce.


A 2. 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.
Tu jsem našel,ale bez odpovědi.

9. spatne si hledal, je to tady: http://forum.pctuning.cz/viewtopic.php?t=38482

Private Function CalcRce(a As Double, b As Double, c As Double)
Dim d As Double
Dim x1 As Double
Dim x2 As Double
d = b * b - 4 * a * c
x1 = (-b + Sqr(d)) / (2 * a)
x2 = (-b - Sqr(d)) / (2 * a)
List1.AddItem x1
List1.AddItem x2
End Function

6.
to uz sem si precet, takze je to mysleno, ze to je jako vzdy 1/X a provadet dokud X < EPSILON jo?
To by pak bylo
private function S(EPSILON as integer) as integer
dim x as integer
dim v as integer
dim c as integer
c = 1
v = 1
do
x = 3^c
if x > EPSILON then exit for
v = v + 1/x
c = c +1
loop
S = v
end function

2. Vzdyt ja taky psal, ze je bez odpovedi, ale ze si na odpoved muzes pockat v tom druhym threadu...
Jinak nejspis

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

5. Napište část programu,která určí,zda hodnota proměnné X je kladná či nikoliv a vytiskne o tom zprávu.

To je ta odpověď???
select case X
case > 0
msgbox "Kladne"
case = 0
msgbox "Nula"
case < 0
msgbox "Zaporne"
end select

No v podstate jo, akorat muzes zmenit "Kladne" na "Cislo je kladne", "Nula" na "Cislo je nula", pac nula neni ani kladny ani zaporny no a "Zaporne" muzes zmenit na "Cislo neni kladne" abys to mel presne

jinak jestli to chces jenom je/neni staci
if X >0 then msgbox "Cislo je kladne" else msgbox "Cislo neni kladne"

A tohle bude na konci?if X >0 then msgbox "Cislo je kladne"
else msgbox "Cislo neni kladne"

Ne, to je druha, jednodussi moznost, ktera rozlisi jenom je kladne/neni kladne, tamto rozlisi jeste nulu.

Díky moooc......zachránil jsi mě!;-))Jsem ti moc zavázán!!!Promiň že jsem tě s tim otravoval.Díky!Tomáš