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

Публикувано на 16 май, понеделник от Данаил

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

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

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

  1. Lubomira каза:
    30 май, понеделник в 17:25 
    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. Боряна каза:
    02 юни, четвъртък в 16:42

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

    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.

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