Results 1 to 20 of 20
Hybrid View
-
18th November 2008 12:43 #1Registered User
Join Date: May:2006
Location: svishtov
Posts: 52
!
.
: . .
, . , , , . .
Procedure ReadStud (i:integer);
Var j:integer;
Begin
Writeln (' ',1);
writeln (''):readln (FN[1]);
write ('1 ');
For j:=1 to 1 do read (Ocst[i] [j]);
readln;
end.
-
18th November 2008 14:04 #2
. :
1. . rray.
2. () . .
.. .We are drowning in information, but starving for knowledge and time!
-
18th November 2008 15:09 #3
:
1. suma 0
2. (.. )
3. 1 ()
3.1
3.2. (suma)
4. , (. .3.2.) ()
5.Ar4i
-
22nd November 2008 15:57 #4Registered User
Join Date: May:2006
Location: svishtov
Posts: 52
-
22nd November 2008 21:58 #5
-
22nd November 2008 22:13 #6Registered User
Join Date: May:2006
Location: svishtov
Posts: 52
...
-
22nd November 2008 22:24 #7
-
23rd November 2008 04:06 #8Registered User
Join Date: May:2006
Location: svishtov
Posts: 52
program prog002;
uses crt;
type ratings = record
physics : real;
end;
type student = record
uid : string;
rating : ratings;
end;
var students : array of student;
K : integer;
function max_students() : integer;
begin
write('Input max students (K): ');
readln(max_students);
end;
procedure input_students();
var i : integer;
begin
writeln('-------------------------');
writeln(' input data for students');
writeln('-------------------------');
for i := 1 to K do
begin
writeln('student ', i);
write(' uid: ');
readln(students[i].uid);
repeat
write(' physics: ');
readln(students[i].rating.physics);
until((students[i].rating.physics >= 2.0) and (students[i].rating.physics <= 6.0));
repeat
end;
writeln('-------------------------');
end;
procedure average_rating();
var average : real;
max : integer;
i : integer;
begin
max := 0;
average := 0.0;
for i := 1 to K do
begin
max := max + 1;
average := average + students[i].rating.physics;
end;
if(max > 0) then
begin
average := average / max;
writeln('average rating: ', average:1:2);
end;
end;
begin
repeat
K := max_students();
until (K > 0);
setlength(students, K);
input_students();
average_rating();
-
23rd November 2008 19:45 #9
Free Pascal Pascal GCC. Windows Linux, SetLength
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
30th November 2008 17:49 #10Registered User
Join Date: Mar:2008
Location: bulgaria
Posts: 5
:
3 A[M,N],B[M,N],C[M,N](M<= 20 N<=20 ) . 3 :
-
-
- , [-500,1000] ,
-
30th November 2008 18:34 #11
Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others
-
30th November 2008 19:58 #12Registered User
Join Date: Mar:2008
Location: bulgaria
Posts: 5
...
program pr1(input,output);
const M=3;
N=2;
var i,j,:integer;
s:real;
A,B,C:array[1..M,1..N] of real;
begin
for i:=1 to M do
for J:=1 to N do
begin
readln(A[i,j]);
readln(B[i,j]);
readln(C[i,j]);
end;
writeln(A[i,j]);
writeln(B[i,j]);
writeln(C[i,j]);
end;
s:=o
if (A[i,j]>=-500) and (B[i,j]<=1000) then
s:=s+A[i,j];
if (B[i,j]>=-500) and (B[i,j]<=1000) then
s:=s+B[i,j];
if (B[i,j]>=-500) and (B[i,j]<=1000) then
s:=s+B[i,j];
end;
writeln('vuvedete stoinosti za A');
Inp(A);
writeln('vuvedete stoinosti za B');
Inp(B);
writeln('vuvedete stoinosti za C');
Inp(C);
end;
end.
-
1st December 2008 18:46 #13
Join Date: Sep:2005
Location: Sofia
Posts: 18,517
.
:
beginCode:PROCEDURE _; begin <> end;
Code:_;
-
2nd December 2008 18:42 #14
, ,
, - ( - - ),
, . , .
Code:PROGRAM preisrichter(output); TYPE preisrichter = (Mueller, Meier, Meyer, Maier, Mayer, Schulze, Schultze); einzelwertungen = ARRAY[preisrichter] OF real; preisrichternummern = ARRAY[1 .. 7] OF preisrichter; VAR j : integer; i,p1,p2 : preisrichter; schwierigkeitsgrad, minimum, minimum_lokal, maximum, maximum_lokal, endwertung : real; wertung : einzelwertungen; nummer : preisrichternummern; BEGIN write('Bitte geben Sie den Schwierigkeitsgrad der Vorfuehrung ein: '); readln(schwierigkeitsgrad); writeln; FOR i := Mueller TO Schultze DO BEGIN nummer[ord(i)+1] := i; write('Bitte geben Sie die Wertung von Preisrichter ', ord(i)+1 ,' ein: '); readln(wertung[i]); END; writeln; minimum := wertung[Mueller]; maximum := wertung[Mueller]; FOR j := 1 TO 3 DO BEGIN IF wertung[nummer[2*j]] > wertung[nummer[2*j+1]] THEN BEGIN minimum_lokal := wertung[nummer[2*j+1]]; maximum_lokal := wertung[nummer[2*j]] END ELSE BEGIN minimum_lokal := wertung[nummer[2*j]]; maximum_lokal := wertung[nummer[2*j+1]] END; IF maximum_lokal > maximum THEN maximum := maximum_lokal; IF minimum_lokal < minimum THEN minimum := minimum_lokal END; writeln('Schlechteste Wertung: ', minimum : 3 : 1); writeln('Beste Wertung: ', maximum : 3 : 1); endwertung := 0; FOR i := Mueller TO Schultze DO endwertung := endwertung + wertung[i]; endwertung := (endwertung-minimum-maximum) * schwierigkeitsgrad * 0.6; writeln('Gesamtwertung: ', endwertung : 10 : 3); readln END.
VAR, -
( , - - + " ")
preisrichter -
einzelwertungen -
preisrichternummern -
schwierigkeitsgrad -
wertung -
nummer -
minimum, minimum_lokal, maximum, maximum_lokal - ,
endwertung -
/var ( , ) -
, ,
Last edited by 8mann; 2nd December 2008 at 18:57.
i7-4790K | XFX 7870 2GB | GA-H97-D3H | SSD 850 PRO | be quiet! Dark Rock Pro 3 (BK019) | be quiet! Silent Base 600 | be quiet Dark Power Pro P7 650W
P20 Pro
X1 Carbon
-
2nd December 2008 18:54 #15
EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|
-
2nd December 2008 19:01 #16
-
3rd December 2008 18:35 #17Registered User
Join Date: Mar:2008
Location: bulgaria
Posts: 5
-
4th December 2008 09:55 #18




Reply With Quote

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