1. одна страница: при палитре из 16 цветов вес 1 точки на странице равен 4 бита, таких точек = 640*480 = 307200, тогда 1 страница = 307200 * 4 бита = 1228800 бит = 153600 байт = 150 кб, тогда в памяти можно сохранить 512 кб / 150 кб = 3 страницы, четвертая сохранится только на 41 процент.
2. при палитре 256 цветов, вес 1 точки = 8 бит, то есть в 2 раза больше чем в 1 случае, то есть размер 1 страницы будет в 2 раза больше: 300 Кб, то есть сохранить можно только 1 страницу при размере видеопамяти в 512 Кб
Using System;
class Program
{
public static void Main()
{
double x,y;
for (x = 0; x <= 12; x++)
{
y = Math.Sqrt(Math.Log(x*x-3*x+2));
Console.WriteLine("x = {0}, y = {1}", x, y);
}
Console.ReadKey();
}
}
Результат:
<span>x = 0, y = 0.832554611157698
x = 1, y = NaN
x = 2, y = NaN
x = 3, y = 0.832554611157698
x = 4, y = 1.33856619904585
x = 5, y = 1.57635866787606
x = 6, y = 1.73081838260229
x = 7, y = 1.84423354856758
x = 8, y = 1.93330536084794
x = 9, y = 2.00632791206601
x = 10, y = 2.06801018348945
x = 11, y = 2.1212754819519
x = 12, y = 2.16805912414593
PS. NaN - функцию невозможно вычислить при данном значении аргумента.</span>
Const Alpha : set of char=['A'..'Z','А'..'П','Р'..'Я','a'..'z','а'..'п','р'..'я'];
var s:string;
i:integer;
wc:integer;
begin
writeln('Введите текст'); readln(s);
i:=1; wc:=0;
Repeat
while NOT(s[i] in Alpha) and (i<=length(s)) do inc(i);
if (i<=length(s)) then inc(wc);
while (s[i] in Alpha) and (i<=length(s)) do inc(i);
Until (i>length(s));
writeln('Количество слов в этом тексте = ',wc);
end.