Uždarbis.lt: Bėda su kodu (kodas žiauriai paprastas) Paskalis. - Uždarbis.lt

Peršokti prie turinio



IT paslaugų skelbimams skirta skiltis Dizaino ir programavimo paslaugos
Puslapis 1 iš 1
  • Jūs negalite kurti naujos temos
  • Jūs negalite atsakyti į šią temą

Narys yra atsijungęs Antanas345 

  • Pradedantis dalyvis
  • AkisAkis
  • Grupė: Nariai
  • Atsiliepimai: +0 -0
  • Pranešimai: 136
  • Kartu nuo: 2016-06-27

2017-11-13 18:12 (#1)

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


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.


0


Narys yra atsijungęs infas 

  • Pradedantis dalyvis
  • AkisAkis
  • Grupė: Patvirtinti nariai
  • Atsiliepimai: +8 -1
  • Pranešimai: 140
  • Kartu nuo: 2009-04-17
  • Vardas:iNfas
  • Miestas:Vilnius

2017-11-13 19:07 (#2)

Rodyti pranešimąAntanas345, 2017-11-13 18:12, pasakė:

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.

0


Narys yra atsijungęs Antanas345 

  • Pradedantis dalyvis
  • AkisAkis
  • Grupė: Nariai
  • Atsiliepimai: +0 -0
  • Pranešimai: 136
  • Kartu nuo: 2016-06-27

2017-11-13 19:26 (#3)

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.

0


Narys yra atsijungęs audrius^ 

  • Dažnas dalyvis
  • AkisAkisAkis
  • Grupė: Patvirtinti nariai
  • Atsiliepimai: +23 -0
  • Pranešimai: 203
  • Kartu nuo: 2008-06-24
  • Vardas:Audrius
  • Miestas:Kaunas

2017-11-14 17:32 (#4)



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.

Paveiksliukas
Skype: anglas1992
www.lastreadbook.com- Skaitytų knygų apžvalgų blogas.
1


Narys yra atsijungęs Antanas345 

  • Pradedantis dalyvis
  • AkisAkis
  • Grupė: Nariai
  • Atsiliepimai: +0 -0
  • Pranešimai: 136
  • Kartu nuo: 2016-06-27

2017-11-16 13:07 (#5)

Rodyti pranešimąaudrius^, 2017-11-14 17:32, pasakė:



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
0


Pasidalinti šia tema:


Puslapis 1 iš 1
  • Jūs negalite kurti naujos temos
  • Jūs negalite atsakyti į šią temą

1 nariai(-ų) skaito šią temą
0 nariai(-ių), 1 svečiai(-ių) ir 0 slapti(-ų) nariai(-ių)


Užklausų vykdymo statistika

  • Dabar yra: 2017-11-18 17:47

Tas nuostabus prisijungimo momentas


Prisijungimo nustatymai