PascalABC.Net var a,d,x,z:real; begin a:=1.2; d:=3.8; x:=-2; while x<=2 do begin if abs(x)>=0.0001 then begin { вот так приходится обходить нули! } if x>0.4 then z:=exp(sqrt(x+1)) else z:=cos(a*x)/sin(a*x)+sin(d*x); Writeln('x=',x:7:4,', Z=',z:7:4) end else Writeln('Функция не определена для x=0'); x:=x+0.4 end end.
Результат выполнения программы x=-2.0000, Z= 0.1238 x=-1.6000, Z= 0.5659 x=-1.2000, Z= 0.8569 x=-0.8000, Z=-0.8015 x=-0.4000, Z=-2.9195 Функция не определена для x=0 x= 0.4000, Z= 2.9195 x= 0.8000, Z= 3.8253 x= 1.2000, Z= 4.4072 x= 1.6000, Z= 5.0151 x= 2.0000, Z= 5.6522
Program Dimamixali14; uses crt; const n=10; Var s:string; fly:text; a: array [1..n,1..n] of integer; i,j,k,summa: integer; begin S:='*** Alphaeus is thinking... ***'; for i:=1 to length(s) do begin write(s[i]); for j:=1 to 500000 do s[i]:=s[i]; end; writeln(); writeln('*** OK ***'); writeln(); writeln('Задача:'); writeln('Сформировать квадратную матрицу A(NxN), которую вывести. Строки с отрицательным элементом на главной диагонали последовательно записать в файл. В конец файла дописать сумму первой и последней компонент, файл отпечатать.'); randomize; assign(fly,'F.txt'); rewrite(fly); {заполняем и выводим матрицу} writeln(); writeln('Matrix:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(101)-50; write (a[i,j]:3); end; writeln(); end; writeln();writeln(); {заполняем файл} for i:=1 to n do begin for j:=1 to n do begin if(i=j) and (a[i,j]<0) then begin for k:=1 to n do write(fly,a[i,k]:3); writeln(fly, ' '); end; end; end; writeln(); writeln('File:'); summa:=a[1,1]+a[n,n]; writeln(fly,'Summa = ',summa); s:=''; {выводим файл} reset(fly); while not eof (fly) do begin readln (fly, s); writeln(s); end; close(fly); end.
