Даны два действительных числа . составьте программу , которая заменяет первое число нулем, если оно не меньше второго , или составляет без изменения в противном случае
Const e=0.001; var x,xn,h,an,s,f,y:real; n,k,i:integer; begin n:=10; h:=(1-0.1)/(n-1); x:=0.1-h; for i:=1 to n do begin x:=x+h; an:=1; xn:=1; f:=1; k:=0; s:=1; while an>e do begin xn:=xn*x*x; k:=k+1; f:=f*k; an:=(2*k+1)*xn/f; s:=s+an; end; y:=(1+2*x*x)*exp(x*x); writeln('x = ',x:4:1,' s = ',s:6:4,' y = ',y:6:4); end; end.
Результат: x = 0.1 s = 1.0303 y = 1.0303 x = 0.2 s = 1.1241 y = 1.1241 x = 0.3 s = 1.2911 y = 1.2911 x = 0.4 s = 1.5490 y = 1.5490 x = 0.5 s = 1.9260 y = 1.9260 x = 0.6 s = 2.4653 y = 2.4653 x = 0.7 s = 3.2320 y = 3.2320 x = 0.8 s = 4.3240 y = 4.3240 x = 0.9 s = 5.8894 y = 5.8895 x = 1.0 s = 8.1548 y = 8.1548
1) begin var a:=ReadArrInteger('Введите 10 чисел:',10); var i:=a.IndexMax; Writeln('Максимум A[',i+1,']=',a[i]); end.
2) const n=6;
type Q=record ch:integer; zn:integer; end; var a:array[1..n] of Q; j,k,max:integer; f:boolean; mx:Q;
begin write('k: '); readln(k); for var i:=1 to n do begin writeln('Дробь ',i); write('Введите числитель= '); readln(a[i].ch); repeat write('Введите знаменатель= '); readln(a[i].zn); until a[i].zn>0; end; writeln('Введенные дроби:'); for var i:=1 to n do write(a[i].ch,'/',a[i].zn,' '); writeln; j:=0; for var i:=1 to n do if (a[i].ch div a[i].zn mod k = 0) then j:=j+1; writeln('кол-во ',j); end.
begin
readln(a,b); if a < b then a:= 0; writeln(a,' ',b);
end.