Книга ексель состоит из листов. на лист 1 находиться таблица с расчетами. на лист 2 необходимо отобразить эту же таблицу только в режиме формул. как включить режим формул в ексель 2007.
Var a,b,h,x,y:real; begin writeln('Введите начальное значение, шаг, конечное значение'); readln(a,h,b); x:=a; while x<=b do begin y:=0.5/tan(x/4)+4; writeln(x:7:3,y:10:5); x:=x+h end end.
function GetWord(s: string): string; // Возвращает очередное слово из строки s или пустое значение, // если в строке больше нет слов. // Перед вызовом позиция начала слова указывается переменной ptr. // Перед выходом ptr устаналивается на границу следующего слова // ptr=0 означает, что вся строка просмотрена. var n, p: integer; begin n := Length(s); if (ptr >= n) or (ptr=0) then begin ptr := 0; Result := '' end else begin p := PosEx(' ', s, ptr); if p > 0 then begin Result := Copy(s, ptr, p - ptr); ptr := p + 1 end else begin Result := Copy(s, ptr, n - ptr + 1); ptr := 0 end end end;
var s1, s2, s: string; n: integer;
begin writeln('Вводите строку'); readln(s1); ptr := 1; s2 := ''; repeat s := GetWord(s1); n := Length(s); if n > 0 then if (s[1] <> 'о') or (s[n] <> 'о') then s2 := s2 + s + ' ' until n = 0; n := Length(s2); if s2[n] = ' ' then s2 := Copy(s2, 1, n - 1); writeln('Результирующая строка: ', s2) end.
Тестовый прогон:
Вводите строку В это окно отлично виден и прекрасный горный ландшафт, и одинокое облако, зацепившееся за покрытую снегом вершину. Результирующая строка: В это виден и прекрасный горный ландшафт, и одинокое облако, зацепившееся за покрытую снегом вершину.
` - русская буква "Ё" на клавиатуре; расположена она в левом углу, под кнопкой ESC