Консольное приложение: program P; {$APPTYPE CONSOLE} uses Windows, SysUtils;
var xn,xk,dx,x,z,s,p:real; i:integer; begin readln(xn,xk,dx); x:=xn-dx; s:=0; p:=1; for i:=1 to round((xk-xn)/dx)+1 do begin x:=x+dx; z:=sin(cos(x)); if z>x then s:=s+z else p:=p*z; if i mod 3=1 then writeln(i,' ',x:5:3,' ',z:7:5); end; writeln('s = ',s,' p = ',p); end.
Ожог: 1. Убрать поражающий фактор. 2. Охладить место ожога. 3. Накрыть влажной повязкой. 4. Покой и противошоковые меры. Обморок: 1. Если дыхательные пути свободны, пострадавший дышит и у него прощупывается пульс (слабый и редкий), его необходимо уложить на спину и приподнять ноги. 2. Расстегнуть сдавливающие части одежды. 3. Положить на лоб пострадавшего мокрое полотенце. 4. При рвоте пострадавшего необходимо перевести в безопасное положение или хотя бы повернуть голову набок, чтобы он не захлебнулся рвотными массами. Остановка дыхания: 1. Непрямой массаж сердца. 2. Искусственная вентиляция легких. 3. Закрытие дыхательных путей инородным телом.
Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d, a,b: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); a:= 0; b:= 0; for i := 1 to 15 do begin y[i] := random (30); if (y[i] < 10) then a:= a + 1; y[i] := y[i] * d * 0.8; end; for i:=1 to 20 do g[i] := random (30); if (g[i] < 10) then b:= b + 1; g[i] := g[i] * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; writeln('В отделе y ', a, ' сотрудников работало меньше 10 дней'); writeln; writeln('В отделе g ', b, ' сотрудников работало меньше 10 дней'); End.
program P;
{$APPTYPE CONSOLE}
uses Windows, SysUtils;
var xn,xk,dx,x,z,s,p:real; i:integer;
begin
readln(xn,xk,dx);
x:=xn-dx;
s:=0; p:=1;
for i:=1 to round((xk-xn)/dx)+1 do
begin
x:=x+dx;
z:=sin(cos(x));
if z>x then s:=s+z else p:=p*z;
if i mod 3=1 then writeln(i,' ',x:5:3,' ',z:7:5);
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
-3.14 3.14 0.314
1 -3.140 -0.84147
4 -2.198 -0.55377
7 -1.256 0.30470
10 -0.314 0.81406
13 0.628 0.72374
16 1.570 0.00080
19 2.512 -0.72309
s = 1.542042441906335e+00 p = -1.119447732428404e-05