18 кб=18432 байт Вам следует уточнить о какой кодировке идёт речь. Если Unicode, UTF-16 или ISO 10646: 1 символ=2 байта 18432/2=9216 символа Если ASCII, UTF-8 или CP1251: 1 символ=1 байт 18432 символа Безумный вариант для фриков, которые считают что 1 кб=1000 байт 18 кб=18000 байт (аж самого воротит) Для Unicode и так далее: 9000 символов. Для ASCII и так далее: 18000 символов. Если даже это не просто попробуйте скопировать ответ, а не перепечатывать его. Это странно.
О второй задаче: Занято: Фильм=1,12 ГБ=1145,8(с округлением) мб Фото=1105,9 мб(тоже с округлением) Отчёт=15,5 мб Всего занято=2267,2 мб Объём=16384 мб Процент занятого: 13.8 Процент свободного: 86,2
Function f(x:real):real; { возвращает значение функции y(x) для заданного х } begin f:=sqr(x)+4*x+3 end;
var a,b,h:real; { начало интервала, конец интервала, шаг } x,y:real; { аргумент и значение функции } begin Write('Введите начало интервала, конец и шаг: '); Read(a,b,h); x:=a; while x<=(b+0.001*h) do { 0.001*h добавляем для компенсации погрешности } begin Writeln('x=',x,', y=',f(x)); x:=x+h end end.
В решении хорошо видно, как часть чисел из-за погрешности машинного представления отображается неточно. В частности, мы "не попали" точно в х=0 и если бы табуляция шла на интервале [-2;0] с шагом 0.2, то при задании в цикле условия x<=b без компенсации погрешности, мы бы не получили значение для х=0.
Вам следует уточнить о какой кодировке идёт речь.
Если Unicode, UTF-16 или ISO 10646:
1 символ=2 байта
18432/2=9216 символа
Если ASCII, UTF-8 или CP1251:
1 символ=1 байт
18432 символа
Безумный вариант для фриков, которые считают что 1 кб=1000 байт
18 кб=18000 байт (аж самого воротит)
Для Unicode и так далее:
9000 символов.
Для ASCII и так далее:
18000 символов.
Если даже это не просто попробуйте скопировать ответ, а не перепечатывать его.
Это странно.
О второй задаче:
Занято:
Фильм=1,12 ГБ=1145,8(с округлением) мб
Фото=1105,9 мб(тоже с округлением)
Отчёт=15,5 мб
Всего занято=2267,2 мб
Объём=16384 мб
Процент занятого: 13.8
Процент свободного: 86,2
{ возвращает значение функции y(x) для заданного х }
begin
f:=sqr(x)+4*x+3
end;
var
a,b,h:real; { начало интервала, конец интервала, шаг }
x,y:real; { аргумент и значение функции }
begin
Write('Введите начало интервала, конец и шаг: ');
Read(a,b,h);
x:=a;
while x<=(b+0.001*h) do { 0.001*h добавляем для компенсации погрешности }
begin Writeln('x=',x,', y=',f(x)); x:=x+h end
end.
Тестовое решение.
Введите начало интервала, конец и шаг: -2 2 0.2
x=-2, y=-1
x=-1.8, y=-0.96
x=-1.6, y=-0.84
x=-1.4, y=-0.64
x=-1.2, y=-0.36
x=-1, y=-4.44089209850063E-16
x=-0.8, y=0.44
x=-0.6, y=0.959999999999999
x=-0.4, y=1.56
x=-0.2, y=2.24
x=-2.77555756156289E-16, y=3
x=0.2, y=3.84
x=0.4, y=4.76
x=0.6, y=5.76
x=0.8, y=6.84
x=1, y=8
x=1.2, y=9.24
x=1.4, y=10.56
x=1.6, y=11.96
x=1.8, y=13.44
x=2, y=15
В решении хорошо видно, как часть чисел из-за погрешности машинного представления отображается неточно. В частности, мы "не попали" точно в х=0 и если бы табуляция шла на интервале [-2;0] с шагом 0.2, то при задании в цикле условия x<=b без компенсации погрешности, мы бы не получили значение для х=0.