Pascal uzdevums - aritmētiskā progresija

[iuzy]

Jāizveido programma, kas izvada aritmētiskas progresijas pirmos n elementus. 1.locekli, diferenci un progresijas locekļu skaitu ievada lietotājs.

Pagaidām programma izvada tikai 1.locekli un tā vērtību, kas trūkst?

program progresija;
var a,dif,rez:real;
    n,i:byte;
begin
    write('Ievadiet aritmetiskas progresijas 1.locekli: ');
    readln(a);
    write('Ievadiet aritmetiskas progresijas diferenci: ');
    readln(dif);
    write('Ievadiet aritmetiskas progresijas loceklu skaitu: ');
    readln(n);

    rez:=0;
    n:=1;
    while i<=n do
         begin
         rez:=a+(n-1)*dif;
         i:=n+1;
         end;
    writeln(a:2:0,'. loceklis: ',rez:8:2);
    readln;
end.

[Fiasco]

While ciklā tu kā skaitītāju izmanto mainīgo i, bet i vērtība visu laiku ir nemainīga, jo n vērtība nemainās. Proti i:=n+1 ir konstants lielums, jo n=1. Pareizi būtu i:=i+1 un pirms cikla vajadzētu i piešķirt vērtību.

 

Edit: Rindiņā pirms while cikla vērtība jāpiešķir i, nevis n.

Labots Februāris 10, 2015 - Fiasco

[Borja]

Vairaakaas vietaas i sajaukts vietaam ar n.

n:=1 -> i:=1

rez:=a+(n-1)*dif -> rez:=a+(i-1)*dif

i:=n+1 -> i:=i+1

[iuzy]

Pati pamanīju vēl vienu kļūdu - pēdējā izvades rindā "a" vietā jābūt "n", kas norāda locekļa kārtas skaitli.

 

Gala beigās programmai jāizvada visas progresijas no 1. līdz n loceklim - šobrīd izvadās tikai pēdējā, tā ka krītu no viena grāvja otrā...

Labots Februāris 10, 2015 - iuzy

[Borja]

Nu ne gluzhi.
a vietaa jaabuut i
un writeln rindinjai jaabuut cikla iekshpusee.

[iuzy]

Taisnība, paldies! Pavisam cits skats uz dzīvi.