Как создать страницу для вычисления тригонометрических функций?Вводимые пользователем данные должны проверяться немедленно после ввода и после нажатия кнопки Вычислить.
Var myInFile, myOutFile: text; ind: integer; currentString: string; begin assign(myInFile, 'in.txt'); reset(myInFile); assign(myOutFile, 'out.txt'); rewrite(myOutFile); while (not EOF(myInFile)) do begin currentString := readln(myInFile); while (pos('red', currentString) > 0) do begin ind := pos(currentString, 'red'); delete(currentString, ind, length('red')); insert('black', currentString, ind); end; while (pos('tree', currentString) > 0) do begin ind := pos(currentString, 'tree'); delete(currentString, ind, length('tree')); insert('palms', currentString, ind); end; end; close(myInFile); close(myOutFile); end.
Это явно шифр замены, поэтому имеет смысл провести частотный анализ. Всего букв 808 - 145 знака и пробела = 663. Из них: ь : 3; ш : 32; к : 79; п : 13; з : 16; щ : 42; а : 35; ж : 36; ц : 13; о : 33; э : 45; ы : 32; и : 16; д : 18; б : 24; л : 33; ю : 30; я : 5; г : 60; с : 1; й : 27; ч : 8; н : 6; у : 4; х : 13; м : 7; в : 17; ф : 7; р : 7; Самая частая буква в русском языке - буква О, здесь чаще всех встречается буква к - 79 раз. На 2 месте буква А, здесь это явно буква г - 60 раз. Можно с уверенностью сказать, что к = О, г = А. Кроме того, слово "швш-шк" явно означает "тут-то", а "ого" означает "как" то есть ш = Т, в = У, о = К. Проводим анализ дальше, и буквы отгадывать становится все проще. Заменяем эти буквы, я их буду писать большими, чтобы отличать, в итоге получаем
ЭТО БЫЛО НИЗКОЕ, ДЛИННОЕ ПОДЗЕМЕЛЬЕ; СВОДЫ ЕГО СЛАБО ОСВЕЩАЛИСЬ РЯДАМИ ВИСЯЧИХ ЛАМП. ПРАВДА, ПО ВСЕЙ ДЛИНЕ СТЕН ШЛИ ДВЕРИ, НО, К БОЛЬШОМУ СОЖАЛЕНИЮ, ВСЕ ОНИ ОКАЗАЛИСЬ ЗАПЕРТЫ. АЛИСА ДОВОЛЬНО СКОРО УДОСТОВЕРИЛАСЬ В ЭТОМ, ДВАЖДЫ ОБОЙДЯ ВСЕ ПОДЗЕМЕЛЬЕ И ПО НЕСКОЛЬКУ РАЗ ПОДЕРГАВ КАЖДУЮ ДВЕРЬ. ОНА УНЫЛО РАСХАЖИВАЛА ВЗАД И ВПЕРЕД, ПЫТАЯСЬ ПРИДУМАТЬ, КАК ЕЙ ОТСЮДА ВЫБРАТЬСЯ, КАК ВДРУГ НАТКНУЛАСЬ НА МАЛЕНЬКИЙ СТЕКЛЯННЫЙ СТОЛИК, НА КОТОРОМ ЛЕЖАЛ КРОХОТНЫЙ ЗОЛОТОЙ КЛЮЧИК. АЛИСА ОЧЕНЬ ОБРАДОВАЛАСЬ: ОНА ПОДУМАЛА, ЧТО ЭТО КЛЮЧ ОТ КАКОЙ-НИБУДЬ ИЗ ДВЕРЕЙ. НО УВЫ! МОЖЕТ БЫТЬ, ЗАМКИ БЫЛИ СЛИШКОМ БОЛЬШИЕ, А МОЖЕТ БЫТЬ, КЛЮЧИК БЫЛ СЛИШКОМ МАЛЕНЬКИЙ, ТОЛЬКО ОН НИКАК НЕ ХОТЕЛ ОТКРЫВАТЬ НИ ОДНОЙ ДВЕРИ. ОНА ДОБРОСОВЕСТНО ПРОВЕРЯЛА ОДНУ ДВЕРЬ ЗА ДРУГОЙ, И ТУТ-ТО ОНА ВПЕРВЫЕ ЗАМЕТИЛА ШТОРУ, СПУСКАВШУЮСЯ ДО САМОГО ПОЛА, А ЗА НЕЙ.
Это отрывок из "Алисы в Стране Чудес" Льюиса Кэрролла.
ind: integer;
currentString: string;
begin
assign(myInFile, 'in.txt');
reset(myInFile);
assign(myOutFile, 'out.txt');
rewrite(myOutFile);
while (not EOF(myInFile)) do
begin
currentString := readln(myInFile);
while (pos('red', currentString) > 0) do
begin
ind := pos(currentString, 'red');
delete(currentString, ind, length('red'));
insert('black', currentString, ind);
end;
while (pos('tree', currentString) > 0) do
begin
ind := pos(currentString, 'tree');
delete(currentString, ind, length('tree'));
insert('palms', currentString, ind);
end;
end;
close(myInFile);
close(myOutFile);
end.
Всего букв 808 - 145 знака и пробела = 663. Из них:
ь : 3; ш : 32; к : 79; п : 13; з : 16; щ : 42; а : 35; ж : 36; ц : 13; о : 33; э : 45; ы : 32;
и : 16; д : 18; б : 24; л : 33; ю : 30; я : 5; г : 60; с : 1; й : 27; ч : 8; н : 6; у : 4; х : 13;
м : 7; в : 17; ф : 7; р : 7;
Самая частая буква в русском языке - буква О, здесь чаще всех встречается буква
к - 79 раз.
На 2 месте буква А, здесь это явно буква г - 60 раз.
Можно с уверенностью сказать, что к = О, г = А.
Кроме того, слово "швш-шк" явно означает "тут-то", а "ого" означает "как" то есть
ш = Т, в = У, о = К.
Проводим анализ дальше, и буквы отгадывать становится все проще.
Заменяем эти буквы, я их буду писать большими, чтобы отличать, в итоге получаем
ЭТО БЫЛО НИЗКОЕ, ДЛИННОЕ ПОДЗЕМЕЛЬЕ; СВОДЫ ЕГО СЛАБО ОСВЕЩАЛИСЬ РЯДАМИ ВИСЯЧИХ ЛАМП. ПРАВДА, ПО ВСЕЙ ДЛИНЕ СТЕН ШЛИ ДВЕРИ, НО, К БОЛЬШОМУ СОЖАЛЕНИЮ, ВСЕ ОНИ ОКАЗАЛИСЬ ЗАПЕРТЫ. АЛИСА ДОВОЛЬНО СКОРО УДОСТОВЕРИЛАСЬ В ЭТОМ, ДВАЖДЫ ОБОЙДЯ ВСЕ ПОДЗЕМЕЛЬЕ И ПО НЕСКОЛЬКУ РАЗ ПОДЕРГАВ КАЖДУЮ ДВЕРЬ. ОНА УНЫЛО РАСХАЖИВАЛА ВЗАД И ВПЕРЕД, ПЫТАЯСЬ ПРИДУМАТЬ, КАК ЕЙ ОТСЮДА ВЫБРАТЬСЯ, КАК ВДРУГ НАТКНУЛАСЬ НА МАЛЕНЬКИЙ СТЕКЛЯННЫЙ СТОЛИК, НА КОТОРОМ ЛЕЖАЛ КРОХОТНЫЙ ЗОЛОТОЙ КЛЮЧИК. АЛИСА ОЧЕНЬ ОБРАДОВАЛАСЬ: ОНА ПОДУМАЛА, ЧТО ЭТО КЛЮЧ ОТ КАКОЙ-НИБУДЬ ИЗ ДВЕРЕЙ. НО УВЫ! МОЖЕТ БЫТЬ, ЗАМКИ БЫЛИ СЛИШКОМ БОЛЬШИЕ, А МОЖЕТ БЫТЬ, КЛЮЧИК БЫЛ СЛИШКОМ МАЛЕНЬКИЙ, ТОЛЬКО ОН НИКАК НЕ ХОТЕЛ ОТКРЫВАТЬ НИ ОДНОЙ ДВЕРИ. ОНА ДОБРОСОВЕСТНО ПРОВЕРЯЛА ОДНУ ДВЕРЬ ЗА ДРУГОЙ, И ТУТ-ТО ОНА ВПЕРВЫЕ ЗАМЕТИЛА ШТОРУ, СПУСКАВШУЮСЯ ДО САМОГО ПОЛА, А ЗА НЕЙ.
Это отрывок из "Алисы в Стране Чудес" Льюиса Кэрролла.