|
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; |
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; 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.
|
|
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; Writeln('Сумма=',s:5:6); Writeln('Разность=',raz:5:6); Writeln('Произведение=',p:5:6); Writeln('Частное=',d:5:6); 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; Writeln('Площадь грани=',sg:5:6); Writeln('Полная поверхность=',sp:5:6); Writeln('Объем=',v:5:6); Readkey; end.
|
|
Program z1_10; Uses crt; var a,s,h,rv,rop: real; Begin Clrscr; Write ('Введите стороны='); Read(a); s:=a*a*sqrt(3)/4; h:=2*s/a; rv:=a/(2*sqrt(3)); rop:=a/sqrt(3); Writeln('Площадь=',s:5:6); Writeln('Высота=',h:5:6); Writeln('Радиус вписанной окружности=',rv:5:6); Writeln('Радиус описанной окружности=',rop:5:6); 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)); Writeln('Площадь кольца=',sk:5:6); Readkey; end. |
Program z1_13; Uses crt; var a,b,c,r,ua,ub,uc: real; Begin Clrscr; Writeln ('Введите радиус:'); Read(r); Writeln ('Введите углы в градусах:'); 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; 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; 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,' град.',int(frac(ua)*60):2:0,' мин.',frac(frac(ua)*60)*60:2:5,' сек.'); Writeln('ub=',int(ub):3:0,' град.',int(frac(ub)*60):2:0,' мин.',frac(frac(ub)*60)*60:2:5,' сек.'); Writeln('uc=',int(uc):3:0,' град.',int(frac(uc)*60):2:0,' мин.',frac(frac(uc)*60)*60:2:5,' сек.'); 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; 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; Writeln('Объем цилиндра: ',vc:5:6); Writeln('Объем конуса: ',vk:5:6); Readkey; end. |
Program z1_22; Uses crt; var s: string[1]; Begin Clrscr; Write ('Символ:'); Read(s); Writeln ('Его порядковый номер:',ord(s[1])); Writeln ('Предыдущий символ:',chr(ord(s[1])-1)); Writeln ('Последующий символ:',chr(ord(s[1])+1)); 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); Writeln('Утверждение-',l); 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)); Writeln('Утверждение-',l); Readkey; end. |
|
Program z1_23_c; Uses crt; var m,n,x,y: integer; l:boolean; Begin Clrscr; Write ('Введите m,n (m<n):'); Read(m,n); Write('Введите координаты точки:'); Read(x,y); l:=(x>m) and (x<n); Writeln('Утверждение-',l); 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); Writeln('Утверждение-',l); Readkey; end. {Для проверки 448 в квадрате это 4096 4+4+8 возведенное в третью степень 4096} |
|
Program z1_23_e; Uses crt; var n: integer; l:boolean; Begin Clrscr; Write ('Введите число='); Read(n); l:=(n>=10) and (n<=99) and (n/2=int(n/2)); Writeln('Утверждение-',l); 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); Writeln('Утверждение-',l); 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); Writeln('Утверждение-',l); 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); Writeln('Утверждение-',l); Readkey; end. |
|
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) Writeln('Утверждение-',l); 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); Writeln('Утверждение-',l); 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); Writeln('Утверждение-',l); Readkey; end. |
Program z1_23_l; Uses crt; var n: integer; l:boolean; Begin Clrscr; Write ('n='); Read(n); l:=(sqrt(n)=int(sqrt(n))); Writeln('Утверждение-',l); 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<y) and (y<z) and (z<t); Writeln('Утверждение-',l); 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; y:=n div 10; z:=n mod 10; l:=(y-x)=(z-y); Writeln('Утверждение-',l); 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); Writeln('Утверждение-',l); 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); Writeln('Утверждение-',l); Readkey; end. |
|
Program z1_23_r; Uses crt; var n,x,y,z,t,m: 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=t) and (y=z); Writeln('Утверждение-',l); 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); Writeln('Утверждение-',l); 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); Writeln('Утверждение-',l); Readkey; end. |
|
|
Program z1_23_q; Uses crt; var n,x,y,z,t,m: integer; l:boolean; Begin Clrscr; 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); Writeln('Утверждение-',l); 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)); 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. |
|
|
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; 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; 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; writeln('Для ',n,' порций понадобится:'); writeln('Пшена ',p:2:3,' гр.'); writeln('Молока ',m:2:3,' л.'); writeln('Сахара ',s:2:3,' гр.'); readkey; end.
|
program z1_48; uses crt; var a,b:real; begin clrscr; write('a=');read(a); b:=a*100/115; writeln('Выручка за октябрь ',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); writeln('Для получения ',b:2:3,' тонн сахара'); writeln('следует засеять ',s:2:3,' гектар'); readkey; end. |
|
|
program z1_50; uses crt; var x,y:integer; begin clrscr; writeln('Задумайте число.'); writeln('К числу прибавьте 5.'); writeln('От полученного результата вычтите 2.'); writeln('К результату прибавьте 7.'); write('Сколько получилось?-');read(y); x:=x-10; writeln('Ваше число - ',x); readkey; end.
|
program z1_51; uses crt; var s,lk,m,a:real; begin clrscr; write('a=');read(a); s:=a*0.25; lk:=a*0.15; m:=a*0.60; writeln('Для приготовления ',a:2:2,' г. порошка нужно:'); writeln('Соды ',s:2:1,' гр.'); writeln('Лимонной кислоты ',lk:2:1,' г.'); writeln('Молока ',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; writeln('Для изготовления ',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; writeln('Для выплавки ',c:2:1,' кг. мельхиора нужно:'); writeln('Никеля ',nik:2:1,' кг.'); writeln('Меди ',med:2:1,' кг.'); readkey; end. |
|
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; writeln('Для приготовления ',m:2:1,' кг. квашенной капусты нужно:'); writeln('Капусты ',kap:2:1,' г.'); writeln('Клюквы ',kl:2:1,' г.'); writeln('Моркови ',mor:2:1,' г.'); writeln('Лаврового листа ',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; writeln('Для приготовления ',p:2:1,' кг. кампота нужно:'); writeln('Сахара ',s:2:1,' кг.'); writeln('Персиков ',per:2:1,' кг.'); writeln('Воды ',v:2:1,' кг.'); readkey; end. |
|
program z1_56; uses crt; var ves,m:real; begin clrscr; write('ves=');read(ves); m:=ves*0.65; writeln('Масса молекул кислорода ',m:2:1,' кг.'); readkey; end. |
program z1_57; uses crt; var n,a,b,c:integer; begin clrscr; write('Количество учеников ');read(n); write('Количество пятерок ');read(a); write('Количество четверок ');read(b); write('Количество троек ');read(c); writeln('Троек ',c/n*100:2:1,' процентов'); writeln('Четверок ',b/n*100:2:1,' процентов'); writeln('Пятерок ',a/n*100:2:1,' процентов'); readkey; end. |
|
program z1_58; uses crt; var p1,p2,p3,p4:integer; f,s:real; begin clrscr; write('Введите площадь в га.-');read(f); write('Количество учеников в 1 классе ');read(p1); write('Количество учеников в 2 классе ');read(p2); write('Количество учеников в 3 классе ');read(p3); write('Количество учеников в 4 классе ');read(p4); s:=f/(p1+p2+p3+p4); writeln('Для 1 класса ',s*p1:2:1,' га.'); writeln('Для 2 класса ',s*p2:2:1,' га.'); writeln('Для 3 класса ',s*p3:2:1,' га.'); writeln('Для 4 класса ',s*p4:2:1,' га.'); readkey; end. |
program z1_61; uses crt; var x,s:real; begin clrscr; write('x=');read(x); s:=x*(x*(x*(2*x-3)+4)-5)+6; writeln('s=',s:3:3); readkey; end. |
|
program z1_62; uses crt; var x,s1,s2:real; begin clrscr; write('x=');read(x); s1:=1-(2+(3-4*x)*x)*x; s2:=1+(2+(3+4*x)*x)*x; writeln('s1=',s1:3:3); writeln('s2=',s2:3:3); readkey; end. |
|
|
program z1_63; uses crt; var v1,v2,v3,vsred:real; begin clrscr; write('Скорость на 1 участке v1=');read(v1); write('Скорость на 2 участке v2=');read(v2); write('Скорость на 3 участке v3=');read(v3); vsred:=(v1+v2+v3)/3; writeln('vsred=',vsred:3:3); readkey; end. |
program z1_64; uses crt; var summa,st:real; begin clrscr; write('Введите сумму денег в руб.-');read(summa); write('Введите стоимость ед.товара в руб.-');read(st); writeln('Можно купить ',int(summa/st):2:0,' ед. товара'); writeln('Сдача составит ',summa-st*int(summa/st):2:2,' руб.'); readkey; end. |
|
program z1_65; uses crt; var n,x,y,z,s:integer; begin clrscr; write('Введите трехзначное число n=');read(n); write('Сумма цифр числа ',n,' равна:'); x:=n div 100; n:=n mod 100; y:=n div 10; z:=n mod 10; s:=x+y+z; write(s); readkey; end. |
program z1_66; uses crt; var v:integer; begin clrscr; write('v=');read(v); write('Средний объем - ',v/5:2:3); readkey; end.
|
|
program z1_67; uses crt; var p,f:integer; begin clrscr; writeln('Показатель:'); write('Плановый p=');read(p); write('Выполнено фактически f=');read(f); write('Процент выполнения ',f/p*100:2:2, '%'); readkey; end. |
program z1_68; uses crt; var s,n:integer; begin clrscr; write('Количество часов s=');read(s); write('Количество рабочих n=');read(n); write('Средняя загруженность ',s/n:2:2, 'час.'); readkey; end. |
|
program z1_69; uses crt; var x1,x2,y1,y2:integer; begin clrscr; write('Координаты конца 1 вектора x1,y1=');read(x1,y1); write('Координаты конца 2 вектора x2,y2=');read(x2,y2); writeln('Длинна 1 вектора ',sqrt(sqr(x1)+sqr(y1)):3:2); writeln('Длинна 2 вектора ',sqrt(sqr(x2)+sqr(y2)):3:2); readkey; end. |
program z1_70; uses crt; var a:integer; begin clrscr; write('a=');read(a); writeln('v=',a*a*a); writeln('s=',6*a*a); readkey; end.
|
|
program z1_71; uses crt; var d,n,l,kvm:real; begin clrscr; write('Время в час. n=');read(n); write('Ширина ткани в м. l=');read(l); kvm:=n*60/5; d:=kvm/l; Writeln('За ',n:2:2,' час. выпущено: ',kvm:2:2,' кв.м. ткани.'); Writeln('При ширине ',l:2:2,' м. выпущено: ',d:2:2,' м. ткани.'); readkey; end. |
program z1_72; uses crt; var v,r,h:real; n:integer; begin clrscr; write('Введите радиус в м. R=');read(r); write('Введите высоту в м. H=');read(h); write('Введите количесиво бочек. N= ');read(n); v:=pi*r*r*h*n; Writeln('Объем ',n,' бочек: ',v:2:2,' куб.м.'); readkey; end. |
|
program z1_73; uses crt; var a,b,h,ug,v:real; begin clrscr; write('Введите длины сторон основания. a,b=');read(a,b); write('Введите высоту h=');read(h); write('Введите угол в градусах = ');read(ug); v:=a*b*sin(ug*pi/180)*h; Writeln('Объем v= ',v:2:2); readkey; end. |
program z1_74; uses crt; var p,smz:real; begin clrscr; write('Введите величину прибыли. p=');read(p); smz:=(p-p*0.7-(p-p*0.7)*0.3)*25.4/8; Writeln('Среднемесячна зарплата рабочего'); writeln('при 25.4 днях работы за месяц'); writeln('составит: ',smz:2:2,' у. ед.'); readkey; end. |
|
program z1_80; uses crt; var k,s:real; begin clrscr; s:=(5*5*5*10)/(4*4*4); writeln(s:2:1, ' инкубаторских '); writeln('яиц соответствуют 10 домашним.'); writeln('Хозяка экономит в ',s/10:2:2,' раза'); readkey; end. |
program z1_81; uses crt; var sd,sg,sm,p:real; begin clrscr; Writeln('Введите стоимость носков:'); Write('детских ');read(sd); Write('женских ');read(sg); Write('мужских ');read(sm); p:=4*(3*sd+sg+sm); writeln('Прибыль в месяц ',p:2:2,' у.ед.'); readkey; end. |
|
program z1_82; uses crt; const p=80; var op:real; begin clrscr; op:=p+p*0.3+(p+p*0.3)*0.4; writeln('Оплата в месяц ',op:2:2,' у.ед.'); readkey; end. |
program z1_83; uses crt; var s1,t1,s2,t2:real; begin clrscr; Write('s1=');Read(s1); Write('t1=');Read(t1); Write('t2=');Read(t2); s2:=s1/t1*t2; writeln('s2= ',s2:2:2); readkey; end. |