Results 1 to 25 of 35
Thread: Pascal
Hybrid View
-
18th November 2011 17:28 #1Registered User
Join Date: Nov:2011
Location: Pleven
Posts: 16
Pascal
"Compilation Aborted" , ako .
Type tipstudent=record
name: String[30];
egn: String[9];
fnum: String[6];
ocenka:Array[1..10] of byte;
end;
var FS:File of tipstudent;
m:Integer;
{vavejdane na danni za studenta}
Procedure addstud(var st:tipstudent);
var i:integer;
Begin
With st do begin
write('Vyvedi ime:'); readln(name);
if(name='exit')then exit;
write('Vyvedi EGN:'); readln(egn);
write('Vyvedi F.N.:'); readln(fnum);
writeln('Vyvedi 10 ocenki:');
for i:=1 to 10 do read(ocenka[i]);
end;
readln;
end;
{izchislqvane na sredniq uspeh}
Function srus(st:tipstudent):real;
var i,s:integer;
Begin
s:=0;
for i:=1 to 10 do s:=s+st.ocenka[i];
srus:=s/10;
end;
{otpe4atvane na edin student}
Procedure wrtst(st:tipstudent);
var i:integer;
b:string[1];
begin
with st do begin
writeln('Ime:',name);
writeln('EGN:',egn);
writeln('F.N.:',fnum);
writeln('Ocenki:');
for i:=1 to 10 do write(ocenka[i],' '); writeln;
writeln('Izchislqvane na sreden uspeh? y/n');
readln(B);
if(b='y')then writeln('Sreden uspeh:',srus(st):4:2);
writeln;
end;
end;
{otpe4atvane na celiq fail}
Procedure prall;
var st:tipstudent;
Begin
Reset(fs);
While not EOF(fs) do
begin
Read(fs,st);
wrtst(st);
end;
close(fs);
end;
{syzdavane na prazen fail}
Procedure newfile;
var i:integer;
Begin
Rewrite(fs);
Close(fs);
Writeln('Failyt e syzdaden!');
end;
{dobavqne na studenti kym faila}
Procedure addstudetofile;
var st:tipstudent;
Begin
Writeln('Vavedi ime ili exit za krai');
reset(fs); seek(fs,filesize(fs));
Repeat
addstud(st);
if st.name<>'exit' then write(fs,st);
until st.name= 'exit';
close(fs);
end;
-
18th November 2011 17:40 #2
-
18th November 2011 17:48 #3Registered User
Join Date: Nov:2011
Location: Pleven
Posts: 16
:
(Glavna Programa)
Begin
{vavejdane na danni za studenta}
addstud;
{izchislqvane na sredniq uspeh}
srus;
{otpe4atvane na edin student}
wrtst;
{otpe4atvane na celiq fail}
prall;
{syzdavane na prazen fail}
newfile;
{dobavqne na studenti kum faila}
addstudetofail;
end.
?
-
18th November 2011 19:16 #4Banned
Join Date: Feb:2006
Location: ,
Posts: 1,362
-
18th November 2011 20:29 #5Registered User
Join Date: Nov:2011
Location: Pleven
Posts: 16
-

--------- 20:29 --------- : 19:25 ---------
error :
Fatal: Compilation aborted
?
-
18th November 2011 22:20 #6
DOS , , , :
Code:program zombi; uses Crt, DOS; //......... ( ) //......... ( ) //......... begin {vavejdane na danni za studenta} addstud; {izchislqvane na sredniq uspeh} srus; {otpe4atvane na edin student} wrtst; {otpe4atvane na celiq fail} prall; {syzdavane na prazen fail} newfile; {dobavqne na studenti kum faila} addstudetofail; end.




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in