Programozás Pascalban: Átlagszámító program készítése
Készítette: davidman96
2009. május 17. 19:24:06 - 11868 megtekintés
  • Az alábbi tippben egy egyszerű átlagszámító program készítését fogjuk bemutatni, amit Pascalban írunk meg.

  • Amire szükségünk lesz

    Pascal

  • Átlagszámító program készítése

    uses crt;<br /> var<br /> a,n,s,i:longint;<br /> begin<br /> clrscr;<br /> writeln('Add meg a jegyeid számát:');<br /> readln(n);<br /> for i:=1 to n do begin<br /> writeln('Add meg az osztályzatodat:');<br /> readln(a);<br /> s:=s+a;<br /> end;<br /> writeln('A Jegyeid átlaga:',s/n:6:2);<br /> readln;<br /> end.<br /> <br /> A fenti kód viszont tartalmaz egy pár hibát (ami nem biztos, hogy a program futása közben előjön, de jobb megelőzni a bajt, a helyes forráskódnak valahogy így kell(ene) kinézni:<br /> <br /> program jegyek;<br /> uses crt;<br /> var<br /> a, n, s, i:integer;<br /> begin<br /> clrscr;<br /> writeln('Add meg a jegyeid számát:');<br /> readln(n);<br /> s:=0;<br /> for i:=1 to n do begin<br /> writeln('Add meg az osztályzatodat:');<br /> readln(a);<br /> s:=s+a;<br /> end;<br /> writeln('A Jegyeid átlaga:',s/n:6:2);<br /> readln;<br /> end.<br /> <br /> Vagyis az eredeti kódból hiányzik az s változó nullázása, ami így véletlenszerű kezdőértéket vesz fel, ami általában 0, de nem mindig, így illik nullázni a változót (vagyis ez hiányzik az eredeti forráskódból: s:=0;).<br /> A program legelső sora úgy szabványos, ha tartalmazza a "program" parancsot, és egy nevet, ami jelen esetben lehet jegyek, vagy osztályzat (vagy bármi :)).<br /> Valamint még egy módosítás:<br /> Ebben a sorban: a,n,s,i:longint;<br /> A longintet átírtuk integer-re, ugyanis kizárt, hogy bárki is több, mint 6000 jegy átlagát szeretné ilyen módon kiszámolni, így elég az integer tartomány is (ami egészen 32767-ig tudja a számokat tárolni, ami bőven elég). Természetesen nem kötelező integert használni a longint helyett, de érdemes a megfelelő típusú változót használni, ami jelenleg az integer.

  • Címkék:

    Free Pascal programozás pascal számítástechnika
Kapcsolódó videók Hozzászólások
spaci - 13 éve, 2 hónapja

Nem akarok kecsege lenni de ez nem valami bonyolult dolog de azért kösz

AkosXDXD - 13 éve, 7 hónapja

program jegyek;
uses crt;
var
a, n, s, i:integer;
begin
clrscr;
writeln('Add meg a jegyeid sz m t.');
readln(n);
s:=0;
for i:=1 to n do begin
writeln('Add meg az oszt lyzatodat.');
readln(a);
s:=s+a;
end;
writeln('A Jegyeid  tlaga:',s/n:6:2);
readln;
end.
ez a pontos kódolás!

andrasidavid - 13 éve, 11 hónapja

Valaki aki el tudja küldeni a pontos kódolást az elküldi?
andrasid@citromail.hu
Előre is köszönöm!

tracsatela - 14 éve, 2 hónapja

nekem megy tök baró ám altgr és a fölöte lévö gomb;;;;;;;;;;;;;

Mezoke1 - 14 éve, 3 hónapja

hogy lehet ; ilyet csinálni a progiban ????

Tovább