Keresés Kategóriák Kedvencek

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;
    var
    a,n,s,i:longint;
    begin
    clrscr;
    writeln('Add meg a jegyeid számát:');
    readln(n);
    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.

    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:

    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.

    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;).
    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 :)).
    Valamint még egy módosítás:
    Ebben a sorban: a,n,s,i:longint;
    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
spaci - 9 éve, 6 hónapja

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

AkosXDXD - 10 éve

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 - 10 éve, 3 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 - 10 éve, 6 hónapja

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

Mezoke1 - 10 éve, 7 hónapja

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