Kezdőoldal » Számítástechnika » Programozás » Elmagyarázza valaki hogy kell...

Elmagyarázza valaki hogy kell ezeket a feladatokat Visual Basic-ben megoldani?

Figyelt kérdés

első feladat : Írjunk programot, amely kiszámítja az elsõ 100 természetes szám négyzetének összegét!

második : Adott egy pont két koordinátájával. Állapítsuk meg melyik síknegyedben van!

(Console app.-ba kéne)



2013. okt. 5. 09:06
 1/5 anonim ***** válasza:

első feladat:

osszeg=0

for ciklus 1-től 100-ig (i)

...osszeg=osszeg+i*i

kiírod az eredményt


második feladat:

ez négy if, a feltétel mind a négy esetben két koordináta előjelének megállapítását és egy ÉS kapcsolatot tartalmaz (persze máshogy is lehet, de ez a legátláthatóbb)

A négy síknegyedről itt tájékozódhatsz:

[link]

2013. okt. 5. 11:47
Hasznos számodra ez a válasz?
 2/5 anonim ***** válasza:

végigmész az első 100 számon, egy ciklussal, tehát 1-től 100 ig (i változóval mondjuk). Kiszámolod a 1 négyzetét 1*1, 2 négyzetét 2*2 stb, tehát i*i-t, és kiíratod.

Valahogy így (bár még sosem programoztam VB-ben)


For i = 1 To 5

Console.WriteLine(i)

Next



A második feladatnál ugye ha mindkét szám (x,y) pozitív, akkor 1. síknegyed, ha x negatív, y pozitív, akkor 2., ha x és y negatív, akkor 3. és ha x pozitív és y negatív, akkor 4. síknegyed.

Tehát

(+,+) 1.

(-,+) 2.

(-,-) 3.

(-,+) 4.

2013. okt. 7. 20:32
Hasznos számodra ez a válasz?
 3/5 anonim ***** válasza:

Tehát valahogy így kellene kinézni a kódot (hibákért felelősséget nem vállalok, egyáltalán nem teszteltem:D )


Console.Write("Legyen mondjuk x= ");

Dim x=Console.ReadLine();

Console.Write("Legyen esetleg y= ");

Dim y=Console.ReadLine();


If x>=0 And y>=0 Then

Console.WriteLine("1. negyed")

Else If x<0 And y>=0 Then

Console.WriteLine("2. negyed")

Else If x<0 And y<0 Then

Console.WriteLine("3. negyed")

Else Console.WriteLine("4. negyed")

2013. okt. 7. 20:43
Hasznos számodra ez a válasz?
 4/5 anonim ***** válasza:

Ja és bocsi, hülye vagyok, az első feladatot rosszul olvastam el. NÉGYZETSZÁMOK ÖSSZEGE kell.


Tehát kezdesz egy változót 0-val kezdőértékezve:

Dim osszeg As Integer = 0


Majd a ciklus i*i-t hozzáad az osszeghez:

Let osszeg = osszeg + i*i

2013. okt. 7. 20:47
Hasznos számodra ez a válasz?
 5/5 anonim ***** válasza:
Mi a konkrét kérdésed, hol akadtál el?
2014. jan. 27. 22:20
Hasznos számodra ez a válasz?

Kapcsolódó kérdések:




Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!