Pereiti prie turinio

hudsonas

Nariai
  • Pranešimai

    6
  • Užsiregistravo

  • Lankėsi

  • Atsiliepimai

    0%

hudsonas Pranešimai

  1. Ar mokinys yra baudžiamas kritine klaida jeigu stovi per ilgai prie šviesoforo?

     

    Šiauliuose yra tokia sankryža, kai užsidega žalias signalas ir nori sukti į kairę turi praleisti visas tiesiai važiuojančias mašinas, o signalas nenormaliai greitai pasikeičia į raudoną. Tai ar leidžiamia stovėti prie šviesoforo, nesvarbu, kad žalias signalas vėl pasikeis ir laukti kada priešpriešinis eismas sumažės.

  2. Manau, šiek tiek paprastesnis variantas:

     

    program pinigai;
       var p1, p2, p3, p4, p5, pinigai : integer;
    begin
     WriteLn('Įveskite 5 pažymius');
     ReadLn(p1,p2,p3,p4,p5);
     if (p1 = 10) or (p1 = 9) then pinigai += 5;
     if (p2 = 10) or (p2 = 9) then pinigai += 5;
     if (p3 = 10) or (p3 = 9) then pinigai += 5;
     if (p4 = 10) or (p4 = 9) then pinigai += 5;
     if (p5 = 10) or (p5 = 9) then pinigai += 5;
     WriteLn('Moksleivis turės: ',pinigai,' litų');
     Readln;
    end.

  3. Užduotis: Buvo įvesti 3 skaičiai. Parašyti programą, kuri parodytų skaičius didėjimo tvarka.

     

    Čia nėra sunku, buvau pasirašęs, bet mokytoja minėjo, kad galima sukurti šią programą tik su 3 if'ais ir atrodo be jokių else ir t.t, o mano programa ilgesnė ir daugiau if'ų. Galite parodyti tokį būdą?

×
×
  • Pasirinkite naujai kuriamo turinio tipą...