SHARE
TWEET

Untitled

a guest Mar 1st, 2019 93 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. clc
  2.  
  3. disp('Лабораторная работа №6');
  4.  
  5. disp('Задание 1');
  6.  
  7. //k = f(0.397)
  8. function [y] = f(x)
  9.     if(x^2<=25*cos(x^3)) then
  10.          y = sin(3*x)
  11.     elseif(x^2>25*cos(x^3))
  12.         y = 2*x-tan(x)/(sqrt(x^2+2))
  13.     else
  14.         y = %nan
  15.     end  
  16. endfunction
  17. disp('Значение функции:');
  18. disp(f(0.397))
  19. disp('****************************************');
  20.  
  21. disp('Задание 2');
  22. a = [ 1 2 -1 -2 1 1 1 -10 -1 -5 0 6 7 2 0 1];
  23. s = sum(a < 0)
  24. disp('Количество отрицательных элементов:');
  25. disp(s)
  26. disp('****************************************');
  27.  
  28. disp('Задание 3');
  29.  
  30. disp( "Введите 10 элементов вектора x.")
  31. x1=input('x1=')
  32. x2=input('x2=')
  33. x3=input('x3=')
  34. x4=input('x4=')
  35. x5=input('x5=')
  36. x6=input('x6=')
  37. x7=input('x7=')
  38. x8=input('x8=')
  39. x9=input('x9=')
  40. x10=input('x10=')
  41.  
  42.  
  43. x = ([x1, x2, x3, x4, x5, x6, x7, x8, x9, x10])
  44. s = sum(x < 0)
  45. disp((s), "Количество отрицательных элементов вектора:")
  46. disp('****************************************');
  47.  
  48. disp('Задание 4')
  49.  
  50.  
  51. s=0
  52. k=0
  53. while s<=10
  54.    x=input('x=')
  55.    rest=x-int(x/2)*2
  56.    if rest==0 then
  57.        s=s+x
  58.        k=k+1
  59.    end
  60. end
  61. disp((s), "Сумма четных элементов:")
  62. disp((k), "Количество слагаемых:")
  63. disp('****************************************');
  64.  
  65. disp('Задание 5')
  66.  
  67. D=input('Введите число D  от  1 до 31:  ');
  68. rest = D-int(D/7)*7
  69. select rest
  70.       case 1 then disp('Понедельник');
  71.       case 2 then disp('Вторник');
  72.       case 3 then disp('Среда');
  73.       case 4 then disp('Четверг');
  74.       case 5 then disp('Пятница');
  75.       case 6 then disp('Суббота');
  76.       else
  77.       disp('Sunday');
  78.       end
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top