Const a=5.1; x=3.29; var Y,Z:double; begin Y:=2*exp(4*x)+arctan(x/a); Z:=cos(x*sqr(x))+sqr(sin(x)); Writeln('Y=',Y,', Z=',Z) end.
Результат выполнения программы: Y=1038354.42291114, Z=-0.472433980670957
const m=6; n=8; var a:array[1..m,1..n] of double; b:array[1..m*n] of double; i,j,k,imax,imin:integer; t:double; begin // Инициализация А и формирование В Randomize; Writeln('Исходный массив A'); k:=0; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=10*Random-5; { случайное число на [-5;5] } Write(a[i,j]:8:4); t:=cos(a[i,j]); if (t>=0) and (t<0.5) then begin Inc(k); b[k]:=a[i,j] end end; Writeln end; // Вывод сформированного массива В Writeln('Исходный массив В'); for i:=1 to k do Write(b[i]:8:4); Writeln; // Поиск максимума и минимума с последующим обменом их местами imax:=1; imin:=1; for i:=2 to k do if b[i]<b[imin] then imin:=i else if b[i]>b[imax] then imax:=i; t:=b[imax]; b[imax]:=b[imin]; b[imin]:=t; // Вывод результирующего массива В Writeln('Результирующий массив В'); for i:=1 to k do Write(b[i]:8:4); Writeln end.
Хосспаде Иегове, да научитесь же вы язык указывать! Perl. 2. @array; #Формат ввода не задан, будем считать что он уже заполнен. $min = $array[0]; $max = $array[0]; for $i (@array) { $min = $i if ($i < $min); $max = $i if ($i > $min); } %hash = map {$_ => 1} @array; for $i in ($min..$max) { print "$i " if (!(exists $hash{$i})); } 3. use Quantum::Superpositions; #Модуль для квантовых вычислений, жутко удобная штука. @primes; $n = <>; push @primes, ($i) if ($i % all(2..sqrt($i)+1) != 0) i for $i (2..$n); #ответ в массиве @primes. 4. На этот вопрос я не так давно отвечал, ну ладно. $n = <>; @multipliers; for $i (2..$n) { if (!($n % $i)) { push @multipliers, ($i); $n /= i; } } #ответ в массиве @multipliers. А теперь укажите-таки язык и я, если с этим языком знаком напишу нормальный, не извращённый ответ.
a=5.1;
x=3.29;
var
Y,Z:double;
begin
Y:=2*exp(4*x)+arctan(x/a);
Z:=cos(x*sqr(x))+sqr(sin(x));
Writeln('Y=',Y,', Z=',Z)
end.
Результат выполнения программы:
Y=1038354.42291114, Z=-0.472433980670957
const
m=6;
n=8;
var
a:array[1..m,1..n] of double;
b:array[1..m*n] of double;
i,j,k,imax,imin:integer;
t:double;
begin
// Инициализация А и формирование В
Randomize;
Writeln('Исходный массив A');
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=10*Random-5; { случайное число на [-5;5] }
Write(a[i,j]:8:4);
t:=cos(a[i,j]);
if (t>=0) and (t<0.5) then begin Inc(k); b[k]:=a[i,j] end
end;
Writeln
end;
// Вывод сформированного массива В
Writeln('Исходный массив В');
for i:=1 to k do Write(b[i]:8:4);
Writeln;
// Поиск максимума и минимума с последующим обменом их местами
imax:=1; imin:=1;
for i:=2 to k do
if b[i]<b[imin] then imin:=i
else
if b[i]>b[imax] then imax:=i;
t:=b[imax]; b[imax]:=b[imin]; b[imin]:=t;
// Вывод результирующего массива В
Writeln('Результирующий массив В');
for i:=1 to k do Write(b[i]:8:4);
Writeln
end.
Тестовое решение:
Исходный массив A
-1.6788 -0.7273 -3.4919 2.9903 -4.3249 -2.2230 -2.1157 0.9685
2.0515 4.6821 0.2794 -1.4624 4.9668 -3.5754 -3.4115 -0.5592
3.0535 1.1339 0.0992 -0.5307 -0.6266 2.2623 1.9578 -1.3175
-0.6154 3.6080 2.4223 -4.8354 -2.2978 3.8982 -2.2427 2.0410
-1.1019 -3.4703 -2.0104 -1.3044 0.7744 0.6897 3.1747 1.3257
-4.3942 -1.6707 -3.2494 -0.6551 3.4726 -0.2896 3.4154 1.9644
Исходный массив В
-1.4624 4.9668 1.1339 -1.3175 -4.8354 -1.1019 -1.3044 1.3257
Результирующий массив В
-1.4624 -4.8354 1.1339 -1.3175 4.9668 -1.1019 -1.3044 1.3257