Paprasta pascal užduotėlė

Sveiki, gal kas gali padėti išspręsti šią užduotį ir paaiškinti kodėl taip?

Užduotis : Surasti intervalo [a;b] nelyginių skaičių suma ir lyginių skaičių sandaugą.

Mano nepavykęs bandymas

program Cikclas;
var s1, s , a , b, i : integer  ;
begin
 WriteLn('Įveskite aibių galus')  ;
 Readln(a, b);
 s:=0  ;
 s1:=1 ;
 for i:= a to b do
    begin
      if ( i mod 2 <> 0 ) then
      s:= s + i
      end;
      begin
      if (i mod 2 = 0) then
      s1:= s1 * i ;
      end;
      WriteLn('Lyginių skaičių suma : ',s);
      WriteLn('Nelyginių Skaičių sandauga: ',s1);
      ReadLn;

end.

Viskas kaip ir normaliai, berods.

Tik kad neteisignai išvedi tekstą pagal sąlygą :)

Gal gali padėt sutvarkyti ? :) Nes nelabai dar gaudausi paskalyje, o pateiktame variante nesigauna tas ,kas turi gautis >.<

Pirma pažiūrėk ką parašei.

Užduotis:

Lyginių skaičių sandaugą, o tu programoj rašai WriteLn('Lyginių skaičių suma : ',s)

Trumpesnė, pataisyta programa.

program Cikclas;
var s1, s , a , b, i : integer  ;
begin
 WriteLn('I;veskite aibiu; galus')  ;
 Readln(a, b);
 s:=0  ;
 s1:=1 ;
 for i:= a to b do
    begin
      if ( i mod 2 <> 0 ) then
      s:= s + i
      else
      s1:= s1 * i ;
      end;
      WriteLn('Nelyginiu; skaic(iu; suma : ',s);
      WriteLn('Lyginiu; Skaic(iu; sandauga: ',s1);
      ReadLn;

end.

Tai parašei programą, o kaip tekstą išvesti teisingai, neišeina? :|

Na, tiesiog, prie WriteLn tu rašai Lyginių skaičių suma, o sąlyga nori nelyginių skaičių sumos. Bet ten kaip ir viskas tvarkoje, tai tik tekstą tereikia pakeisti ir tiek.

Tai parašei programą, o kaip tekstą išvesti teisingai, neišeina? :|

 

Na, tiesiog, prie WriteLn tu rašai Lyginių skaičių suma, o sąlyga nori nelyginių skaičių sumos. Bet ten kaip ir viskas tvarkoje, tai tik tekstą tereikia pakeisti ir tiek.

Pas jį lygtais lyginių skaičių sandauga nesiskaičiuoja, nes tas if'as jau už ciklo ribų

Dėkui, nepastebėjau :D

A, teisingai. Visi begin ir end prastai sukrauti.

Kai vykdoma tik viena eiltutė - begin ir end visai nereikia (šiuo atveju, tuose if'uose).

O ciklo begin ir end turėtų "apglėbti" viską apart teksto išvedimo.

Kažkas tokio (kodas pasiskolingas iš Igno): http://PicHub.lt/i/HMgBI.png

Kintamieji tai legendiniai :D Net susijuokiau. :) O šiaip, pasimokink lygiuoti kodą, gal bus lengviau susigaudyti kur ką darai.