Facebook bejelentkezés
Üdvözlünk az oldalon!
Lépj be, vagy regisztrálj
Felvéve: 14 éve, 10 hónapja
Megtekintve: 11868
Értékeld a videót:
13 szavazat alapján
Értékeléshez lépj be!

további opciók »

A(z) "Programozás Pascalban: Átlagszámító program készítése" című videótipp megosztásához használhatod a saját leveleződet, vagy ezt a felületet:
Neved:

E-mail címed:

Címzett e-mail címe:
Üzenet (opcionális):

Ez a videótipp a következő klub(ok)ba tartozik:

  • Ez a videó nem még nem tartozik egy klubhoz sem.

Ha van egy kis időd, nézz szét meglévő klubjaink között!

Kapcsolódó sorozat: Programozzunk Pascalban (109)

  • Nyomtatás

    Programozás Pascalban: Átlagszámító program készítése

    2009. május 17. 19:24:06 |

    Készítette: davidman96

    Az alábbi tippben egy egyszerű átlagszámító program készítését fogjuk bemutatni, amit Pascalban írunk meg.

    Programozás Pascalban: Átlagszámító program készítése részlet

  • 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.

Vélemények, hozzászólások

Rendezés:
Hozzászóláshoz jelentkezz be, vagy regisztrálj!
1. oldal 2 3 Következő oldal
spaci (12 éve, 5 hónapja)
2011. október 7., 21:19:56 , kommentjeim száma: 6 db

14

Nem akarok kecsege lenni de ez nem valami bonyolult dolog de azért kösz
AkosXDXD (12 éve, 11 hónapja)
2011. április 23., 18:22:19 , kommentjeim száma: 11 db

13

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, 2 hónapja)
2011. január 17., 20:15:49 , kommentjeim száma: 4 db

12

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 (13 éve, 5 hónapja)
2010. október 15., 22:43:24 , kommentjeim száma: 4 db

11

nekem megy tök baró ám altgr és a fölöte lévö gomb;;;;;;;;;;;;;
Mezoke1 (13 éve, 6 hónapja)
2010. szeptember 4., 11:22:54 , kommentjeim száma: 58 db

10

hogy lehet ; ilyet csinálni a progiban ????
1. oldal 2 3 Következő oldal

Statisztika

Megtekintések száma: 11868 Hozzászólások: 14
- VideoSmart.hu-n: 11868 Kedvencek között: 3
- Más oldalon: 0 Értékelések: 13
davidman96 kicsi avatar davidman96

davidman96 további videótippjei »

Az alábbi tippben egy egyszerű átlagszámító program készítését fogjuk bemutatni, amit Pascalban írunk meg. (több infó) (kevesebb infó)

Videó beillesztése:

(hogyan működik?)