// PascalABC.NET 3.0, сборка 1088 var x,y,t:real; i:integer; begin for i:=0 to 10 do begin x:=i/10; t:=x*sqr(x)+0.5; y:=cos(t)/sin(t); Writeln('x=',x:3:1,', y=',y) end end.
//PascalABC.NET 3.0 const n = 5; begin var a := ArrRandomReal(n); var b := ArrRandomReal(n); write('Длины первого катета: '); foreach var i in a do write(i : 5 : 2); write(NewLine, 'Длины второго катета: '); foreach var i in b do write(i : 5 : 2); var imax := 0; for var i := 1 to n - 1 do if a[imax] * b[imax] < a[i] * b[i] then imax := i; writeln(NewLine, 'Номер: ', imax + 1); writeln('Катеты: ', a[imax] : 0 : 2, ' ', b[imax] : 0 : 2); writeln('Площадь: ', a[imax] * b[imax] / 2 : 0 : 2); end.
var
x,y,t:real;
i:integer;
begin
for i:=0 to 10 do begin
x:=i/10;
t:=x*sqr(x)+0.5;
y:=cos(t)/sin(t);
Writeln('x=',x:3:1,', y=',y)
end
end.
Тестовое решение:
x=0.0, y=1.83048772171245
x=0.1, y=1.82614498429306
x=0.2, y=1.79618385002611
x=0.3, y=1.71852553644354
x=0.4, y=1.58093809305141
x=0.5, y=1.38603127549996
x=0.6, y=1.1494046625412
x=0.7, y=0.890956788596857
x=0.8, y=0.625274002791611
x=0.9, y=0.355759266063965
x=1.0, y=0.0709148443026524