Delphiben hogyan kell megcsinálni egy ilyen programot?
Nem vagyok valami jó infóból.
A program bekér három számot és el kell döntenie, hogy azok számtani sorozat elemei vagy nem.
Azt tudom, hogy for i=1 to n do ciklussal kell megcsinálni, de mégis hogy?
Valaki le tudná írni ezt a rövidke programot?
Köszi! :)
válasza:Biztos van benne for is, de én kivonnám az elsőt a másodikból, a másodikat a harmadikból. Ha számtani sorozat elemei akkor a két különbségnek egyezni kell.
Program írása közben hol akadtál el?
Hú, ez jó ötlet.
A változók típusának, ha real-t írok az jó?
válasza:program sorozat;
var a,b,c,d1,d2: real;
begin
writeln('Kerem, adja meg a harom szamot: ');
a:=1;
b:=3;
c:=5;
readln(a,b,c);
b-a:=d1;
c-b:=d2;
if d1=d2 then
begin
writeln('A szamok szamtani sorozat elemei.');
end
else
begin
writeln('A szamok nem szamtani sorozat elemei.');
end;
end.
Ezt csináltam és nem fogadja el. Mi lehet a baj?
Ezt írja: ,,[Error] Project2.dpr(11): Left side cannot be assigned to "
válasza:b-a:=d1;
c-b:=d2;
Fordítva nem? d1 := ....
program sorozat;
var a,b,c,d1,d2: real;
uses SysUtils;
begin
writeln('Kerem, adja meg a harom szamot: ');
a:=1;
b:=3;
c:=5;
readln(a,b,c);
b-a:=d1;
c-b:=d2;
d1:=d2;
if d1=d2 then
begin
writeln('A szamok szamtani sorozat elemei.');
end
else
begin
ÁÁhh, nem megy ez nekem. :D
Most a uses sysutils-et emeli ki pirossal, amiről csak annyit tudok, h nem szabad kitörölni
A uses sysutils alá írtam most be a deklaráló részt, de most a b-a:=d1; -el van problémája.
,,[Error] Project1.dpr(12): Left side cannot be assigned to"
Tudsz valami megoldást erre?
válasza:Tulajdonképpen a 2,6,8 számok is egy számtani sorozat részei. A kérdező nem írta, hogy számtani sorozat egymást követő elemei-e.
Tehát amennyiben egész számokról van szó, akkor bármely beadott számhármas fedi a számtani sorozat definícióját. :D
Viccet félretéve. Ha három számból képzel különbségeket, akkor három különbséget kapsz. Azt nem feltételezheted, hogy sorrendben adja meg a felhasználó a számokat.
Pl a 2,4,6 számsorozatot úgy is meg lehet adni, hogy 2,6,4. Két lehetőséged van. Vagy sorba rendezed őket, vagy pedig az összes szám különbségének az abszolút-értével dolgozol ekkor elegendő ha a három különbségérték közül 2 megegyezik.
Pl:
d1 := |2-4| //= 2
d2 := |2-6| //= 4
d3 := |4-6| //= 2
if d1 = d2 OR d1 = d3 OR d2 = d3
-> számtani sorozat
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
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!