Results 1 to 5 of 5
Hybrid View
-
15th December 2008 21:16 #1Registered User
Join Date: May:2006
Location: svishtov
Posts: 52
: , , . , .
St.sredups
(type mismatch)
, .
Program kursova;
Const k=10;
type stud=record
fakno:string[6];
student:array[1..k] of integer;
ocenka:array[1..k,1..3] of integer;
sredusp:array[1..k,1..3] of integer;
end;
var
i,j,,:integer;
gr:file of stud;
st:stud;
fname:string;
Procedure ReadStud(var st:stud);
Begin
For i:=1 to k do
Begin
Write(vavedete ime na studenta:);readln(st.student[i]);
write(fakulteten Nomer:);readln(st.fakno[i]);
write(ocenka po fizika:);readln(st.fizika[i,1]);
write(ocenka po piik:);readln(st.piik[i,2]);
write(ocenka po mat:);readln(st.mat[i,3]);
end;
Procedure CreateFile;
begin
write(ime na faila:);readln(fname);
assign(gr,fname);
rewrite(gr);
close(gr);
end;
Procedure Dobavi;
var ch:integer;
begin
reset(gr);
repeat
readstud(st);write(gr.st);
write(Shte produljiteli vavejdaneto:);readln(ch);
until ch in [1..3];
close(gr);
end;
Procedure SrAr;
var s:real;
begin
s:=0;
for j:=1 to 3 do
if (st.ocenka[I,j]=2) then s:=S+1;
if (s<2) then
begin
reset(gr);
while not EOF(gr) do begin
read(gr,st);
st.sredusp[i]:=st.ocenka[I,1]+st.ocenka[I,2]+ocenka[I,3]/3;
writeln(st.student[i];
writeln(sredusp[i]:2:2);
end;
writeln(sredniqt uspeh na :,st.student[i]);
writeln(e:,st.sredusp:2:2);
end;
Begin
Createfile;
Dobavi;
SrAr;
Writeln;
Readln;
End.
-
15th December 2008 21:34 #2
sredusp , SrAr, . sredusp[i,j].
, . .
"640K ught to be enough for anybody" - Bill Gates, 1981
::Machine specs::Fract::AGG::::Baileys::blog::YouTube channel
-
15th December 2008 23:58 #3Registered User
Join Date: May:2006
Location: svishtov
Posts: 52
, 1 , , 1 0 ,
procedure SrAr;
var s:real;br:integer;
begin
for i:=1 to k do
begin
s:=0;br:=0;
for j:1 to 3 do
if (st.ocenka[i,j]=2) then br:=br+1;
if (br<2) then
begin read(gr,st);
s:=(st.ocenka[i,1]+st.ocenka[i,2]+st.ocenka[i,3])/3;
end;
end;
writeln('sredniqt speh na:',st.student[i]);
writeln('e:',s:2:2);
end;
end;Last edited by JihatJievich; 16th December 2008 at 00:07.
-
16th December 2008 14:39 #4
writeline- if-a (if (br<2) ...)
, . .
"640K ught to be enough for anybody" - Bill Gates, 1981
::Machine specs::Fract::AGG::::Baileys::blog::YouTube channel
-
17th December 2008 13:48 #5Registered User
Join Date: May:2006
Location: svishtov
Posts: 52
:P , 2 ,




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