ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 11.01.2024
Просмотров: 48
Скачиваний: 1
ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.
70 readkey; end.
program Z2_85;
uses crt; var a,b:integer; begin clrscr; Введите координаты точки M(a;b) a,b=');read(a,b); if b=5*a*a-7*a+2 then точка принадлежит графику) else точка не принадлежит графику readkey; end.
program Z2_86;
uses crt; var l,k,k1,l1:real; begin clrscr; Требуемый надой в литрах L=');read(l); Требуемая жирность молока K=');read(k); Фактический надой в литрах L1=');read(l1); Фактическая жирность молока K1=');read(k1); if (l1>=l) and (k1>=k) then корову можно купить) else корову покупать не рекомендуется readkey; end.
program Z2_88;
uses crt; var a,b,a1,b1,k:real; begin clrscr; Размеры гнезда a,b=');read(a,b); Размеры торца бруса a1,b1=');read(a1,b1); if a>b then begin k:=a; a:=b;b:=k; end; if a1>b1 then begin k:=a1; a1:=b1;b1:=k; end; if (a1>=a) and (b1>=b) then Брус подходит) else
71 Брус не подходит readkey; end.
program Z2_108;
uses crt; label a; var n,k:integer; begin clrscr;
Write('k=');read(k); ли «Ґбг ',k); n:=k mod 100; if (n>=11) and (n<=14) then begin write(' грибов a; end; n:=k mod 10; case n of
1: write(' гриб
2..4:write(' гриба .');
0,5..9:write(' грибов end; a:readkey; end.
program Z2_109;
uses crt; label a; var k:integer; begin clrscr; Введите k=<99: ');read(k); Мне ',k); if (k>=11) and (k<=14) then begin write(' лет a; end; k:=k mod 10; case k of
1: write(' год
2..4:write(' года
0,5..9:write(' лет end; a:readkey; end.
program Z2_110;
72 uses crt; var n,a,x,y,z:integer; begin clrscr; Введите трехзначное число n=');read(n); Введите цифру a=');read(a); Цифра ',a,' в записи числа ',n); x:=n div 100; n:=n mod 100; y:=n div 10; z:=n mod 10; if (a=x) or (a=y) or (a=z) then write(' присутствует) else write(' отсутствует readkey; end.
program Z2_111;
uses crt; label out; var x1,y1,x2,y2,r1,r2,d:real; begin clrscr;
Write('x1,y1=');read(x1,y1);
Write('x2,y2=');read(x2,y2); Введите R1>R2, R1,R2=');read(r1,r2); d:=sqrt(sqr(x2-x1)+sqr(y1-y2)); if d=r1+r2 then begin окружности касаются goto out; end; if d>r1+r2 then begin окружности не пересекаются goto out; end; if d+r2=r1 then begin окружности касаются внутри goto out; end; if d+r2
73 begin write('2 окружность внутри первой goto out; end else окружности пересекаются out: readkey; end.
0>0>0>1>
1 2 3 4 5 6
program Z2_112;
uses crt; var m1,m2,m3,n1,n2,n3,p1,p2,p3:real; max,s1,s2,s3:real; n:integer; begin clrscr; баллы Иванова: m1,n1,p1=');read(m1,n1,p1); баллы Петрова m2,n2,p2=');read(m2,n2,p2); баллы Сидорова: m3,n3,p3=');read(m3,n3,p3); s1:=m1+n1+p1; s2:=m2+n2+p2; s3:=m3+n3+p3; max:=s1; n:=1; if max
program z3_2;
uses crt; var k:Integer; s,a:Real;
74
Begin
ClrScr; a:=10;s:=10;
For k:=2 to 7 do
Begin a:=1.1*a; s:=s+a;
End;
Writeln('s=',s:5:3,' км
ReadKey; end.
program z3_3;
uses crt; var k,s:Integer;
Begin
ClrScr; k:=0;s:=1;
While k<24 do
Begin k:=k+3; s:=s*2;
Writeln(k,' з б' Є«Ґв®Є-',s);
End;
ReadKey; end.
program z3_4;
uses crt; var x,y,h,ug:Real;
Begin
ClrScr; Введите шаг
Read(h); x:=2;
While x<=3 do begin y:=2;
While y<=3 do
Begin ug:=ArcTan(sqrt(1+sqr(x/y)))*180/pi;
Writeln('ug=',ug:3:2,' градусов
75 y:=y+h;
End; x:=x+h;
End;
ReadKey; end.
program z3_5;
uses crt; var s,i,j:Integer;
Label 1;
Begin
ClrScr;
For i:=1 to 32 do
For j:=1 to 16 do
Begin s:=2*i+4*j; if s<>64 then goto 1; гусей' кроликов
1: End;
ReadKey; end.
program z3_6;
uses crt; var s,i,j,k,n:Integer;
Label 1;
Begin
ClrScr;
For i:=1 to 10 do
For j:=1 to 20 do
For n:=1 to 200 do
Begin s:=1000*i+500*j+50*n; k:=i+j+n; if (s<>10000) or (k<>100) then goto 1; быков' коров' телят
1: End;
ReadKey; end.
program z3_7;
76 uses crt; var s,x,d:Integer;
Label 1;
Begin
ClrScr;
For x:=0 to 15 do
Begin s:=x*x+x+17;
For d:=2 to x-1 do
If x=int(x/d) then begin число непростое Простые числа
1: End;
ReadKey; end.
program z3_8;
uses crt; var s,x,d:Integer;
Label 1;
Begin
ClrScr;
For x:=0 to 40 do
Begin s:=x*x+x+41;
For d:=2 to x-1 do
If x=int(x/d) then begin число непростое Простые числа
1: End;
ReadKey; end.
program z3_9;
77 uses crt; var m,n,a,b,c,k:Integer;
Label 1;
Begin
ClrScr; Введите k=');
Read(k);
Writeln('m':5,'n':5,'a':5,'b':5,'c':5);
For m:=2 to k-1 do
For n:=2 to k-1 do begin
If n>=m then goto 1; a:=m*m-n*n; b:=2*m*n; c:=m*m+n*n;
Writeln(m:5,n:5,a:5,b:5,c:5);
1: End;
ReadKey; end.
program z3_10;
uses crt; var a1,a2,a3,a4,a5,a6,a7: Real; s: integer;
Begin
ClrScr; Введите S='); read(s); a1:=int(s/500); s:=s mod 500; a2:=int(s/100); s:=s mod 100; a3:=int(s/50); s:=s mod 50; a4:=int(s/10); s:=s mod 10; a5:=int(s/5); s:=s mod 5; a6:=int(s/2); a7:=s mod 2;
Writeln('500 руб' шт
78
Writeln('100 руб' шт
Writeln('50 руб' шт
Writeln('10 руб' шт
Writeln('5 руб' шт
Writeln('2 руб' шт
Writeln('1 руб' шт
Readkey; end.
program z3_11;
uses crt; var a,b,sb,s:Real; i: integer;
Begin
ClrScr; Введите стипендию и расходы AFor i:=2 to 10 do
Begin b:=b*1.03; sb:=sb+b; end; s:=sb-10*a; Требуемая сумма' руб
Readkey;
End.
program z3_12;
uses crt; var i,n:integer;
Begin
ClrScr; Введите n='); read(n);
For i:=1 to 9 do
Begin gotoxy(5,i+1);Writeln(n,'x',i,'=',n*i); gotoxy(15,i+1);Writeln(n,'+',i,'=',n+i); end;
Readkey; end.
program z3_13;
79 uses crt; var a,b,b1,a1,a2,b2,i,n:integer; c:String;
Label 1;
Begin
ClrScr; Введите n='); read(n);
For i:=1 to 9 do
Begin a:=n*i; b:=b+i; a2:=a mod 16; a1:=a div 16; b1:=b mod 16; b2:=b div 16; if a2<10 then begin if a1=0 {b1=0}then
Writeln(n,'x',i,'=',a2)
{Writeln(n,'+',i,'=',b2)} else
Writeln(n,'x',i,'=',a1,a2);
{Writeln(n,'+',i,'=',b1,b2)} goto 1;
End; case a2 of
10:c:='A';
11:c:='B';
12:c:='C';
13:c:='D';
14:c:='E';
15:c:='F';
End;
Writeln(n,'x',i,'=',a1,c);
{Writeln(n,'+',i,'=',b1,c);}
1: end;
Readkey; end.
program z3_14;
uses crt; var i,a,b,n:integer; s:Longint;
80
Begin
ClrScr; Введите n='); read(n); a:=1; for i:=1 to n-1 do a:=10*a; b:=10*a-1;
For i:=a to b do s:=s+i;
Writeln('s=',s);
Readkey; end.
program z3_15;
uses crt; var i,a,b,n,k:integer; s:Longint;
Begin
ClrScr; Введите n='); read(n); Введите k='); read(k); a:=1; for i:=1 to n-1 do a:=10*a; b:=10*a-1;
For i:=a to b do if i mod k =0 then s:=s+i;
Writeln('s=',s);
Readkey; end.
program z3_16;
uses crt; var k,n,a,b,c:Longint;
Begin
ClrScr; Введите n<19 ');
Read(n);
For k:=1 to n do
Begin
81 a:=a+k*k*k*k*k; b:=b+k*k*k*k*k*k*k; c:=c+k;
End; c:=2*c*c*c*c;
Writeln(a+b,'=',c);
ReadKey; end.
program z3_17;
uses crt; var a,b,s:Real; x,p,y,c,t,g,o:integer;
Begin
ClrScr;
For x:=1 to 9 do
For p:=1 to 9 do
For y:=0 to 9 do
For c:=0 to 9 do
For t:=0 to 9 do
For g:=1 to 9 do
For o:=0 to 9 do
Begin a:=10000*x+1000*p+100*y+10*c+t; b:=100000*g+10000*p+1000*o+100*x+10*o+t; s:=11111111111.0*p; if a*b=s then Write(a:5:0,'*',b:6:0,'=',s:11:0); end;
Readkey; end. Ответ 21649*513239=11111111111}
program z3_18;
uses crt; var a,b:integer;
Label 1,2;
Begin
ClrScr;
Randomize; a:=1000+Random(999);
2: Введите пароль
Read(b); if b=a then begin
82
Верно goto 1; end; неверно goto 2;
1: Readkey; end.
program z3_19;
uses crt; var i,n,k,z: integer; s:real;
Begin
ClrScr;
Write('n=');
Read(n); z:=1;s:=1;k:=1; for i:=1 to n do begin k:=k*2; z:=-z; s:=s+ z*1/k; end; write('s=',s:5:6);
Readkey; end.
program z3_20;
uses crt; var i,n: integer; s,k:real;
Begin
ClrScr;
Write('n=');
Read(n); for i:=1 to n do begin k:=k+sin(i); s:=s+1/k; end; write('s=',s:5:6);
Readkey; end.
program z3_21;
83 uses crt; var i,n: integer; s,k:real;
Begin
ClrScr;
Write('n=');
Read(n); k:=2; s:=1; for i:=1 to n do begin s:=s*k/(k+1); k:=k+2 end; write('s=',s:5:6);
Readkey; end.
program z3_22;
uses crt; var i,n: integer; p,s1,s2:real;
Begin
ClrScr;
Write('n=');
Read(n); p:=1; for i:=1 to n do begin s1:=s1+cos(i); s2:=s2+sin(i); p:=p*s1/s2; end; write('p=',p:5:6);
Readkey; end.
program z3_23;
uses crt; var i,k,z: integer; x,s,s1,s2:real;
Begin
ClrScr;
Write('x=');
84
Read(x); s1:=x; s2:=1;z:=1;k:=1;
For i:=1 to 7 do begin s:=s+z*s1/s2; s1:=s1*x*x; s2:=s2*(k+1)*(k+2); z:=-z; k:=k+2; end; write('s=',s:5:6);
Readkey; end.
program z3_24;
uses crt; var i,n: integer; x,s,p:real;
Begin
ClrScr;
Write('n=');
Read(n);
Write('x=');
Read(x); p:=x;
For i:=1 to n do begin p:=sin(p); s:=s+p; end; write('s=',s:5:6);
Readkey; end.
program z3_25;
uses crt; var i,n: integer; a,p:real;
Begin
ClrScr;
Write('n=');
Read(n);
Write('a=');
Read(a);
85 p:=1;
For i:=0 to n-1 do p:=p*(a-i); write('p=',p:5:6);
Readkey; end.
program z3_26;
uses crt; var i,n: integer; a,p:real;
Begin
ClrScr;
Write('n=');
Read(n);
Write('a=');
Read(a); p:=1;
For i:=0 to n do p:=p*(a-i*n); write('p=',p:5:6);
Readkey; end.
program z3_27;
uses crt; var i,n: integer; a,s,k:real;
Begin
ClrScr;
Write('n=');
Read(n);
Write('a=');
Read(a); k:=1; s:=1/a;
For i:=2 to n do begin k:=k*a*a; s:=s+1/k; end; write('s=',s:5:6);
Readkey; end.
86
program z3_28;
uses crt; var n: integer; x,d:real;
Begin
ClrScr;
Write('x=');
Read(x); n:=2; d:=1;
While n<=64 do begin d:=d*(x-n+1)/(x-n); n:=n*2 end; write('d=',d:5:6);
Readkey; end.
program z3_29;
uses crt; var p,x:real;
Begin
ClrScr; x:=0.1; p:=1;
While x<=10 do begin p:=p*(1+sin(x)); x:=x+0.1; end; write('p=',p:5:25);
Readkey; end.
program z3_30;
uses crt; var i,n: integer; s,x,a:real;
Begin
ClrScr;
Write('n=');
Read(n);
87
Write('x=');
Read(x); a:=x;
For i:=1 to n do begin s:=s+sin(a); a:=a*x; end; write('s=',s:5:25);
Readkey; end.
program z3_31;
uses crt; var j,i,n:integer; s,p :Longint;
Begin
ClrScr;
Write('n<8, n=');
Read(n);
For i:=1 to n do begin p:=1;
For j:=i to 2*i do p:=p*j; s:=s+p; end; write('s=',s);
Readkey; end.
program z3_32;
uses crt; var i,n:integer; p:Real;
Begin
ClrScr;
Write('n>2, n=');
Read(n); p:=1;
For i:=2 to n do p:=p*(1-1/(i*i)); write('p=',p:5:6);
Readkey;
88 end.
program z3_33;
uses crt; var i,n:integer; p:Real;
Begin
ClrScr;
Write('n=');
Read(n); p:=1; i:=2;
While i<=2*n do begin p:=p*(1-1/i); i:=i+2; end; write('p=',p:5:6);
Readkey; end.
program z3_34;
uses crt; var i,n:integer; p,s:Longint;
Begin
ClrScr;
Write('n>1,n<26 n=');
Read(n); p:=1;s:=1;
For i:=2 to n do begin p:=p*i; s:=s+p; end; write('s=',s);
Readkey; end.
program z3_35;
uses crt; var i,n:integer; s:Real;
89
Begin
ClrScr;
Write('n=');
Read(n); i:=3;
While i<=2*n+1 do begin s:=s+(1/(i*i)); i:=i+2; end; write('s=',s:5:6);
Readkey; end.
program z3_36;
uses crt; var i:integer; a,b,c: Longint;
Begin
ClrScr; a:=1; b:=1;
For i:=2 to 40 do begin c:=b+a; a:=b; b:=c; end; write('c=',c);
Readkey; end.
program z3_37;
uses crt; var i,n:integer; y:Longint;
Begin
ClrScr;
Write('n<=23 n=');
Read(n); y:=1; i:=1;
While i<=2*n-1 do begin y:=y*i; i:=i+2;
90 end; write('y=',y);
Readkey; end.
program z3_38;
uses crt; var i,n:integer; y:Longint;
Begin
ClrScr;
Write('n<=9 n=');
Read(n); y:=1; i:=2;
While i<=2*n do begin y:=y*i; i:=i+2; end; write('y=',y);
Readkey; end.
program z3_39;
uses crt; var i,n: integer; s,x,a:real;
Begin
ClrScr;
Write('n=');
Read(n);
Write('x=');
Read(x); a:=x;
For i:=1 to n do begin s:=s+cos(a); a:=a*x; end; write('s=',s:5:25);
Readkey; end.
91
program z3_40;
uses crt; var y,x:real;
Begin
ClrScr; x:=1;
While x<=2 do begin y:=y+sin(x); x:=x+0.1; end; write('y=',y:5:25);
Readkey; end.
program z3_41;
uses crt; var i,n,k:integer; c:Real;
Begin
ClrScr;
Write('n=');
Read(n);
Write('k=');
Read(k); c:=0;
For i:=n downto 1 do c:=sqrt(c+k*i); write('c=',c:5:6);
Readkey; end.
program z3_42;
uses crt; var i,n,k:integer; c:Real;
Begin
ClrScr;
Write('n=');
Read(n);
For i:=1 to n do c:=c+(i+1)/i; write('c=',c:5:6);
Readkey;
92 end.
program z3_43;
uses crt; var a,z,k,n:integer; s,e,b:Real;
Begin
ClrScr;
Write('e=');
Read(e); s:=0;z:=1;n:=1;b:=1;
While b>=e do begin s:=s+z*b; z:=-z;n:=n+1; a:=1; for k:=1 to n do a:=a*n; b:=1/a; end; write('s=',s:5:6);
Readkey; end.
program z3_44;
uses crt; var a,b:integer; s,e,c:Real;
Begin
ClrScr;
Write('e=');
Read(e); s:=0;a:=2;b:=3;c:=1/a+1/b;
While c>=e do begin s:=s+c; a:=a*2; b:=b*3; c:=1/a+1/b; end; write('s=',s:5:6);
Readkey;
93 end.
program z3_45;
uses crt; var a,b:integer; s,e,c:Real;
Begin
ClrScr;
Write('e=');
Read(e); s:=0;a:=1;b:=2;c:=a/b;
While c>=e do begin s:=s+c; a:=a+2; b:=b*2; c:=a/b; end; write('s=',s:5:6);
Readkey; end.
program z3_46;
uses crt; var a:integer; s,e,c:Real;
Begin
ClrScr;
Write('e=');
Read(e); s:=0;a:=1;c:=1/4;
While c>=e do begin s:=s+c; a:=a+3; c:=1/(a*(a+3)); end; write('s=',s:5:6);
Readkey; end.
program z3_47;
uses crt;
94 var a,b,k:integer; s,e,c:Real;
Begin
ClrScr;
Write('e=');
Read(e); s:=0;a:=2;b:=1;c:=2;k:=1;
While c>=e do begin s:=s+c; k:=k+1; a:=a*2; b:=b*k; c:=a/b; end; write('s=',s:5:6);
Readkey; end.
program z3_48;
uses crt; var a,b,k:integer; s,e,c:Real;
Begin
ClrScr;
Write('e=');
Read(e); s:=0;a:=1;b:=2;c:=1/2;k:=1;
While c>=e do begin s:=s+c; k:=k+1; a:=a*k; b:=b*(2*k-1)*2*k; c:=a/b; end; write('s=',s:5:6);
Readkey; end.
program z3_49;
uses crt; var a,b,k,n:integer; s,e,c:Real;
95
Begin
ClrScr;
Write('e=');
Read(e); s:=0;n:=1;a:=1;b:=1;c:=1;
While c>=e do begin s:=s+c; n:=n+1; a:=a*n; for k:=1 to n do b:=b*n; c:=a/b; end; write('s=',s:5:6);
Readkey; end.
program z3_50;
uses crt; var d,a,b,k,n:integer; s,e,c:Real;
Begin
ClrScr;
Write('e=');
Read(e); s:=0;n:=1;a:=1;b:=1;d:=2;c:=2;
While c>=e do begin s:=s+c; b:=1; n:=n+1; a:=a*n; d:=d*2; for k:=1 to n do b:=b*n; c:=d*a/b; end; write('s=',s:5:6);
Readkey; end.
96
program z3_51;
uses crt; var a,b,k,d:integer; s,e,c:Real;
Begin
ClrScr;
Write('e=');
Read(e); s:=0;a:=1;b:=2;d:=3;c:=d*a/b;k:=1;
While c>=e do begin s:=s+c; k:=k+1; a:=a*k; b:=b*(2*k-1)*2*k; d:=d*3; c:=d*a/b; end; write('s=',s:5:6);
Readkey; end.
program z3_52;
uses crt; var a,b,k,n,d:integer; s,e,c:Real;
Begin
ClrScr;
Write('e=');
Read(e); s:=0;n:=1;a:=1;b:=1;d:=3;c:=a/(d*b);
While c>=e do begin s:=s+c; n:=n+1; a:=a*n; d:=d*3; for k:=1 to n do b:=b*n; c:=a/(d*b); end; write('s=',s:5:6);
Readkey; end.
97
program z3_53;
uses crt; var a,b,k,n:integer; c,e,s:Real;
Begin
ClrScr;
Write('e=');
Read(e); s:=0;n:=1;a:=2;b:=2;c:=1/b;
While c>=e do begin s:=s+c; n:=n+1; a:=a*2; b:=1; for k:=n+1 to a do b:=b*k; c:=1/b; end; write('s=',s:5:6);
Readkey; end.
program z3_54;
uses crt; var a,b,n:integer; c,e,s:Real;
Begin
ClrScr;
Write('e<1, e=');
Read(e); n:=2;a:=4;b:=1;c:=4;s:=2;
While c>=e do begin s:=s+c; n:=n+1; a:=a*2; b:=b*(n-1); c:=a/b; end; write('s=',n,s:5:6);
Readkey; end.
98
program z3_55;
uses crt; var n:integer; a1,an,e:Real;
Begin
ClrScr;
Write('e<0.001, e=');
Read(e); n:=2;a1:=0;an:=arctan(a1)+1;
While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=arctan(a1)+1; end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n);
Readkey; end.
program z3_56;
uses crt; var n:integer; a1,an,e:Real;
Begin
ClrScr;
Write('e<0.001, e=');
Read(e); n:=2;a1:=2;an:=2+1/a1;
While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=2+1/a1; end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n);
Readkey;
99 end.
program z3_57;
uses crt; var n:integer; a1,an,e:Real;
Begin
ClrScr;
Write('e<0.001, e=');
Read(e); n:=2;a1:=0.5;an:=sin(a1)/cos(a1)/2;
While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=sin(a1)/cos(a1)/2; end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n);
Readkey; end.
program z3_58;
uses crt; var n:integer; a1,an,e:Real;
Begin
ClrScr;
Write('e<0.001, e=');
Read(e); n:=2;a1:=1/4;an:=1/16;
While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=1/(4*n*n); end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n);
100
Readkey; end.
program z3_59;
uses crt; var n:integer; a1,an,e:Real;
Begin
ClrScr;
Write('e<0.001, e=');
Read(e); n:=2;a1:=0.5;an:=cos(a1)/2;
While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=cos(a1)/2; end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n);
Readkey; end.
program z3_60;
uses crt; var n:integer; a1,an,e:Real;
Begin
ClrScr;
Write('e<0.001, e=');
Read(e); n:=2;a1:=2;an:=(2+a1*a1)/(2*a1);
While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=(2+a1*a1)/(2*a1); end; writeln(a1:5:6); writeln(an:5:6);
101 writeln('n=',n);
Readkey; end.
program z3_61;
uses crt; var n:integer; a1,a2,an,e:Real;
Begin
ClrScr;
Write('e<0.001, e=');
Read(e); n:=3;a1:=1;a2:=2;an:=(a2+a1)/2;
While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=a2; a2:=an; an:=(a2+a1)/2; end; writeln(a2:5:6); writeln(an:5:6); writeln('n=',n);
Readkey; end.
program z3_62;
uses crt; var n:integer; a1,an,e:Real;
Begin
ClrScr;
Write('e<0.001, e=');
{n=2,3,4,5.....}
Read(e); n:=3;a1:=exp(sqr(ln(2))-
2*ln(ln(2)));an:=exp(sqr(ln(n))-n*ln(ln(n)));
While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an;
102 an:=exp(sqr(ln(n))-n*ln(ln(n))); end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n);
Readkey; end.
program z3_63;
uses crt; var n:integer; a1,an,e:Real;
Begin
ClrScr;
Write('e<0.001, e=');
Read(e); n:=2;a1:=0;an:=exp(-a1);
While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an; an:=exp(-a1); end; writeln(a1:5:6); writeln(an:5:6); writeln('n=',n);
Readkey; end.
program z3_64;
uses crt; var n:integer; a1,an,e:real;
Begin
ClrScr;
Write('e<0.001, e=');
Read(e); n:=2;a1:=1;an:=sin(a1*a1)/(2*a1*a1);
While abs(an-a1)>=e do begin writeln(a1:5:6); n:=n+1; a1:=an;
103 an:=sin(a1*a1)/(2*a1*a1); end; writeln(a1:5:12); writeln(an:5:12); writeln('n=',n);
Readkey; end.
26>19>10>24>
1 2 3 4 5 6
program z3_65;
uses crt; var n:integer; an,a1,e:Real;
Begin
ClrScr;
Write('e<0.001, e=');
Read(e); n:=1;an:=1;
While abs(an*an-2)>=e do begin writeln(an:5:6); n:=n+1; a1:=an; an:=(a1+2/a1)/2; end; writeln(an:5:6); writeln('n=',n);
Readkey; end.
program z3_66;
uses crt; var n,b,z:integer; an,a1,e:Real;
Begin
ClrScr;
Write('e<0.001, e=');
Read(e); n:=1;b:=2;an:=-1/2;z:=-1;
While abs(an)>=e do begin writeln(an:5:6); n:=n+1; z:=-z; a1:=an; b:=b*2;
104 an:=z/b; end; writeln(an:5:6); writeln('n=',n);
Readkey; end.
program z3_67;
uses crt; var n,b,z,c:integer; an,a1,e:Real;
Begin
ClrScr;
Write('e<0.001, e=');
Read(e); n:=1;b:=2;c:=1;z:=-1;an:=z*b/c;
While abs(an)>=e do begin writeln(an:5:12); n:=n+1; z:=-z; a1:=an; b:=b*2; c:=c*n; an:=z*b/c; end; writeln(an:5:12); writeln('n=',n);
Readkey; end.
program z3_68;
uses crt; var n:integer; an,a1,e:Real;
Begin
ClrScr;
Write('e<0.001, e=');
Read(e); n:=1;an:=1/4;
While an>=e do begin writeln(an:5:12);
105 n:=n+1; a1:=an; an:=1/sqr(n+1); end; writeln(an:5:12); writeln('n=',n);
Readkey; end.
program z3_69;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=x-sin(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_70;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin
106 fx:=sqr(sin(x)); writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_71;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=2*cos(x)-1; writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_72;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=sin(x)/cos(x); writeln(x:2:5,' ',fx:5:6);
107 x:=x+h; end;
Readkey; end.
program z3_73;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=cos(x)/sin(x)+1; writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_74;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=sin(x)-cos(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
108
Readkey; end.
program z3_75;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=sin(x)*x; writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_76;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=sin(1/x)+2; writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
109
program z3_77;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=x*cos(1/x)+2; writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_78;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=2*sqr(sin(x))+1; writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_79;
110 uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=sqrt(x)*sqr(cos(x)); writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_80;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=sin(x)+sin(x)/cos(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_81;
uses crt; var
111 a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=cos(x)+cos(x)/sin(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_82;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=2*sin(x/2)/cos(x/2)+1; writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_83;
uses crt; var a,b,h,x,fx:Real;
Begin
112
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=sin(x/2)/cos(x/2)+2*cos(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_84;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=cos(x/3)/sin(x/3)+0.5*sin(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_85;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
113
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=0.5*sin(x/4)+1; writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_86;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=2*cos(sqrt(x))+0.5; writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_87;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
114
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=sqr(x)*sqr(sin(x))+1; writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_88;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=0.5*cos(x/4)/sin(x/4)+4; writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_89;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx ');
115 x:=a;
While x<=b do begin fx:=sqr(sin(x))-cos(2*x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_90;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=7*sqr(sin(x))-0.5*cos(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_91;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do
116 begin fx:=-cos(2*x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_92;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=sin(2*x)/cos(2*x)-3; writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_93;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=sin(x)-0.5*cos(x);
117 writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_94;
uses crt; var a,b,h,x,fx:Real;
Begin
ClrScr; Введите отрезок a,b=');
Read(a,b); Введите величину шага h=');
Read(h);
Writeln(' x ',' fx '); x:=a;
While x<=b do begin fx:=x/cos(x); writeln(x:2:5,' ',fx:5:6); x:=x+h; end;
Readkey; end.
program z3_95;
uses crt; var n,s:Longint; b,c,i:integer; a :string;
Begin
ClrScr; Введите число
Read(n);
Str(n,a); val(a[1],b,i); val(a[length(a)],c,i);
Writeln('s=',b+c);
Readkey; end.
program z3_96;
118 uses crt; var n:Longint; k:integer; a :string;
Begin
ClrScr; Введите число
Read(n);
Str(n,a); k:=length(a); a:=a[k]+copy(a,2,k-2)+a[1]; val(a,n,k);
Writeln('n=',n);
Readkey; end.
program z3_97;
uses crt; var p,i,j,n,m,k1,k2:integer; a,b :string;
Begin
ClrScr; Введите 1 число m=');
Read(m); Введите 2 число n=');
Read(n);
Str(m,a);Str(n,b); k1:=length(a); k2:=length(b);
For i:=1 to k1 do
For j:=1 to k2 do if a[i]=b[j] then begin совпадающая цифра p:=1; end; if p=0 then совпадающая цифр нет
Readkey; end.
program z3_98;
uses crt; var i,j,n,k1,k:integer; b :string;
119
Begin
ClrScr; Введите число n=');
Read(n);
Str(n,b); k:=length(b);
For i:=1 to k-1 do
For j:=i+1 to k do if b[i]=b[j] then k1:=k1+1; if k1=3 then в записи числа присутствуют три одинаковых цифры) else в записи числа трех одинаковых цифр нет
Readkey; end.
program z3_99;
uses crt; var n,k:integer; a,b :string;
Begin
ClrScr; Введите число n=');
Read(n); Введите цифру k=');
Read(k);
Str(k,a);
Str(n,b); b:=a+b+a; val(b,n,k); искомое число
Readkey; end.
program z3_100;
uses crt; var p:Longint; n,k,m,i,k1:integer; a,b :string;
Begin
ClrScr; Введите числа n,k=');
Read(n,k);
120 Введите цифру m=');
Read(m); p:=1;
For i:=1 to k do p:=p*n;
Str(p,a);
Str(m,b);
For i:=1 to length(a) do if b=a[i] then k1:=k1+1; В записи числа' цифра if k1<>0 then
Write(' присутствует) else
Write(' отсутствует
Readkey; end.
program z3_101;
uses crt; var s1,cod,s,n,k,i,j,a,b:integer; a1:string;
Begin
ClrScr; Сколько цифр в числе n=');
Read(n); Введите число k=');
Read(k); a:=1;b:=9;
For i:=1 to n-1 do
Begin a:=a*10; b:=10*b+9
End;
For i:=a to b do
Begin str(i,a1); s:=0;
For j:=1 to n do
Begin val(a1[j],s1,cod); s:=s+s1; end;
If s=k then Write(i:5); end;
121
Readkey; end.
program z3_102;
uses crt; var a,b,c,n:integer; m:array[1..12] of integer;
Begin
ClrScr; Введите число a=');
Read(a); Введите месяц b=');
Read(b); Введите год c=');
Read(c); a:=1;b:=9;
For i:=1 to n-1 do
Begin a:=a*10; b:=10*b+9
End;
For i:=a to b do
Begin str(i,a1); s:=0;
For j:=1 to n do
Begin val(a1[j],s1,cod); s:=s+s1; end;
If s=k then Write(i:5); end;
Readkey; end.
program z3_103;
uses crt; var n,i,k,d,max,min:integer; n1: string;
Begin
ClrScr; Введите число n, n=');
Read(n); str(n,n1);