N = P*r, r = log2(I) N - объем памяти P - пиксели r - разрешение I - количество цветов все переменные в битах Итого: r = log2(32)=5 P = 64*10*48*10 = 2^6*100*2^4*3 N = 2^10*300*5 = 1500 * 2^10 бит 1 килобайт = 2^13 бит значит N = 1500/8 = 187,5 килобайт
В приложении - рабочая книга Microsoft Excel 2003 с макросом. Для выполнения надо разрешить макросы.
Текст программы:
Option Explicit
Private Sub cmdStart_Click() Const T = 360 'Условное количество дней в году Dim PV As Double, FV As Double, r As Double, n As Double Dim d1 As Date, d2 As Date PV = Cells(1, 2).Value FV = Cells(2, 2).Value r = Cells(3, 2).Value d1 = Cells(4, 2).Value n = (FV / PV - 1) * T / r If n <> Int(n) Then n = n + 1 d2 = d1 + n Cells(5, 2).Value = d2 End Sub
begin Writeln('Введите фразу, разделяя слова ровно одним пробелом'); Readln(s); Write('Введите номер слова для поиска: '); Readln(X); { Ищем в строке s местоположение слова номер Х. Его начальную позицию в строке обозначим p, а конечную - q } n := Length(s); i := 1; k := 0; p := 0; q := 0; repeat if s[i] = ' ' then begin Inc(k); if k = X - 1 then p := i + 1 else if k = X then q := i - 1 end; if q = 0 then i := i + 1 until (q > 0) or (i > n); if (p = 0) then Writeln('Количество слов в строке меньше ', X) else if q = 0 then q := n; w := Copy(s, p, q - p + 1); if (Pos('а', w) > 0) or (Pos('о', w) > 0) then Writeln('Одна из букв (а,о) есть в слове "', w, '"') else Writeln('В слове "', w, '" нет ни буквы а, ни буквы о') end.
Тестовое решение: Введите фразу, разделяя слова ровно одним пробелом Самая лучшая рыба- это колбаса! Введите номер слова для поиска: 5 Одна из букв (а,о) есть в слове "колбаса!"
Введите фразу, разделяя слова ровно одним пробелом Тестирование программ может служить доказательством наличия ошибок, но никогда не докажет их отсутствие!» Эд. Дейкстра, 1972 г. Введите номер слова для поиска: 4 В слове "служить" нет ни буквы а, ни буквы о
N - объем памяти
P - пиксели
r - разрешение
I - количество цветов
все переменные в битах
Итого: r = log2(32)=5
P = 64*10*48*10 = 2^6*100*2^4*3
N = 2^10*300*5 = 1500 * 2^10 бит
1 килобайт = 2^13 бит
значит N = 1500/8 = 187,5 килобайт