Lygtis su pascaliu

Sveiki,

gal žinot kaip būtų galima išspręsti vieną lygtį su pascal

a*b*c := 1000000000*d*d*e

reikia surasti a, b, c ir d reikšmes.

Jei ne su pascaliu, tai kad ir su kokia skaičiuokle :lol:

P.S. gal žinote kokią knygą pascaliui mokytis, nes iki egzo liko visai nedaug, o mokytis daug reikia.

Na sakyčiau gan įdomi lygtis. :D Jei salygoj daugiau nieko neduota, tai neišspręsi. Mokytis Pascal? Paspausk ant mano parašo, ten rasi ir pamokų ir daug kito gėrio. :lol:

Jei skaičiai integer, tai galima toki būtų ( tik laba ilgai kompiliuos)

for i:=1 to maxint
  for j:=1 to maxint
   for k:=1 to maxint
	  for l:=1 to maxint
		 for m:=1 to maxint
			if ((i*j*k)=(1000000000*sqr(l)*m then Writeln ('Pavyko')

Bet čia labai neoptimizuotas ir nepraktiškas varianas :lol:

Jei skaičiai integer, tai galima toki būtų ( tik laba ilgai kompiliuos)

for i:=1 to maxint
  for j:=1 to maxint
   for k:=1 to maxint
	  for l:=1 to maxint
		 for m:=1 to maxint
			if ((i*j*k)=(1000000000*sqr(l)*m then Writeln ('Pavyko')

 

Bet čia labai neoptimizuotas ir nepraktiškas varianas :D

meta klaidą, aš su FPS dirbu :lol:

Lygtis su penkiais nezinomaisiais :lol: Cia pats tokia sugalvojai?

Kokią klaidą meta? aš gi tiesiog struktūra parašiau.

Vykdymo klaida:

Nr. 215

for a:=1 to maxint0 do

begin

for b:=1 to maxint do

begin

for c:=1 to maxint do

begin

for d:=1 to maxint do

begin

for e:=1 to maxint do

begin

 

if (a*b*c) = (1000000000*d*d*e)

then writeLn('Pavyko: a', a,' b', b,' c', c,' d', d,' e', e)

end;

end;

end;

end;

end;

Nu tai kokioj eilutėj žr klaida ir t.t. o dar geriau perdaryti taip, kad vienoje pusėje būtų kintamieji, o kitoje tas skaičius.(if'e).

Nu tai kokioj eilutėj žr klaida ir t.t. o dar geriau perdaryti taip, kad vienoje pusėje būtų kintamieji, o kitoje tas skaičius.(if'e).

pakeičiau if'e (į vieną pusę kintamieji, į kitą - skaičius), pasileido, atsidaro langas, žymeklis blyksi ir viskas.

P.S. pasirodo dirba, na reikia tikėtis, kad ras atsakymą, dėkui :lol:

Rado atsakymus :lol:

dėkui, sąlygoje papildomai buvo pora klaidelių, tačiau kintamieji vis tiek 5 :D

Kaip ilgai ieškojo? :lol:

tiesą pasakius maždaug už poros s pradėjo pateikti ats, bet paskui sąlygoje nurodžiau, kad nebūtų vienodų skaičių, tai dar neranda, reikės peržiūrėti sąlygą visą, gal vėl ką nors ne taip padariau :lol:

bet jau esme supratau :D

galutinai sutvarkiau programa, pasirodo buvo kelios nelogiškos vietos.

Atsakymą rado per porą sekundžių.

Tai gal reikėjo ir pradėti nuo to, kad skaičiai sveikieji? :D Beje, jei ciklas vykdo tik vieną eilutę po jo begin ir end nereikia. O šiaip neperžengia longint ribų? Ar kokį kitą tipą naudoji? :lol: