Y=IF(x<=1;2*e^(x-1);IF(x<3;(4-x)/2;1/(x-1)*(x-2)))
фактически тут два вложеных IF
если x<=1 то у = 2*e^(x-1)
иначе если x<3 то у = (4-x)/2
иначе у = 1/(x-1)*(x-2)
понятно?
Const
nn=100;
var
a:array[1..nn] of integer;
i,n,s1,s2:integer;
begin
Write('Введите размер массива n: '); Read(n);
Randomize;
Writeln('Исходный массив');
for i:=1 to n do begin
a[i]:=Random(3000)+1000;
Write(a[i]:5)
end;
Writeln;
Writeln('Результаты');
for i:=1 to n do begin
s1:=(a[i] div 1000)+(a[i] div 100) mod 10;
s2:=(a[i] div 10) mod 10+a[i] mod 10;
if s1=s2 then Write(a[i]:5)
end
end.
Тестовое решение:
Введите размер массива n: 50
Исходный массив
3407 3373 2752 3121 2683 3082 3252 1364 3890 1595 3004 3206 3663 2523 1972 2003 2344 3901 3739 2898 1639 2839 2498 1200 1613 1498 1262 3370 1548 1287 1972 3348 1278 3116 1505 3235 1062 1740 2491 1023 3955 3704 1265 2567 1287 1255 2602 3924 2561 2912
Результаты
3407 3663 2561
При условии что знаком "|" обозначается операция ИЛИ, а знаком "&" - операция И, то результат будет выглядеть вот так:
А - отобразит страницы, которые одновременно относятся и к контрольным, и к зачётам, и к экзаменам - самый узкий диапазон поиска.
Г - отобразит страницы, относящиеся к контрольным и зачётам одновременно. Шире, чем А, но уже, чем остальные варианты.
Б - отобразит страницы, относящиеся к контрольным и зачётам одновременно, а также к экзаменам;
В - отобразит страницы, относящиеся к контрольным, или к зачётам, или к экзаменам.
Таким образом, последовательность запросов будет выглядеть следующим образом: А - Г - Б - В.
Более наглядное объяснение вывода страниц на картинке.
1)Запрос информации-обрабатывается
2)Движение мышки на экран-передаётся
3)Вид фаила (jpg и т.д.) когда мы его сохраняем-сохраняется
<em>// PascalABC.NET 3.3, сборка 1623 от 16.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var x1:=0 to 12 do begin
var x:=x1/10;
if Abs(x)<0.5 then begin
var (y,s,a):=((x+3)/(x*x+4),0.0,1.0);
for var n:=1 to 10 do begin a*=(2*x+1); s+=a/(2*n+1) end;
y*=s;
Writeln('x = ',x:3:1,', Y = ',y)
end
else begin
var (y,p,a):=((x+1)/5,1.0,1.0);
for var n:=1 to 8 do begin a*=(x+1); p*=1+a/(n+1) end;
y*=p;
Writeln('x = ',x:3:1,', Y = ',y)
end;
end
end.
<u>Результат</u>
x = 0.0, Y = 0.885655933333952
x = 0.1, Y = 2.07134133017373
x = 0.2, Y = 5.37135178910962
x = 0.3, Y = 14.3385122904036
x = 0.4, Y = 37.2591296972574
x = 0.5, Y = 244.826467104353
x = 0.6, Y = 1171.45928887289
x = 0.7, Y = 5902.01341262292
x = 0.8, Y = 30197.4497576749
x = 0.9, Y = 153052.875303788
x = 1.0, Y = 756279.377777778
x = 1.1, Y = 3608294.82269368
x = 1.2, Y = 16533102.0129557
