Оценка с думи

Да се въведе оценка с цифра и да се изведе с дума и цифра (например „отличен 6“)

Публикувано в с етикети . Постоянна връзка.

10 коментара по Оценка с думи

  1. Боряна каза:
    program ocenka;
    var
      ocenka: integer;
    begin
      Write('Vavedete ocenkata si, zakryglena do cialo chislo:');
      ReadLn(ocenka);
      case (ocenka) of
      2: WriteLn('Sygaliavam, vashata ocenka e "Slab 2".');
      3: WriteLn('Vashata ocenka e "Sreden 3".');
      4: WriteLn('Vashata ocenka e "Dobar 4".');
      5: WriteLn('Vashata ocenka e "Mnogo dobar 5".');
      6: WriteLn('Pozdravlenia, vashata ocenka e "Otlichen 6"!');
      else WriteLn('Vaznikna greshka, proverete presmiataniata si.');
      end;
      ReadLn;
    end. 
    
  2. Alya каза:
    program Project1;
    var
      ocenka: integer;
    
    begin
      Write('Vavedete ocenka (ot 2 do 6): ');
      ReadLn(ocenka);
      case(ocenka) of
      2: WriteLn('Slab dve');
      3: WriteLn('Sreden tri');
      4: WriteLn('Dobar chetiri');
      5: WriteLn('Mnogo dobar pet');
      6: WriteLn('Otlichen shest');
      else WriteLn('Nevalidna ocenka!');
      end;
      ReadLn;
    end.
    
  3. svetlieti каза:
    program project1;
    var
      ocenka:integer;
    begin
      Writeln('Vavedete ocenkata');
      Readln(ocenka);
      case ocenka of
      2:   Writeln('Slab 2');
      3:   Writeln('Sreden 3');
      4:   Writeln('Dobur 4');
      5:   Writeln('Mnogo Dobur 5');
      6:   Writeln('Otlichen 6');
      else
        Writeln('Nqma takava ocenka');
      end;
      Readln;
    end.
    
  4. zornitsa_mirela каза:
    program Ocenki;
    var
    ocenka: integer ;
    begin
      Write('Vavedete ocenka');
      ReadLn(ocenka);
      case (ocenka) of
        2: WriteLn('Slab');
        3: WriteLn('Sreden');
        4: WriteLn('Dobur');
        5: WriteLn('Mnogo dobur');
        6: WriteLn('Otlichen');
      end;
      ReadLn;
    end.
  5. Viktoria Velichkova каза:
    program VikiVOcenki;
    var
      ocenka: integer;
    begin
      Write('Vavedete ocenka (ot 2 do 6): ');
      ReadLn(ocenka);
      case (ocenka) of
       1: WriteLn('Veche nqma takava ocenka');
       2: WriteLn('Slad 2');
       3: WriteLn('Sreden 3');
       4: WriteLn('Dobur 4');
       5: WriteLn('Mnogo Dobur 5');
       6: WriteLn('Otlichen 6');
       Else WriteLn ('Vse oshte nqma takava ocenka!');
      end;
     ReadLn;
    end.  
    
  6. Lubomira каза:
     program Project1;
     var
       ocenka:integer;
    begin
    WriteLn('Vuvedete Ocenka ( ot 1 do 6 ) : ') ;
    ReadLn (Ocenka) ;
    Case (Ocenka) of
     2 :WriteLn ('Slab dve') ;
     3 :WriteLn ('Sreden tri') ;
     4 :WriteLn ('Dobur chetiri') ;
     5 :WriteLn ('Mnogo dobur pet') ;
     6 :WriteLn ('Otlichen shest') ;
     else WriteLn ('Nevalidna ocenka') ;
    
    end;
       ReadLn ;
    
    end. 
  7. Tsvetelin каза:
     
    program Ocenki;
    var ocenka:integer;
    
    begin
    WriteLn('Vuvedete ocenkata si: ');
    ReadLn(ocenka);
    case (ocenka) of
     1:WriteLn('Losh');
     2:WriteLn('Slab');
     3:WriteLn('Srednen');
     4:WriteLn('Dobur');
     5:WriteLn('Mnogo dobur');
     6:WriteLn('Otlichen');
    else
     WriteLn('Nevalidna ocenka!')
    end;
    ReadLn;
    end.  
    
  8. viktoria каза:
    program ocenki;
    var
      ocenka:integer;
    begin
      WriteLn('Vavedete ocenka(ot 2 do 6):');
       ReadLn(ocenka);
       case (ocenka) of
        2: WriteLn('slab');
        3: WriteLn('sreden');
        4: WriteLn('dobar');
        5: WriteLn('mnogo dobar');
        6: WriteLn('otlichen');
       else WriteLn ('Nqma takava ocenka!');
         ReadLn;
       end;
       ReadLn;
    end.
    
  9. emiliarstefanova каза:
     program ocenka;
    var
      ocenkata: integer;
    begin
      Write('Vavedete ocenkata (ot 1 do 6)');
      ReadLn(ocenkata);
      case (ocenkata)of
      1: WriteLn('Vse oshte nqma takava ocenka');
      2: WriteLn('slab');
      3: WriteLn('sreden');
      4: WriteLn('dobur');
      5: WriteLn('mnogo dobur');
      6: WriteLn('otlichen');
      Else WriteLn ('Vse oshte nqma takava ocenka');
      end;
      ReadLn;
    end.  

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