Need a unique gift idea?
A Pastebin account makes a great Christmas gift
SHARE
TWEET

Untitled

a guest Nov 21st, 2018 78 Never
Upgrade to PRO!
ENDING IN00days00hours00mins00secs
 
  1. //1.    Определить время падения камня на поверхность
  2. //земли с высоты h. (t:=Sqrt(2*h/g);)
  3. function per(h:real):real;
  4. const g = 9.8;
  5. begin
  6.   writeln('t=',sqrt(2*h/g));
  7. end;
  8.  
  9. //2.    Известна длина окружности. Найти площадь круга,
  10. //ограниченного этой окружностью. (S:=(Sqr(L)/4Pi))
  11. function vtor(l:real):real;
  12. begin
  13.   writeln('l=',sqr(l)/4*Pi);
  14. end;
  15.  
  16. //3.    Вычислить высоту треугольника, опущенную на сторону а,
  17. //по известным значениям длин
  18. //его сторон a, b, c. (h:=(2/a)*sqrt(p(p-a)(p-b)(p-c)), p:=(a+b+c)/2
  19.  
  20. function tret(a,b,c:real):real;
  21. var p:real;
  22. begin
  23.   p:=(a+b+c)/2;
  24.   writeln('h=',(2/a)*sqrt(p*(p-a)*(p-b)*(p-c)));
  25. end;
  26.  
  27. //4.    Вычислить объем цилиндра с радиусом основания r и высотой h.
  28.  
  29. function chet(r,h:real):real;
  30. begin
  31.   writeln('V=',Pi*sqr(r)*h);
  32. end;
  33.  
  34. //5.    Определить расстояние, пройденное физическим телом за время t,
  35. //если тело движется с постоянным ускорением а и имеет в начальный
  36. //момент времени скорость V0.
  37.  
  38. function phett(v0, a, t:real):real;
  39. begin
  40.   writeln('S=',v0 * t + (a * sqr(t) / 2));
  41. end;
  42.  
  43. //6.    Вычислить площадь треугольника по формуле Герона, если заданы его стороны.
  44.  
  45. function shest(a,b,c:real):real;
  46. begin
  47.  // writeln('S=',sqrt(p*(p-a)*(p-b)*(p-c)));
  48. end;
  49.  
  50. //7.    Определить координаты вершины параболы y=ax2+bx+c (a<>0).
  51. //Коэффициенты a,b,c заданы. (x=-b/2a) (y:=
  52.  
  53. function shem(a,b,c:real):real;
  54. var x:real;
  55. begin
  56.   if a<>0 then
  57.     begin
  58.     x:=-b/2*a;
  59.     writeln('y=',a*sqr(x)+b*x+c);
  60.     end
  61.   else
  62.     begin
  63.     writeln('a=0!');
  64.     end;
  65. end;
  66.  
  67. //8.    По данным сторонам прямоугольника вычислить его периметр,
  68. //площадь и длину диагонали
  69.  
  70. function vosem(a,b:real):real;
  71. begin
  72.   writeln('Периметр = ',2*(a+b));
  73.   writeln('Площадь = ',a*b);
  74.   writeln('Длина диаоганли = ', sqrt(sqr(a)+sqr(b)));
  75. end;
  76.  
  77. //9.    Даны два числа. Найти среднее арифметическое их квадратов
  78. //и среднее арифметическое их модулей
  79.  
  80. function devyt(a,b:real):real;
  81. begin
  82.   writeln('Cреднее арифметическое квадратов = ',sqr(a+b)/2);
  83.   writeln('Cреднее арифметическое модулей = ',abs(a+b)/2);
  84. end;
  85.  
  86. //10.   Дана длина ребра куба. Найти площадь грани, площадь
  87. //полной поверхности и объем этого куба.
  88.  
  89. function desat(l:real):real;
  90. begin
  91.   writeln('Площадь грани куба = ', sqr(l));
  92.   writeln('Площадь полной поверхности куба = ', 6*sqr(l));
  93.   writeln('Объем куба = ', power(l,3));
  94. end;
  95.  
  96. //11.   Найти длину окружности и площадь круга заданного радиуса R.
  97.  
  98. function odinatsat(r:real):real;
  99. begin
  100.   writeln('Длину окружности = ',2*Pi*r);
  101.   writeln('Площадь круга = ',Pi*sqr(r));
  102. end;
  103.  
  104. //12.   Даны координаты трех вершин треугольника (x1, y1), (x2, y2), (x3, y3).
  105. //Найти его периметр и площадь.
  106.  
  107. function dvenatsat(x1,y1,x2,y2,x3,y3:real):real;
  108. begin
  109.   writeln('Площадь = ',1/2*(x1*(y2-y3)+x2*(y3-y1)+x3*(y1-y2)));
  110.   writeln('Периметр = ',sqrt(sqr(x1-y1)+sqr(x2-y2)+sqr(x3-y3)));
  111. end;
  112.  
  113. //13.   Дано целое четырехзначное число.
  114. //Используя операции div и mod, найти сумму его цифр
  115.  
  116. function Trenatsat(a:integer):integer;
  117. var i,b,c:integer;
  118. begin
  119.   c:=0;
  120.   for i:=0 to inttostr(a).Length do
  121.     begin
  122.     b:=a mod 10;
  123.     c:=c + b;
  124.     a:=a div 10;
  125.     end;
  126.   writeln('Сумма цифр = ',c);
  127. end;
  128.  
  129. //14.   Дано целое четырехзначное число.
  130. //Используя операции div и mod, найти произведение его цифр.
  131.  
  132. function Chetirnadsat(a:integer):integer;
  133. var i,b,c:integer;
  134. begin
  135.   c:=1;
  136.   for i:=0 to inttostr(a).Length-1 do
  137.     begin
  138.     b:=a mod 10;
  139.     c:=c * b;
  140.     a:=a div 10;
  141.     end;
  142.   writeln('Произведение цифр = ',c);
  143. end;
  144.  
  145. //15.   Скорость первого автомобиля V1 км/ч, второго — V2 км/ч, расстояние
  146. //между ними S км. Определить расстояние между ними через T часов,
  147. //если автомобили первоначально движутся навстречу друг другу.
  148.  
  149. function petnatsat(v1,v2,s,t:real):real;
  150. begin
  151.     writeln('Ответ ',abs(s-((t*v1)+(t*v2))));
  152. end;
  153.  
  154. //16.   Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч (U < V).
  155. //Время движения лодки по озеру T1 ч, а по реке
  156. //(против течения) — T2 ч. Определить путь S, пройденный лодкой.
  157.  
  158. function sthesnadsat(v,u,t1,t2:real):real;
  159. var s:real;
  160. begin
  161.   if (u<v) then
  162.   begin
  163.   s := v * t1;
  164.   v := v - u;
  165.   s := s + v * t2;
  166.   writeln('Расстояние = ',s);
  167.   end
  168.   else
  169.   writeln('U > V')
  170. end;
  171.  
  172. //17.   Дана сторона равностороннего треугольника.
  173. //Найти площадь этого треугольника и радиусы вписанной и описанной окружностей.
  174.  
  175. function shemnadsat(a:real):real;
  176. begin
  177.     writeln('Площадь = ',(sqr(a)*sqrt(3))/4);
  178.     writeln('Радиус вписанной окружности = ',(a*sqrt(3))/6);
  179.     writeln('Радиус описанной окружности = ',(a*sqrt(3))/3);
  180. end;
  181.  
  182. //18.   Известно количество жителей в государстве и площадь его территории.
  183. //Определить плотность населения в этом государстве.
  184.  
  185. function vosemnadsat(c,s:real):real;
  186. begin
  187.     writeln('Плотность населения = ',c/s);
  188. end;
  189.  
  190. //19.   Найти площадь кольца, внутренний радиус которого равен R1,
  191. //а внешний радиус равен R2 (R1 < R2).
  192.  
  193. function devatnadsat(r1,r2:real):real;
  194. begin
  195.     if r1<r2 then
  196.     writeln('Площадь кольца = ',Pi*(sqr(r2)-(sqr(r1))))
  197.     else writeln('R1 > R2');
  198. end;
  199.  
  200. //20.   Найти максимум и минимум двух натуральных чисел не
  201. //используя ветвления алгоритма.
  202.  
  203. function dvatsat(a,b:integer):integer;
  204. var i,c,min,max:integer;
  205. begin
  206.     min:=a;
  207.     max:=b;
  208.     for i:=0 to 1 do
  209.     begin
  210.       if min < max then continue
  211.       else
  212.         begin
  213.         c:=min;
  214.         min:=max;
  215.         max:=c;
  216.         end
  217.     end;
  218.     writeln('max = ', max,'; min = ', min)
  219. end;
  220.  
  221. begin
  222.   per(2);
  223.   vtor(3);
  224.   tret(2,4,5);
  225.   chet(2,3);
  226.   phett(2,3,4);
  227.   shest(2,4,5);
  228.   shem(2,3,4);
  229.   vosem(2,4);
  230.   devyt(2,3);
  231.   desat(5);
  232.   odinatsat(5);
  233.   dvenatsat(1,2,3,4,5,6);
  234.   Trenatsat(5);
  235.   Chetirnadsat(5);
  236.   petnatsat(5,4,6,1);
  237.   sthesnadsat(2,4,6,5);
  238.   shemnadsat(4);
  239.   vosemnadsat(5,10);
  240.   devatnadsat(5,5);
  241.   dvatsat(10,3);
  242. 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