Advertisement
LessVegetables

Untitled

May 22nd, 2024 (edited)
1,104
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.67 KB | None | 0 0
  1. {
  2. Задание 1
  3. Присвоить случайным образом значения числовым переменным а1, а2,..., а10,
  4. а11, а12 . Вывести на экран значения этих переменных следующей таблицей:
  5.  
  6. 5.
  7. а1 а2 а3 а4
  8. а5 а6
  9. а7 а8
  10. а9 а10 а11
  11. }
  12. program exercise1;
  13. Var n, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11 : Integer;
  14. Begin
  15.     n := 10;
  16.     a1 := Random(n);
  17.     a2 := Random(n);
  18.     a3 := Random(n);
  19.     a4 := Random(n);
  20.     a5 := Random(n);
  21.     a6 := Random(n);
  22.     a7 := Random(n);
  23.     a8 := Random(n);
  24.     a9 := Random(n);
  25.     a10 := Random(n);
  26.     a11 := Random(n);
  27.     Writeln(a1, ' ', a2, ' ', a3, ' ', a4);
  28.     Writeln(a5, ' ', a6);
  29.     Writeln(a7, ' ', a8);
  30.     Writeln(a9, ' ', a10, ' ', a11);
  31. End.
  32.  
  33.  
  34. {
  35. Задание 2
  36. Даны x, y, z . Вычислить a, b, если:
  37. a = (1 + sin^2(x+y))/(2 + abs(x - (2x)/(1 + x^2y^2)) + x
  38. b = cos^2(arctg(1/z))
  39. }
  40. program exercise2;
  41. Var x, y, z, a, b : Real;
  42. Begin
  43.     Readln(x);
  44.     Readln(y);
  45.     Readln(z);
  46.    
  47.     a := (1 + sqr(sin(x + y))) / (2 + abs(x - (2 * x) / (1 + x*x*y*y))) + x;
  48.    
  49.     b := sqr(cos(arctan(1 / z)));
  50.    
  51.     Writeln(a:10:3);
  52.     Writeln(b:10:3);
  53. End.
  54. program exercise2;
  55. Begin
  56.     Writeln("yo");
  57. End.
  58.  
  59. {
  60. Задание 3
  61. Даны x, y, z . Вычислить a, b, если:
  62. a = (1 + sin^2(x+y))/(2 + abs(x - (2x)/(1 + x^2y^2)) + x
  63. b = cos^2(arctg(1/z))
  64. }
  65. program exercise3;
  66. Var a, b, c, p, S : Real;
  67. Begin
  68.     Readln(a);
  69.     Readln(b);
  70.     Readln(c);
  71.    
  72.     p := (a + b + c) / 2;
  73.    
  74.     S := sqrt(p * (p - a)*(p - b)*(p - c));
  75.    
  76.     Writeln(S:10:3);
  77. End.
  78.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement