Файл: Program z1 1a z.pdf

Раздел I.
Program z1_1a_z;
Uses Crt; var a,b,c,y:Real;
Begin
ClrScr;
Write ('a,b,c=');
Read(a,b,c); y:=(b+sqrt(sqr(b)+4*a*c))/(2*a)- exp(3*ln(a))*c+1/sqr(b); write('y=',y:5:6);
Readkey; end. b) Y:=(a*b)/(c*d)-(a*b-c)/(c*d); c) Z:=(sin(x)+cos(y))*(sin(x*y)/cos(x*y)/(cos(x)- sin(y); d) Z:=(x+y)/(x+1)-(x*y-12)/(34+x); e) Z:=(3+exp(y-1))/(1+x*x*abs(y-sin(x)/cos(x))); f) Y:=x-exp(3*ln(x))/3+exp(5*ln(x))/5; g) Z:=ln(abs((y-sqrt(abs(x)))*(x-y/(x+x*x/4)))); h) Z:=exp(cos(x)/sin(x)*ln(1-sin(x)/cos(x)))+cos(x- y); i) Y:=ln(abs(cos(x)))/ln(1+x*x); j) Z:=exp(x*ln((x+1)/(x-1)))+18*x*y*y; k) Z:=exp(x*ln(1+1/sqr(x)))-12*x*x*y; l) Y:=(sqr(x)-7*x+10)/(sqr(x)-8*x+12); m) Z:=cos(x)/(pi-2*x)+16*x*cos(x*y)-2; n) Y:=exp(-x*ln(2))-cos(x)+sin(2*x*y); o) Y:=2*cos(3*x)/sin(3*x)-1/(12*sqr(x)+7*x-5); p) Y:=abs(sqr(x)-exp(3*ln(x)))-(7*x)/(x*x*x-15*x); q) Z:=x*ln(x)+y/(cos(x)-x/3); r) Y:=sin(sqrt(x+1))-sin(sqrt(x-1)); s) Z:=exp(x)-(y*y+12*x*y-3*x*x)/(18*y-1); t) Z:=(1+sin(sqrt(x+1)))/cos(12*y-4); u) Z:=2*cos(3*x)/sin(3*x)-ln(cos(x))/ln(1+x*x); v) Z:=exp(x)-x-2+exp(x*ln(1+x)); w) Z:=exp(x*ln(3))-4*x+(y-sqrt(abs(x))); x) Y:=x-10*sin(x)+abs(exp(4*ln(x))-exp(5*ln(x))); y) Z:=x-exp(sin(x)*ln(10))+cos(x-y); z) Y:=(1+sqr(sin(x+y)))/(2+abs(x-
(2*x)/(1+sqr(x*y))))+x;

2
Program z1_2;
Uses crt; var a,b,c,s,p: real;
Begin
Clrscr;
Write ('a,b=');
Read(a,b); c:=sqrt(sqr(a)+sqr(b));
P:=a+b+c;
S:=a*b/2;
Writeln('s=',s:5:6);
Writeln('p=',p:5:6);
Readkey; end.
Program z1_3;
Uses crt; var x1,y1,x2,y2,x3,y3,a,b,c,s,p: real;
Begin
Clrscr;
Write ('x1,y1,x2,y2,x3,y3=');
Read(x1,y1,x2,y2,x3,y3); c:=sqrt(sqr(x2-x1)+sqr(y2-y1)); a:=sqrt(sqr(x3-x1)+sqr(y3-y1)); b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
P:=a+b+c;
Writeln('p=',p:5:6); p:=p/2; s:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('s=',s:5:6);
Readkey; end.
Program z1_4;
Uses crt; var r,c,s: real;
Begin
Clrscr;
Write ('r=');
Read(r); c:=2*pi*r; s:=pi*r*r;
Writeln('c=',c:5:6);
Writeln('s=',s:5:6);
Readkey;

3 end.
Program z1_5;
Uses crt; var n,x,y,z,t,p: integer;
Begin
Clrscr;
Write ('n=');
Read(n); x:=n div 1000; n:=n mod 1000; y:=n div 100; n:=n mod 100; z:=n div 10; t:=n mod 10; p:=x*y*z*t;
Writeln('p=',p);
Readkey; end.
Program z1_6;
Uses crt; var a,b,sa,sg: real;
Begin
Clrscr;
Write ('a,b=');
Read(a,b); sa:=(a*a*a+b*b*b)/2; sg:=sqrt(abs(a*b));
Writeln('sa=',sa:5:6);
Writeln('sg=',sg:5:6);
Readkey; end.
Program z1_7;
Uses crt; var x1,y1,x2,y2,d: real;
Begin
Clrscr;
Write ('x1,y1,x2,y2=');
Read(x1,y1,x2,y2); d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
Writeln('d=',d:5:6);
Readkey; end.

4
Program z1_8;
Uses crt; var x,y,s,raz,p,d: real;
Begin
Clrscr;
Write ('x,y=');
Read(x,y); s:=x+y; raz:=x-y; p:=x*y; d:=x/y;
Сумма
Разность
Произведение
Частное
Readkey; end.
Program z1_9;
Uses crt; var a,sg,sp,v: real;
Begin
Clrscr;
Write (Введите величину ребра куба
Read(a); sg:=a*a; sp:=6*sg; v:=a*sg;
Площадь грани
Полная поверхность
Объем
Readkey; end.
Program z1_10;
Uses crt; var a,s,h,rv,rop: real;
Begin
Clrscr;
Write (Введите стороны
Read(a);

5 s:=a*a*sqrt(3)/4; h:=2*s/a; rv:=a/(2*sqrt(3)); rop:=a/sqrt(3);
Площадь
Высота
Радиус вписанной окружности
Радиус описанной окружности
Readkey; end.
Program z1_11;
Uses crt; var c,r,s: real;
Begin
Clrscr;
Write ('c=');
Read(c); r:=c/(2*pi); s:=pi*sqr(r);
Writeln('s=',s:5:6);
Readkey; end.
Program z1_12;
Uses crt; var r1,r2,sk: real;
Begin
Clrscr;
Write (Введите r1>r2 :');
Read(r1,r2); sk:=pi*(sqr(r1)-sqr(r2));
Площадь кольца
Readkey; end.
Program z1_13;
Uses crt; var a,b,c,r,ua,ub,uc: real;
Begin
Clrscr;
Writeln (Введите радиус
Read(r);
Writeln (Введите углы в градусах

6
Read(ua,ub,uc); a:=2*r*sin(ua*pi/180); b:=2*r*sin(ub*pi/180); c:=2*r*sin(uc*pi/180);
Writeln('a=',a:5:6);
Writeln('b=',b:5:6);
Writeln('c=',c:5:6);
Readkey; end.
program z1_14;
uses crt; var a,b,h,ug,s:real; begin clrscr; write('a,b=');read(a,b); write('Введит острый угол в градусах ug=');read(ug); h:=(b-a)/2*sin(ug*pi/180)/cos(ug*pi/180); s:=(a+b)*h/2; writeln('s=',s:3:3); readkey; end.
Program z1_15;
Uses crt; var a,b,ug,s,h: real;
Begin
Clrscr;
Write ('a,b=');
Read(a,b);
Write (Введите угол в градусах
Read(ug); h:=((a-b)/2)*sin(ug*pi/180)/cos(ug*pi/180); s:=(a+b)/2*h;
Writeln('s=',s:5:6);
Readkey; end.
Program z1_16_1;
Uses crt; var a,s: real;
Begin
Clrscr;

7
Write ('a=');
Read(a); s:=a*a; s:=s*s; s:=s*s;
Writeln('s=',s:5:6);
Readkey; end.
Program z1_16_2;
Uses crt; var a,s,s1: real;
Begin
Clrscr;
Write ('a=');
Read(a); s1:=a*a; s:=s1*s1; s:=s*s; s:=s*s1;
Writeln('s=',s:5:6);
Readkey; end.
Program z1_16_3;
Uses crt; var a,s: real;
Begin
Clrscr;
Write ('a=');
Read(a); s:=a*a; s:=s*s; s:=s*s; s:=s*s;
Writeln('s=',s:5:6);
Readkey; end.
Program z1_17;
Uses crt; var a1,d,n,s: real;
Begin
Clrscr;

8
Write ('a1,d,n=');
Read(a1,d,n); s:=(2*a1+d*(n-1))/2*n;
Writeln('s=',s:5:6);
Readkey; end.
Program z1_18;
Uses crt; var a,b,c,ua,ub,uc,xa,xb,xc: real;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c); xa:=(b*b+c*c-a*a)/(2*b*c); xb:=(a*a+c*c-b*b)/(2*a*c); xc:=(b*b+a*a-c*c)/(2*b*a); ua:=arctan(sqrt(1+1/xa))*180/pi; ub:=arctan(sqrt(1+1/xb))*180/pi; uc:=180-ua-ub;
Writeln('ua=',int(ua):3:0,' град' мин' сек
Writeln('ub=',int(ub):3:0,' град' мин' сек
Writeln('uc=',int(uc):3:0,' град' мин' сек
Readkey; end.
Program z1_19;
Uses crt; var m,n,k,p,q,r: integer;
Begin
Clrscr;
Write (Текущее время (час.,мин.,сек.)=');
Read(m,n,k);
Write (Следующее время (час.,мин.,сек.)=');
Read(p,q,r); m:=m+p; n:=n+q; k:=k+r; m:=(m+trunc((n+trunc(k/60))/60)) mod 24; n:=(n+trunc(k/60)) mod 60;

9 k:=k mod 60;
Writeln(m,' час. ',n,' мин. ',k,' сек
Readkey; end.
Program z1_20;
Uses crt; var x,k,y: real;
Begin
Clrscr;
Write (кошек
Read(x);
Write (время (час
Read(y); k:=2/3*x*y;
Writeln(x:3:2,' кошек за ',y:3:2,' час. съедят ',k:3:2,' мышей
Readkey; end.
Program z1_21;
Uses crt; var vc,vk,h,r: real;
Begin
Clrscr;
Write ('h=');
Read(h);
Write ('r=');
Read(r); vc:=pi*r*r*h; vk:=vc/3;
Объем цилиндра ',vc:5:6);
Объем конуса ',vk:5:6);
Readkey; end.
Program z1_22;
Uses crt; var s: string[1];
Begin
Clrscr;
Write (Символ
Read(s);

10
Writeln (Его порядковый номер
Writeln (Предыдущий символ
Writeln (Последующий символ
Readkey; end.
Program z1_23_a;
Uses crt; var n,x,y,z,t: integer; l:boolean;
Begin
Clrscr;
Write (Введите четырехзначное число
Read(n); x:=n div 1000; n:=n mod 1000; y:=n div 100; n:=n mod 100; z:=n div 10; t:=n mod 10; l:=(x+y)=(z+t);
Утверждение
Readkey; end.
Program z1_23_b;
Uses crt; var n,x,y,z,s: integer; l:boolean;
Begin
Clrscr;
Write (Введите трехзначное число
Read(n); x:=n div 100; n:=n mod 100; y:=n div 10; z:=n mod 10; s:=x+y+z; l:=(s/2=int(s/2));
Утверждение
Readkey; end.
Program z1_23_c;

11
Uses crt; var m,n,x,y: integer; l:boolean;
Begin
Clrscr;
Write (Введите m,n (m Read(m,n);
Введите координаты точки
Read(x,y); l:=(x>m) and (x Утверждение
Readkey; end.
Program z1_23_d;
Uses crt; var n,x,y,z,s,kv: integer; l:boolean;
Begin
Clrscr;
Write (Введите трехзначное число
Read(n); kv:=n*n; x:=n div 100; n:=n mod 100; y:=n div 10; z:=n mod 10; s:=x+y+z; s:=s*s*s; l:=(s=kv);
Утверждение
Readkey; end. Для проверки 448 в квадрате это 4096 4+4+8 возведенное в третью степень 4096}
Program z1_23_e;
Uses crt; var n: integer; l:boolean;
Begin
Clrscr;
Write (Введите число
Read(n);

12 l:=(n>=10) and (n<=99) and (n/2=int(n/2));
Утверждение
Readkey; end.
Program z1_23_f;
Uses crt; var a,b,c: real; l:boolean;
Begin
Clrscr;
Write (Введите стороны треугольника число
Read(a,b,c); l:=(a=b) and (a=c) and (b=c);
Утверждение
Readkey; end.
Program z1_23_g;
Uses crt; var a,b,c: real; l:boolean;
Begin
Clrscr;
Write (Введите стороны треугольника число
Read(a,b,c); l:=(a=b) or (a=c) or (b=c);
Утверждение
Readkey; end.
Program z1_23_h;
Uses crt; var a,b,c: real; l:boolean;
Begin
Clrscr;
Write (Введите три числа
Read(a,b,c); l:=(a=-b) or (a=-c) or (b=-c);
Утверждение
Readkey; end.

13
Program z1_23_i;
Uses crt; var a,b,c: integer; l:boolean;
Begin
Clrscr;
Write (Введите три числа
Read(a,b,c); l:=(a*a+b*b)=(c*c)
Утверждение
Readkey; end.
Program z1_23_j;
Uses crt; var n,x,y,z,t: integer; l:boolean;
Begin
Clrscr;
Write (Введите четырехзначное число
Read(n); x:=n div 1000; n:=n mod 1000; y:=n div 100; n:=n mod 100; z:=n div 10; t:=n mod 10; l:=(x<>y) and (x<>z) and (x<>t) and (y<>z) and
(y<>t) and (z<>t);
Утверждение
Readkey; end.
Program z1_23_k;
Uses crt; var a,b,c: integer; l:boolean;
Begin
Clrscr;
Write ('a,b,c=');
Read(a,b,c); l:=(c=(a+b)/2);
Утверждение
Readkey;

14 end.
Program z1_23_l;
Uses crt; var n: integer; l:boolean;
Begin
Clrscr;
Write ('n=');
Read(n); l:=(sqrt(n)=int(sqrt(n)));
Утверждение
Readkey; end.
Program z1_23_m;
Uses crt; var n,x,y,z,t: integer; l:boolean;
Begin
Clrscr;
Write (Введите четырехзначное число
Read(n); x:=n div 1000; n:=n mod 1000; y:=n div 100; n:=n mod 100; z:=n div 10; t:=n mod 10; l:=(x Утверждение
Readkey; end.
Program z1_23_n;
Uses crt; var n,x,y,z,s: integer; l:boolean;
Begin
Clrscr;
Write (Введите трехзначное число
Read(n); x:=n div 100; n:=n mod 100;

15 y:=n div 10; z:=n mod 10; l:=(y-x)=(z-y);
Утверждение
Readkey; end.
Program z1_23_o;
Uses crt; var n,x,y,z,s: integer; l:boolean;
Begin
Clrscr;
Write (Введите трехзначное число
Read(n); x:=n div 100; n:=n mod 100; y:=n div 10; z:=n mod 10; l:=(y/x)=(z/y);
Утверждение
Readkey; end.
Program z1_23_p;
Uses crt; var a,c,d: integer; l:boolean;
Begin
Clrscr;
Write (Введите три числа a,c,d=');
Read(a,c,d); l:=(c=a*a) and (d=a*a*a);
Утверждение
Readkey; end.
Program z1_23_r;
Uses crt; var n,x,y,z,t,m: integer; l:boolean;
Begin
Clrscr;
Write (Введите четырехзначное число

16
Read(n); x:=n div 1000; n:=n mod 1000; y:=n div 100; n:=n mod 100; z:=n div 10; t:=n mod 10; l:=(x=t) and (y=z);
Утверждение
Readkey; end.
Program z1_23_s;
Uses crt; var n,m: integer; l:boolean;
Begin
Clrscr;
Write (Введите два числа m,n=');
Read(m,n); l:=(m+n)/2=int((m+n)/2);
Утверждение
Readkey; end.
Program z1_23_t;
Uses crt; var a,b,c: integer; l:boolean;
Begin
Clrscr;
Write (Введите три числа a,b,c=');
Read(a,b,c); l:=(a+b)/c=int((a+b)/c);
Утверждение
Readkey; end.
Program z1_23_q;
Uses crt; var n,x,y,z,t,m: integer; l:boolean;
Begin
Clrscr;

17
Write (Введите четырехзначное число
Read(n);
Write('m=');
Read(m); x:=n div 1000; n:=n mod 1000; y:=n div 100; n:=n mod 100; z:=n div 10; t:=n mod 10; l:=(m=x) or (m=y) or (m=z) or (m=t);
Утверждение
Readkey; end.
program z1_24;
uses crt; var a,b,p:real; begin clrscr; write('a,b=');read(a,b); p:=2*(a+b); writeln('p=',p:3:3); readkey; end.
program z1_25;
uses crt; var a,b,h,s:real; begin clrscr; write('a,b,h=');read(a,b,h); s:=h*(a+b)/2; writeln('s=',s:3:3); readkey; end.
program z1_26;
uses crt; var a,b,c,ha,hb,hc,p,s:real; begin clrscr; write('a,b,c=');read(a,b,c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c));

18 ha:=2*s/a; hb:=2*s/b; hc:=2*s/c; writeln('ha=',ha:3:3); writeln('hb=',hb:3:3); writeln('hc=',hc:3:3); readkey; end.
program z1_27;
uses crt; var a,b,c,ma,mb,mc:real; xb,xc,ub,uc:real; begin задача решена для остроугольного треугольника clrscr; write('a,b,c=');read(a,b,c); найдем 2 любых угла треугольника xb:=(a*a+c*c-b*b)/(2*a*c); xc:=(b*b+a*a-c*c)/(2*a*b); uc:=arctan(sqrt(1+1/xc)); ub:=arctan(sqrt(1+1/xb)); по теореме косинусов найдем медианы ma:=sqrt(sqr(a/2)+sqr(b)-a*b*cos(uc)); mb:=sqrt(sqr(b/2)+sqr(a)-a*b*cos(uc)); mc:=sqrt(sqr(c/2)+sqr(a)-a*c*cos(ub)); writeln('ma=',ma:3:3); writeln('mb=',mb:3:3); writeln('mc=',mc:3:3); readkey; end.
program z1_28;
uses crt; var a,b,s:real; begin clrscr; write('a,b=');read(a,b); s:=(a*b)/2; writeln('s=',s:3:3); readkey; end.

19
program z1_29;
uses crt; var a,b,c,d:integer; begin clrscr; write('a/b=');read(a,b); write('c/d=');read(c,d); write(a,'/',b,'+',c,'/',d,'='); write(a*d+b*c,'/',b*d); write('=',(a*d+b*c)/(b*d):2:3); readkey; end.
program z1_30;
uses crt; var a,b,c,d:integer; begin clrscr; write('a/b=');read(a,b); write('c/d=');read(c,d); write(a,'/',b,'-',c,'/',d,'='); write(a*d-b*c,'/',b*d); write('=',(a*d-b*c)/(b*d):2:3); readkey; end.
program z1_31;
uses crt; var a,b,c,d:integer; begin clrscr; write('a/b=');read(a,b); write('c/d=');read(c,d); write(a,'/',b,'*',c,'/',d,'='); write(a*c,'/',b*d); write('=',(a*c)/(b*d):2:3); readkey; end.
program z1_32;
uses crt; var a,b,c,d:integer; begin clrscr;

20 write('a/b=');read(a,b); write('c/d=');read(c,d); write(a,'/',b,':',c,'/',d,'='); write(a*d,'/',b*c); write('=',(a*d)/(b*c):2:3); readkey; end.
program z1_41;
uses crt; const v=95; var a:real; begin clrscr; a:=(35*100)/v; write(a:2:3,' тонн readkey; end.
program z1_42;
uses crt; const s=1200; var a:real; begin clrscr; write('a=');read(a); write((s-a)/a:2:3,' раз readkey; end.
program z1_43;
uses crt; var s,a,b,t:real; begin clrscr; write('s=');read(s); write('a,b=');read(a,b); t:=1.5+(s-1.5*a)/b; write(t:2:3,' з б readkey; end.
program z1_44;
uses crt;

21 var a,v:real; begin clrscr; write('a=');read(a); v:=10*a/18; write(v:2:3,' тонн readkey; end.
program z1_45;
uses crt; var b,s:real; begin clrscr; write('b=');read(b); s:=30*b/1.5; write(s:2:3,' грамм readkey; end.
program z1_46;
uses crt; var a,v:real; begin clrscr; write('a=');read(a); v:=(56-22)*a/22; write(v:2:3,' кг readkey; end.
program z1_47;
uses crt; var p,m,s:real; n:integer; begin clrscr; write('n=');read(n); p:=222/4*n; m:=1/4*n; s:=30/4*n; Для ',n,' порций понадобится Пшена ',p:2:3,' гр Молока ',m:2:3,' л

22 Сахара ',s:2:3,' гр readkey; end.
program z1_48;
uses crt; var a,b:real; begin clrscr; write('a=');read(a); b:=a*100/115; Выручка за октябрь ',b:2:3,' млн.руб.'); readkey; end.
program z1_49;
uses crt; var s,b:real; begin clrscr; write('b=');read(b); s:=b/(30*0.14); Для получения ',b:2:3,' тонн сахара следует засеять ',s:2:3,' гектар readkey; end.
program z1_50;
uses crt; var x,y:integer; begin clrscr; Задумайте число К числу прибавьте 5.'); От полученного результата вычтите 2.'); К результату прибавьте 7.'); Сколько получилось x:=x-10; Ваше число - ',x); readkey; end.
program z1_51;
uses crt; var s,lk,m,a:real;

23 begin clrscr; write('a=');read(a); s:=a*0.25; lk:=a*0.15; m:=a*0.60; Для приготовления ',a:2:2,' г. порошка нужно Соды ',s:2:1,' гр Лимонной кислоты ',lk:2:1,' г Молока ',m:2:1,' гр readkey; end.
program z1_52;
uses crt; var p,m:real; b:integer; begin clrscr; write('b=');read(b); m:=200*0.4*b; p:=200*0.6*b; Для изготовления ',b,' шарфов нужно writeln('Махера ',m:2:1,' гр writeln('Полиакрила ',p:2:1,' г readkey; end.
program z1_53;
uses crt; var mel,med,nik,c:real; begin clrscr; write('c=');read(c); nik:=c/11*2; med:=c/11*9; Для выплавки ',c:2:1,' кг. мельхиора нужно Никеля ',nik:2:1,' кг Меди ',med:2:1,' кг readkey; end.

24
program z1_54;
uses crt; var kap,kl,mor,llist,m:real; begin clrscr; write('m=');read(m); kap:=22.5*m; kl:=20*m; mor:=33*m; llist:=0.4*m; Для приготовления ',m:2:1,' кг. квашенной капусты нужно Капусты ',kap:2:1,' г Клюквы ',kl:2:1,' г Моркови ',mor:2:1,' г Лаврового листа ',llist:2:1,' г readkey; end.
program z1_55;
uses crt; var s,per,v,p:real; begin clrscr; write('p=');read(p); s:=1/5*p; per:=1/5*p; v:=1/5*p*3; Для приготовления ',p:2:1,' кг. кампота нужно Сахара ',s:2:1,' кг Персиков ',per:2:1,' кг Воды ',v:2:1,' кг readkey; end.