Felvéve: 15 éve, 4 hónapja
Értékeld a videót:
13 szavazat alapján
Értékeléshez lépj be!
(
5)
(
100)
-
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.
-
Amire szükségünk lesz
-
Á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.
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 |