pascal

Sveiki man reikia atlikti su paskaliu tokia uzduoti.

uzduotis.

Ivesti tris sveikus skaicius, Patikrinti ar jie (isdestyti kokia nors tvarka) sudaro geometrine progresija. Jei taip isveskite sekanti progresijos nari. Jei ne, isveskite aitinkama pranesima.

Gal galetumete padeti parasyti?

Sveiki man reikia atlikti su paskaliu tokia uzduoti.

 

uzduotis.

Ivesti tris sveikus skaicius, Patikrinti ar jie (isdestyti kokia nors tvarka) sudaro geometrine progresija. Jei taip isveskite sekanti progresijos nari. Jei ne, isveskite aitinkama pranesima.

 

Gal galetumete padeti parasyti?

tai kad čia ne padėti reikia, o viską už tave padaryti... Tai bent pats bandei daryt? Ko būtent šioje sąlygoje nesupranti? Sprendimas turėtų atrodyti taip:

įvedi skaičius b1, b2, b3;

tuomet patikrini ar jie sudaro geometrine progresija, tai gali nustatyti suradęs geometrinės progresijos vardiklį q: q=b2/b1=b3/b2 jeigu b2/b1=b3/b2 tai reiškia kad tai geometrinė progresija. Tuomet belieka surasti ketvirtąjį narį b4=b3*q

program Noname0;

var b1, b2, b3,b4 : integer;

begin

WriteLn('Įveskite 3 skaičius');

readln (b1,b2,b3);

if b2/b1=b3/b2

then WriteLn('Tai geometrinė progresija, kurios ketvirtas narys ' ,b3*b2/b1)

else WriteLn('Tai nėra geometrinė progresija');

Readln;

end.

kur cia yra klaida nes man neisveda ketvirtojo nario normalaus kai tie skaiciai sudaro geometrine progresija

program Noname0;

var b1, b2, b3,b4 : integer;

begin

WriteLn('Įveskite 3 skaičius');

readln (b1,b2,b3);

if b2/b1=b3/b2

then WriteLn('Tai geometrinė progresija, kurios ketvirtas narys ' ,b3*b2/b1:0:0)

else WriteLn('Tai nėra geometrinė progresija');

Readln;

end.

Po apskaičiavimo "b3*b2/b1" pažymi kiek skaičių nori matyti po kablelio " :0:0"