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
Kapcsolódó videók Hozzászólások
jani12 - 16 éve, 6 hónapja

Nekem nem megy.

Ezt kell beírni?

uses crt;
war
a,n,s,i:longint;
begin
clrscr;
writeln('Add meg a jegyeid számát:');
readln(n);
for;:=1to n do begin
writein('Add meg az osztályzatodat');
readln(a);
s:=s+a;
and
writeln('A Jegyeid átlaga:',s(n:6:2);
readln;
and.

hackflux2 - 16 éve, 6 hónapja

Vagi a video de milyen kocsi van a hátteredbe ???....

balazskaldy - 16 éve, 6 hónapja

ennyi 96-os egyszerre.....De viszont becsülendő,hogy már érdekel téged a pascal...Én egyébként a suliba tanulok pascalt de már grafikus programot is csináltam.

Ferike1996 - 16 éve, 6 hónapja

nem irnáld le a hozászolások hoz mert igy elég zavaros

Vissza
Mobil verzió - Normál verzió

© 2025 Next Project Kft. - Minden jog fenntartva.