Ден на майстора

Да се напишат функции или процедури, които:

  1. по даден ден от седмицата отпечатват какво трябва да се прави този ден (например: понеделник – почиваме след неделята и т.н.)
  2. по даден ден от седмицата връща като резултат колко процента даваме от себе си в работата (според цитата „Винаги давам 100% в работата си: 13% Понеделник, 22% Вторник, 26% Сряда, 35% Четвъртък, 4% Петък“ :-) )
  3. при подаден ден от седмицата отпечатва отговора на въпроса „ще решаваме ли днес задачи по информатика“?
Публикувано в с етикети . Постоянна връзка.

3 Responses to Ден на майстора

  1. Lubomira каза:
    program Project1;
    function PrRabota (den:integer):integer;
    begin
    case den of
    1 : Result := 13 ;
    2 : Result := 22 ;
    3 : Result := 26 ;
    4 : Result := 35 ;
    5 : Result := 4 ;
    6 : Result := 0 ;
    7 : Result := 0 ;
    end ;
    end;
    var
    den :integer ;
    begin
    WriteLn ('Vuvedete den :' ) ;
    ReadLn (den) ;
    WriteLn ( 'Procent Rabota : ' ,PrRabota(den) ) ;
    ReadLn ;
    end.                                                           
  2. Боряна каза:

    ще я довърша вкъщи

    program Project1;
    // 1)
    procedure Kakvo(den: integer);
    begin
      case den of
      1: WriteLn('Ponedelnik? Um, ne, ne mi se raboti, izmorih se prez uikenda...');
      2: WriteLn('Vtornik? Ne e li losh kasmet da se raboti dnes?');
      3: WriteLn('Sriada? Chovek, sredata na sedmicata e, imai milost!');
      4: WriteLn('Chetvartak? Den na spuskaneto - znachi, pochivka...');
      5: WriteLn('Petak?! Nikoi ne raboti v petak!');
      6: WriteLn('Nima si mislish, che bih si pomradnala i prasta v sabota?');
      7: WriteLn(' Karash me da rabotia v NEDELIA? Ne e iako, chovek, ne e iako.');
      end;
    end;
    
    procedure Kolko(den: integer);
    begin
      case den of
      1: WriteLn('13%');
      2: WriteLn('22%');
      3: WriteLn('26%');
      4: WriteLn('35%');
      5: WriteLn('4%');
      6: WriteLn('0%');
      7: WriteLn('0%');
      end;
    end;
    var
      den: integer;
    begin
    end.
      

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