Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
Autor | Správa |
---|
Registrovaný: 08.02.12 Prihlásený: 10.12.13 Príspevky: 7 Témy: 2 | 2 |
Zdravim, potrebujem poradit kde robim chybu v pascali... skusal som spravit jednu ulohu v pascali ale vypisuje mi Range ceck error (prekrocenie limitu) ... zadanie je tu http://home.gamca.sk/pk/inf/materialy/z ... danieK.htm po A ale nejde mi ani spravit sucet znamok tak nemozem vyratat ani priemer...
Moj program vyzera takto (hrubo cervene nefunguje a slabo cervene ide):
program skuska5;
uses crt;
type studenti=record meno:string;
znamky:array[1..9] of integer;
absencia,nh,spravanie:integer;end;
var x:text;
n,pz,i,a:integer;
s:array[1..13] of integer;
g:array[1..13] of studenti;
procedure nacitanie(a:integer);
begin
read(x,g[a].spravanie);
for i:=1 to pz do read(x,g[a].znamky[i]);
read(x,g[a].absencia);
read(x,g[a].nh);
read(x,g[a].meno);
end;
begin
clrscr;
assign(x,'E:/TP/zenit.txt');
reset(x);
read(x,n);read(x,pz);readln(x);
for a:=1 to pz do begin nacitanie(a);readln(x);end;
close(x);
for i:=1 to pz do with g[i] do delete(meno,1,1);
for i:=1 to pz do with g[i] do if nh>=10 then spravanie:=2;
for i:=1 to pz do s[i]:=0;
for i:=1 to pz do for a:=1 to n do s[i]:=s[i]+g[i].znamky[a];
{s[1]:=g[1].znamky[1]+g[1].znamky[2];}
writeln(s[1]);
writeln(g[5].meno);
readln;
end.
Dakujem vopred
|
|
Registrovaný: 27.12.08 Prihlásený: 13.12.22 Príspevky: 1874 Témy: 96 | 96 Bydlisko: Bratislava,... |
taký dobrý je ten pascal, že ti ešte červeným ukáže riadok, na ktorom máš chybu..
polovica programovania je o hľadaní chýb, a k tomu potrebuješ vedieť robiť, čo tvoj program robí..
v tvojom stačí zbadať, že i ti ide od 1 do pz (9) a a ti ide od 1 do n (13).. pristupuješ k s[i], g[i] a znamky[a]. Tvoj program pristupuje až k znamky[13], čo neexistuje, preto range check error.... bližšie správnosť neskúmam, ale zameniť pz a n v tom for cykle by to malo sfunkčniť..
_________________ ~Listen to your brain, not your heart~ NB1: Lenovo Y500: CPU: Intel Core i7-3630QM; GPU: nVidia GT650M 2GB SLi; RAM: 16GB DDR3; HDD: 1TB + 256GB SSD (m4); LCD: 15,6" 1920x1080; OS: Win8.1 64-bit + Arch Linux 64-bit (UEFI Powered DualBoot) NB2: Asus K53SJ-SX093: CPU: Intel Core i3-2310M; GPU: Intel HD3000 / nVidia GT520M 1GB Optimus; RAM: 8GB DDR3; SSD: 128GB 840Evo; LCD: 15,6" 1366x768; OS: Win 8.1 Pro 64-bit (UEFI) |
|
Registrovaný: 08.02.12 Prihlásený: 10.12.13 Príspevky: 7 Témy: 2 | 2 |
jj tam bola ta chyba dakujem za radu... P.S.: to som sam zvyraznil ale to asi vies...
|
|
Registrovaný: 27.12.08 Prihlásený: 13.12.22 Príspevky: 1874 Témy: 96 | 96 Bydlisko: Bratislava,... |
jj viem ze si to sam zvyraznil, ale vacsina programovacich prostredi/kompilerov (vratane pascalu) ti pri chybe oznaci aj riadok, na ktorom je chyba.. turbo pascal ho dokonca aj zvyrazni cervenou..
_________________ ~Listen to your brain, not your heart~ NB1: Lenovo Y500: CPU: Intel Core i7-3630QM; GPU: nVidia GT650M 2GB SLi; RAM: 16GB DDR3; HDD: 1TB + 256GB SSD (m4); LCD: 15,6" 1920x1080; OS: Win8.1 64-bit + Arch Linux 64-bit (UEFI Powered DualBoot) NB2: Asus K53SJ-SX093: CPU: Intel Core i3-2310M; GPU: Intel HD3000 / nVidia GT520M 1GB Optimus; RAM: 8GB DDR3; SSD: 128GB 840Evo; LCD: 15,6" 1366x768; OS: Win 8.1 Pro 64-bit (UEFI) |
|
Registrovaný: 11.07.12 Prihlásený: 11.09.12 Príspevky: 32 Témy: 5 | 5 |
moztre niekto napisat co ten program robí ? ucim sa
|
|
Stránka: 1 z 1
| [ Príspevkov: 5 ] | |
Podobné témy | Témy | Odpovede | Zobrazenia | Posledný príspevok |
---|
| v Assembler, C, C++, Pascal, Java | 0 | 430 | 19.12.2014 13:18 Styracoz | | v Assembler, C, C++, Pascal, Java | 2 | 560 | 23.06.2008 17:30 petos | | v Assembler, C, C++, Pascal, Java | 18 | 1165 | 14.01.2008 12:59 hawe | | v Assembler, C, C++, Pascal, Java | 2 | 394 | 11.04.2012 1:34 Gregi555 | | v Assembler, C, C++, Pascal, Java | 3 | 993 | 14.12.2009 18:39 Proxy69 | | v Assembler, C, C++, Pascal, Java | 6 | 987 | 28.06.2008 2:11 Roberbo | | v Assembler, C, C++, Pascal, Java | 3 | 515 | 24.12.2010 16:25 Goergius | | v Assembler, C, C++, Pascal, Java | 6 | 505 | 10.05.2010 17:37 jahoda09 | | v Assembler, C, C++, Pascal, Java | 2 | 1152 | 09.03.2007 14:08 misolax | | v Assembler, C, C++, Pascal, Java | 2 | 615 | 24.06.2010 20:17 KatjushaMan | | v Assembler, C, C++, Pascal, Java | 5 | 949 | 18.10.2008 19:02 redog | | v Assembler, C, C++, Pascal, Java | 7 | 873 | 14.05.2011 20:04 F3RY | | [ Choď na stránku: 1, 2 ] v Assembler, C, C++, Pascal, Java | 40 | 1563 | 11.12.2016 22:08 viki | | v Assembler, C, C++, Pascal, Java | 7 | 666 | 09.10.2011 21:30 F3RY | | v Kôš | 1 | 30 | 06.11.2018 14:38 werwest | | v Assembler, C, C++, Pascal, Java | 0 | 745 | 03.05.2009 12:35 ebb |
|