Статистика за ученици

Публикувано на 10 февруари, петък от Данаил

Да се напише програма, която позволява да се въведат в масив от елементи от тип запис имената и успеха за срока на N ученици и отпечата:

  1. имената и оценките на учениците в прегледен вид
  2. дали ще има някой, който да се явява на поправителен
  3. имената на учениците, завършили с отличен
  4. * По желание: Списък на учениците, сортиран по успех
Публикувано в 10a с етикети . Постоянна връзка.

4 Responses to Статистика за ученици

  1. Alya каза:
    15 февруари, сряда в 17:46

    С Вики ;р

    program Project1;
type
  Uchenik=record
    ime: string[30];
    ocenka: real;
  end;
var
  N, i: integer;
  k: array[1..100] of uchenik;
begin
  Write('Vavedete broi uchenici: ');
  ReadLn(N);
  WriteLn;

  For i:=1 to N do begin
    WriteLn('Uchenik nomer ',i,' se kazva: ');
    ReadLn(k[i].ime);
    WriteLn('Negovata ocenka e: ');
    ReadLn(k[i].ocenka);
    WriteLn;
  end;
  WriteLn;

  For i:=1 to N do begin
    WriteLn(k[i].ime,': ',k[i].ocenka:2:2);
  end;
  WriteLn;

  For i:=1 to N do begin
    If (k[i].ocenka)=2 then
    WriteLn(k[i].ime,' trqbva da se qvi na izpit');
  end;
  WriteLn;

  For i:=1 to N do begin
    If (k[i].ocenka)=6 then
    WriteLn(k[i].ime,' e zavurshil/a s otlichen');
  end;
  ReadLn;
end.
  2. Svetli каза:
    15 февруари, сряда в 17:48 
    program Project1;
type
  Uspeh = record
    ime:string;
    sruspeh:real;
  end;
var
  Br,i:integer;
  N: array[1..50] of Uspeh;

begin
  Writeln('Vavedete broq na uchenicite');
  Readln(Br);
  Writeln('Vavedete imenata i uspeha na uchenicite ');
  Writeln;

  for i:= 1 to Br do begin
    Write('Ime:');
    Readln(N[i].ime);
    Write('Uspeh:');
    Readln(N[i].sruspeh);
    Writeln;
  end;
  Writeln;

  Writeln('Spisuka na uchenicite:');
  Writeln('**********************');

  for i:= 1 to Br do begin
    Write('Ime:');
    Writeln(N[i].ime);
    Write('Uspeh');
    Writeln(N[i].sruspeh:5:2);
    Writeln;
    Writeln('**********************');
  end;

  Writeln;
  Writeln('Uchenicite, koito shte trqbva da se qvqt na popravitelen sa:');
  for i:= 1 to Br do begin
    if (N[i].sruspeh) < 3.00 then begin
       Write('Ime:');
       Writeln(N[i].ime);
       end
    else;
  end;
  Writeln;

  Writeln('Uchenicite, koito sa zavurshili s otlichen sa:');
  for i:= 1 to Br do begin
    if (N[i].sruspeh) >= 5.50 then begin
       Write('Ime:');
       Writeln(N[i].ime);
       end
    else;
  end;
  Writeln;


  Readln;
end.
  3. Lubomira каза:
    15 февруари, сряда в 17:57 
    program project1;
type
    uchenik=record
    ime: string[20];
    prezime:String[20];
    uspeh:real;
end;
var
    i,N:integer;
    u:array[1..10] of uchenik;

begin
WriteLn('Vuvedete broya na uchenicite:');
ReadLn(N);
For i:=1 to N do begin
  WriteLn('Vuvedete imeto na uchenika:');
    ReadLn(u[i].ime);
  WriteLn('Vuvedete i prezimeto mu:');
    ReadLn(u[i].prezime);
  WriteLn('Vuvedete uspeha na tozi uchenik:');
    ReadLn(u[i].uspeh);
end;
For i:=1 to N do begin
    WriteLn(u[i].ime,' ',u[i].prezime,'-',u[i].uspeh:2:2);
end;
For i:=1 to N do
    if u[i].uspeh = 2 then
        WriteLn(u[i].ime,' ',u[i].prezime,'-','za poprawitelen');
For i:=1 to N do
    if u[i].uspeh = 6 then
        WriteLn(u[i].ime,' ',u[i].prezime,' ',' ima otlichen');
ReadLn;
end.

Вашият коментар