Программалық блок-схемаларды біледі Жаңа түсінік Күрделі шарттар

Келесі шарттарға сай, у-ты табатын программа құр

• 
  PROGRAM F1;
  
• 
  VAR X,Y: REAL; Y=
  
• 
  BEGIN
  
• 
  READLN(X);
  
• 
  IF X<2 THEN Y: = X ELSE
  
• 
  IF X<3 THEN Y: = 2 ELSE Y: = -X + 5;
  
• 
  WRITELN (‘Y=’ , Y);
  
• 
  READLN;
  
• 
  END.
  

• 
  VAR X,Y: REAL;
  
• 
  BEGIN
  
• 
  READLN(X);
  
• 
  IF X<=0 THEN Y: = SQR(X) ELSE
  
• 
  IF X>1 THEN Y: = 2*X+4 ELSE Y: = SQRT(SIN(X));
  
• 
  WRITELN (‘Y=’ , Y:1:1);
  
• 
  READLN;
  
• 
  END.
  

• 
  VAR X,Y: REAL;
  
• 
  BEGIN
  
• 
  READLN(X);
  
• 
  IF X<=3 THEN Y: =12+COS(5*X) ELSE
  
• 
  IF X>5 THEN Y: = X+5 ELSE Y: = (5*X+7)/(3*X-4);
  
• 
  WRITELN (‘Y=’ , Y);
  
• 
  READLN;
  
• 
  END.