Pereiti prie turinio

Bėda su kodu (kodas žiauriai paprastas) Paskalis.


Rekomenduojami pranešimai

Turbūt kokią kvailą klaidą įvėliau, ar kažkas panašaus... Kodas, pagal logiką atrodo turėtų būti teisingas. http://prntscr.com/h9xuta

program Vidurkis;
   var m,n,i,v:integer;
   visi,s:real;
[color="#FF0000"]                                       //Parašyti programą, kuri rastų visų intervalo [m, n] sveikųjų skaičių aritmetinį vidurkį.[/color]
begin
 WriteLn('Įveskite pirmą ir paskutinį intervalo skaičius: ');
 ReadLn(m,n);
   for i:= m to n do
   visi:=visi+1;
   s:=s+i;
   v:=s/visi;
 WriteLn('Vidurkis yra: ',v);
 Readln;
end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Turbūt kokią kvailą klaidą įvėliau, ar kažkas panašaus... Kodas, pagal logiką atrodo turėtų būti teisingas. http://prntscr.com/h9xuta

program Vidurkis;
   var m,n,i,v:integer;
   visi,s:real;
[color="#FF0000"]                                       //Parašyti programą, kuri rastų visų intervalo [m, n] sveikųjų skaičių aritmetinį vidurkį.[/color]
begin
 WriteLn('Įveskite pirmą ir paskutinį intervalo skaičius: ');
 ReadLn(m,n);
   for i:= m to n do
   visi:=visi+1;
   s:=s+i;
   v:=s/visi;
 WriteLn('Vidurkis yra: ',v);
 Readln;
end.

 

Nurodyk pradines values kintamiesiems.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

http://prntscr.com/h9yxk2 Beliko parašyt mandrų tekstą ir viskas. Jei kam reikės kodas:

program Bevardė1;
   var S,i,n,m,visi,v:integer;
begin
 WriteLn('Įvesti galutinė reikšmę: ');
 ReadLn(m,n);
   for i:= m to n do
       begin
        visi:=visi+1;
        S:= S+i;
        v:=S div visi;
       end;
 WriteLn('Iš viso skaičių yra: ',visi,' Skaičių suma yra: ',S,' Vidurkis yra: ', v);
 Readln;
end.

 

Dar nežiūrėjau ar nėra bugų, bet kodas lengvas, greit ištaisyti įmanoma.

Nuoroda į pranešimą
Dalintis kituose puslapiuose


program a;
var n, m, 
   k, s:integer;
begin
writeln('Ivesti m ir n: ');
readln(m, n);
k := n - m + 1; //skaiciu kiekis intervale [m, n]
s := (m+n)*k div 2; //skaiciu suma intervale [m, n]
writeln(' Kiekis: ', k, 
       ' Suma: ', s, 
       ' Vidurkis: ', (s/k):2:2);
readln();
end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose



program a;
var n, m, 
   k, s:integer;
begin
writeln('Ivesti m ir n: ');
readln(m, n);
k := n - m + 1; //skaiciu kiekis intervale [m, n]
s := (m+n)*k div 2; //skaiciu suma intervale [m, n]
writeln(' Kiekis: ', k, 
       ' Suma: ', s, 
       ' Vidurkis: ', (s/k):2:2);
readln();
end.

Jop, užmiršau, kad vidurkis ten, o ne paprasta dalyba :D. 8 gavau - pakanka xD

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

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.

  • Prisijunk prie bendruomenės dabar!

    Uždarbis.lt nariai domisi verslo, IT ir asmeninio tobulėjimo temomis, kartu sprendžia problemas, dalinasi žiniomis ir idėjomis, sutinka būsimus verslo partnerius ir dalyvauja gyvuose susitikimuose.

    Užsiregistruok dabar ir galėsi:

    ✔️ Dalyvauti diskusijose;

    ✔️ Kurti naujas temas;

    ✔️ Rašyti atsakymus;

    ✔️ Vertinti kitų žmonių pranešimus;

    ✔️ Susisiekti su bet kuriuo nariu asmeniškai;

    ✔️ Naudotis tamsia dizaino versija;

    ir dar daugiau.

    Registracija trunka ~30 sek. ir yra visiškai nemokama.

  • Naujausios temos

  • Karštos temos

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