Pereiti prie turinio

informatikos FPS programavimas


Rekomenduojami pranešimai

Taigi, gavau užduotį ir niekaip neišsprendžiu jos. Užduotis: duoti 3 realieji skaičiai a, b, c. Reikia patikrinti ar jie yra lyginiai. Prisimenu, kad pernai kažką užsirašę buvom, bet užrašus kažkur nusikišau... Gal galit kas paaiškint? Kiek pamenu, buvo kažkokie div ir mod. Gal čia jų reik?

Nuoroda į pranešimą
Dalintis kituose puslapiuose

function IsEven ( number: real ) : boolean;
begin
 IsEven := (number mod 2 = 0);
end;

 

Tokią funkciją pasirašai, ir, nuskaitęs tris skaičius iš klaviatūros, panaudoji:

if (IsEven(number1) AND IsEven(number2) AND IsEven(number3)) then
 writeln('LYGINIAI');
else
 writeln('NELYGINIAI');

 

Šiaip, paskalį paskutinį kartą prieš 3 metus mačiau, tai sintaksę pamiršęs, bet taip tai čia nėra ką veik su tokia užduotimi.

Redagavo CR1M1N4L
Nuoroda į pranešimą
Dalintis kituose puslapiuose

CR1M1N4L, baisiai čia protingai parašei. Manau jam užteks šitaip:

program skaiciai;
var a, b, c : integer;
begin
 ReadLn(a, b, c);
 if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0)
then WriteLn('Lyginiai')
else WriteLn('Nelyginiai');
 ReadLn;
end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose
CR1M1N4L, baisiai čia protingai parašei. Manau jam užteks šitaip:

program skaiciai;
var a, b, c : integer;
begin
 ReadLn(a, b, c);
 if (a mod 2 = 0) and (b mod 2 = 0) and (c mod 2 = 0)
then WriteLn('Lyginiai')
else WriteLn('Nelyginiai');
 ReadLn;
end.

va geriausias būdas :)

Nuoroda į pranešimą
Dalintis kituose puslapiuose
Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

×
×
  • Sukurti naują...

Svarbi informacija

Informuojame, kad šiame puslapyje naudojami slapukai (angl. cookies). Sutikdami, paspauskite mygtuką „Sutinku“ arba naršykite toliau. Savo duotą sutikimą bet kada galėsite atšaukti pakeisdami savo interneto naršyklės nustatymus ir ištrindami įrašytus slapukus.