Потому что чтобы уметь пользоваться компьютером нужно как минимум логично рассуждать
Программы в приложении. Код Второго задания (справа на доске) сделал в одной программе с выбором номера задания. Объем получился большой, но для примера в самый раз.
1-й по счету PAS файл в приложении - N1
2-й по счету PAS файл в приложении - N2
3-й по счету PAS файл в приложении - N3_5 - Содержит в себе все второе задание из 5 примеров
program N1;
var x: real;
function y(x: real): real;
begin
if x > 0 then y := sqrt(x * x * x)
else if x < 0 then y := x
else
y := 2 + x;
end;
begin
Write('Введите x: ');
Readln(x);
Writeln('Ответ: y(', x, ')=', y(x):2:2);
end.
program N2;
var x1, x2: real;
function y(x1, x2: real): real;
begin if x1 >= x2 then y := sqrt(x1 + x2)
else y := x1 * x2;
end;
begin
Write('Введите x1: ');
Readln(x1);
Write('Введите x2: ');
Readln(x2);
Writeln('Ответ: y(', x1, ',', x2, ')=', y(x1, x2):2:2);
end.
i = log ₂ 1/p
вероятность того, что достали красный клубок: Рк = 4/12 = 1/3
количество информации, что достали красный клубок:
i = log ₂ 1/(1/3) = log ₂ 3 бит
вероятность того, что достали черный клубок: Рк = 8/12 = 2/3
количество информации, что достали черный клубок:
i = log ₂ 1/(2/3) = log ₂ (3/2) бит
//Pascal ABC.NET 3.1 сборка 1219
Var
f:text;
c,n1,n2,i:integer;
ar1,ar2:array of real;
r:real;
begin
readln(c);
assign(f,'INPUT.TXT');
reset(f);
while not(Eof(f)) do
begin
read(f,r);
if r>c then
begin
inc(n1);
setlength(ar1,n1);
ar1[n1-1]:=r;
end;
if r<c then
begin
inc(n2);
setlength(ar2,n2);
ar2[n2-1]:=r;
end;
end;
close(f);
assign(f,'OUTPUT1.TXT');
rewrite(f);
for i:=0 to n1-1 do
if i<>n1-1 then write(f,ar1[i],' ') else write(f,ar1[i]);
close(f);
writeln('Count of values in OUTPUT1.TXT:',n1);
assign(f,'OUTPUT2.TXT');
rewrite(f);
for i:=0 to n2-1 do
if i<>n2-1 then write(f,ar2[i],' ') else write(f,ar2[i]);
close(f);
writeln('Count of values in OUTPUT2.TXT:',n2);
end.
Пример ввода:
2
Содержимое <span>INPUT.TXT:
1.5 1.75 2 2.25 2.5
Содержимое OUTPUT1.TXT:
2.25 2.5
Содержимое OUTPUT2.TXT:
1.5 1.75
Пример вывода:
Count of values in OUTPUT1.TXT:2
Count of values in OUTPUT2.TXT:2</span>
