Команды предварительного просмотра и печати документа находятся а. в менют кнопки office. b. на вкладке ленты главная. с. в меню кнопки office-печать . d. на вкладке ленты вид.
А) 1. const x0=0; xk=pi; h=pi/2; var x,y:real; i:integer; begin x:=x0-h; for i:=0 to round((xk-x0)/h) do begin x:=x+h; y:=0.5*x+sqr(sin(x)); writeln(x:5:2,' ',y:6:4); end; end.
2. const x0=0; xk=pi; h=pi/2; var x,y:real; i:integer; begin x:=x0-h; while x<xk do begin x:=x+h; y:=0.5*x+sqr(sin(x)); writeln(x:5:2,' ',y:6:4); end; end.
3. const x0=0; xk=pi; h=pi/2; var x,y:real; i:integer; begin x:=x0-h; repeat x:=x+h; y:=0.5*x+sqr(sin(x)); writeln(x:5:2,' ',y:6:4); until x>=xk; end.
Результат: 0.00 0.0000 1.57 1.7854 3.14 1.5708
б) var x,y:real; begin readln(x); y:=(3-sin(2*x))*cos(x/3); writeln('y = ',y:6:4); if y<0 then writeln('Функция отрицательна') else if y>0 then writeln('Функция положительна') else writeln('Функция = 0'); end.
Program z1; var a,b:real; f:longint; begin writeln('Ââåäèòå Г¬Г*Г±Г±Гі Гў ГЄГЈ:'); read(a); writeln('Ââåäèòå åäèГ*èöó âûâîäГ*:'); writeln('1 - ìèëëèãðГ*ìì'); writeln('2 - ГЈГ°Г*ìì'); writeln('3 - êèëîãðГ*ìì'); writeln('4 - öåГ*ГІГ*ГҐГ°'); writeln('5 - ГІГ®Г*Г*Г*'); read(f); if (f<1) or (f>6) then begin writeln('Ïîâòîðèòå ââîä'); read(f); end; if f=1 then begin b:=a*1000000; write(a,' ГЄГЈ=',' ',b,' ','ìèëëèãðГ*ìì'); end; if f=2 then begin b:=a*1000; write(a,' ГЄГЈ=',' ',b,' ','ГЈГ°Г*ìì'); end; if f=3 then begin b:=a; write(a,' ГЄГЈ =',' ',b,' ','êèëîãðГ*ìì'); end; if f=4 then begin b:=a/100; write(a,' ГЄГЈ=',' ',b,' ','öåГ*òðîâ'); end; if f=5 then begin b:=a/1000; write(a,' ГЄГЈ=',' ',b,' ','ГІГ®Г*Г*'); end; writeln('ÏðîãðГ*ììГ* Г§Г*âåðøåГ*Г*'); end.
