Results 1 to 2 of 2
Hybrid View
-
5th December 2010 13:00 #1Registered User
Join Date: Sep:2008
Location: /
Posts: 42
!
, :
10
:
, ( )
( -- )
-- 2000
/ / :
, 0.00, ? ..Code:program kursova2; type dannistudent=record ime: string[30]; FnN: string[6]; egn: string[10]; grupa: integer; ocenki: array[1..10] of byte; srusp: real; end; var file1: file of dannistudent; studenti: array[1..50] of dannistudent; Fname: string[10]; option:integer; brstud:integer; procedure vuvejdane(var st: dannistudent); var i:integer; begin with st do begin write('Vuvedi ime:'); readln(ime); if (ime=' ') then exit; write('Vuvedi EGN:'); readln(egn); write('Vuvedi Fakulteten nomer:'); readln(fnn); write('Vuvedi Grupa:'); readln(grupa); write('Vuvedi ocenki po 10 predmeta:'); for i:=1 to 10 do readln(ocenki[i]); end; end; procedure brstude(var st:dannistudent); begin brstud:=0; reset(file1); while not eof(file1) do begin brstud:=brstud+1; end; close(file1); end; function sruspe(st:dannistudent):real; var c,i:integer; begin c:=0; for i:=1 to 10 do c:=c+st.ocenki[i]; sruspe:=c/10; end; procedure sruspeh; var i:integer; begin for i:=1 to brstud do begin studenti[i].srusp:=sruspe(studenti[i]); end; writeln('otpechatvane na ime -- sreden uspeh na vsichki studenti'); writeln( ' -- ',studenti[i].srusp:4:2); end; procedure chetene(var st:dannistudent); var i:integer; begin with st do begin writeln('------------------'); writeln('Ime=',Ime); writeln('EGN=',egn); writeln('Fakulteten nomer=',FnN); writeln('Grupa=',grupa); writeln('Ocenki='); for i:=1 to 10 do write(ocenki[i], ' '); writeln; writeln('Sreden uspeh=',studenti[i].srusp:4:2); writeln('------------------'); end; end; procedure suzdavane; var i:integer; begin assign(file1, fname); rewrite(file1); close(file1); writeln('--------------------'); writeln('Faylut e suzdaden'); writeln('--------------------'); end; procedure dobavqne; var st:dannistudent; begin writeln('Dobavi student'); assign(file1,fname); reset(file1); seek(file1, filesize(file1)); vuvejdane(st); write(file1, st); close(file1); end; procedure promeni; var fno:string[6]; st:dannistudent; nameren:boolean; i:integer; begin write('Vuvedi Fn nomer za tursene:'); readln(fno); nameren:=false; assign(file1,fname); reset(file1); while not eof(file1) do begin read(file1, st); if fno=st.fnn then begin with st do begin nameren:=true; write('Vuvedi ime na studet'); readln(ime); write('Vuvedi egn'); readln(egn); write('Vuvedi Fn nomer'); readln(fnn); write('Vuvedi grupa'); readln(grupa); write('Vuvedi ocenki'); for i:=1 to 10 do readln(ocenki[i]); end; seek(file1, filepos(file1) -1); write(file1, st); end; end; if not nameren then begin writeln('--------------'); writeln('Ne sushtestuva'); writeln('--------------'); close(file1); end; end; procedure otpechatvane; var st:dannistudent; begin assign(file1, fname); reset(file1); while not eof(file1) do begin read(file1,st); writeln('Ime=',st.Ime); end; close(file1); end; begin Fname:='danni.dat'; repeat writeln('Glavno menu'); writeln('1-Suzdavane na file'); writeln('2-Dobavqne na danni'); writeln('3-Otpechatvane na imenata na vsichki studenti'); writeln('4-Promqna na dannite'); writeln('5-Izchislqvane na sredniq uspeh na vseki student'); writeln('6-Izvejdane na EGN i rojdenna data na studentite--muje postupili predi 2000g.'); writeln('0-Kray'); writeln; Writeln('Izberete opciq ot menuto'); readln(option); case option of 1:suzdavane; 2:dobavqne; 3:otpechatvane; 4:promeni; 5:sruspeh; end; until option=0; end.
!
-
5th December 2010 13:30 #2
sruspeh(), - brstud, for-. brstud brstude(), . . .

- . 5 . -, , , .
, , , ...
Fujistu Lifebook E756 | Core i7-6500U / 400MHz-3.1GHz | 8 GB DDR4-2133 | Samsung PM871 / 256 GB SSD | 15" 1920x1080 | Manjaro Linux + kernel 4.19




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