Az eldöntés

Adott egy n elemű M sorozat, és az elemein értelmezett T tulajdonság. Döntsük el, hogy van-e legalább egy olyan elem a sorozatban, amely rendelkezik a T tulajdonsággal!

A megvalósítás gondolatmenete:

Induljunk el a számsorozat első elemétől, és vizsgáljuk meg az elemeket egyenként! Az eljárást addig kell folytatnunk, amíg nem találtunk adott tulajdonságú elemet, és még van további elem is.

Algoritmus mondatszerű leírással:

Eljárás eldontes_tetele:

i = 1

Ciklus amíg i <= n és M(i) nem T

i = i + 1

Ciklus vége

van = i <= n

Eljárás vége.

Feladat:

Olvassunk be 3 számot! A beolvasást addig ismételjük, amíg nem teljesül a következő két feltétel:

• az adatok egy háromszög oldalai, azaz bármelyik két oldal hosszának összege nagyobb, mint a harmadik oldal;
• a háromszög derékszögű, azaz igaz rá Pitagorasz tétele.

Adjunk üzenetet, ha valamelyik feltétel nem teljesül! Végül írjuk ki a megfelelő háromszög köré írható kör sugarának hosszát!

Program pitagorasz:

Ciklus

Ki: a    'Bekérjük a háromszög oldalainak hosszát

Be: a

Ki: b

Be: b

Ki: c

Be: c

jo = False    'Hamisra állítjuk a változó értékét

Ha (a < b + c) és (b < a + c) és (c < b + a) akkor    'Megvizsgáltuk, háromszögről van–e szó

Ha (a > b) és (a > c) akkor   

sugar := a/2

Elágazás vége

Ha (b > a) és (b > c) akkor

sugar = b/2

Elágazás vége

Ha (c > a) és (c > b) akkor

sugar = c/2

Elágazás vége

jo := ((sqr(a) = sqr(b) + sqr(c)) or (sqr(b) = sqr(a)+ sqr(c)) or (sqr(c) = sqr(b) + sqr(a))    'Alkalmaztuk Pitagorasz tételének megfordítását

Ha Nem jo akkor   

Ki: "Ez nem derékszögű háromszög!’

Elágazás vége

Egyébként

Ki: "’Ez még csak nem is háromszög!"

Elágazás vége

Mígnem jo

Ki: "A háromszög köré írható kör sugara:", sugar

Program vége.

Megjegyzés: A feladat megoldásához ismerni kell Pitagorasz és Thalész tételét, illetve ezek megfordítását.

Házi feladat:

Olvassunk be 0 végjelig számokat. Számítsuk ki a számok átlagát! Ha ez az átlag nem 15 és 20 közé esik, ismételjük meg a bevitelt, amíg jó nem lesz!