Results 1 to 20 of 20

Thread:

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered 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.

  2. #2
    Eclipse Plugin Developer aphex's Avatar
    Join Date: Mar:2003
    Location: Karlsruhe
    Posts: 546
    . :

    1. . rray.
    2. () . .

    .. .
    We are drowning in information, but starving for knowledge and time!

  3. #3
    Master of Magic Ar4i's Avatar
    Join Date: Nov:2001
    Location:
    Posts: 6,563
    :

    1. suma 0
    2. (.. )
    3. 1 ()
    3.1
    3.2. (suma)
    4. , (. .3.2.) ()
    5.
    Ar4i

  4. #4
    Registered User
    Join Date: May:2006
    Location: svishtov
    Posts: 52

  5. #5
    .NET Developer Sharp Developer's Avatar
    Join Date: Nov:2008
    Location: Razgrad
    Posts: 21
    Quote Originally Posted by JihatJievich View Post
    , ... /
    , ...

  6. #6
    Registered User
    Join Date: May:2006
    Location: svishtov
    Posts: 52
    ...

  7. #7
    .NET Developer Sharp Developer's Avatar
    Join Date: Nov:2008
    Location: Razgrad
    Posts: 21
    Quote Originally Posted by JihatJievich View Post
    ...
    ...
    , ...

  8. #8
    Registered 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();

  9. #9
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    Free Pascal Pascal GCC. Windows Linux, SetLength
    Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others

  10. #10
    Registered 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] ,



  11. #11
    philosophus duratea icaci's Avatar
    Join Date: Oct:2006
    Location: Aachen
    Posts: 2,698
    Internet - it doesn't make you stupid, it just makes your stupidity more accessible to others

  12. #12
    Registered 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.

  13. #13

    Join Date: Sep:2005
    Location: Sofia
    Posts: 18,517
    .
    :

    Code:
    PROCEDURE _;
      begin
        <>
      end;
    begin
    Code:
    _;

  14. #14
    [ ] 8mann's Avatar
    Join Date: Dec:2005
    Location: ...
    Posts: 4,082
    , ,
    , - ( - - ),

    , . , .

    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

  15. #15
    Bombera's Avatar
    Join Date: Jul:2001
    Location: 4EVA
    Posts: 13,833
    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|

  16. #16
    [ ] 8mann's Avatar
    Join Date: Dec:2005
    Location: ...
    Posts: 4,082
    Quote Originally Posted by Bombera View Post
    ,
    10 ... , ... ...
    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

  17. #17
    Registered User
    Join Date: Mar:2008
    Location: bulgaria
    Posts: 5

  18. #18
    Registered User
    Join Date: May:2006
    Location: pred PC
    Posts: 84
    , .
    , .
    ,

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |