Во Укажите основную позицию пальцев на клавиатуре. , a) ФЫВА - ОЛДЖ , b) АБВГ - ДЕЁЖ , c) ОЛДЖ – ФЫВА , , Во Информация о местоположении курсора указывается: , Иван набирал текст на компьютере. Вдруг все буквы у него стали вводиться прописными. Что произошло? , , a) сломался компьютер , b) произошёл сбой в текстовом редакторе , c) случайно была нажата клавиша CapsLock , d) случайно была нажата клавиша NumLock , , Во В каком из перечисленных ниже предложений правильно расставлены пробелы между словами и знаками препинания? , a) Пора, что железо:куй, поколе кипит! , b) Пора, что железо: куй, поколе кипит! , c) Пора, что железо: куй , поколе кипит! , d) Пора , что железо : куй , поколе кипит ! , , Во Таня набирает на компьютере очень длинное предложение. Курсор уже приблизился к концу строки, а девочка должна ввести ещё несколько слов. Что следует предпринять Тане для того, чтобы продолжить ввод предложения на следующей строке? , a) нажать клавишу Enter , b) перевести курсор в начало следующей строки с курсорных стрелок , c) продолжить набор текста, не обращая внимания на конец строки, - на новую строку курсор перейдёт автоматически , d) перевести курсор в начало следующей строки с мыши , , Во Какой из представленных ниже форматов не относится к форматам файлов, в которых сохраняют текстовые документы? , a) TXT , b) DOC , c) ODT , d) RTF , e) PPT , , Во Редактирование текста представляет собой: , a) процесс внесения изменений в имеющийся текст , b) процедуру сохранения текста на диске в виде текстового файла , c) процесс передачи текстовой информации по компьютерной сети , d) процедуру считывания с внешнего запоминающего устройства ранее созданного текста , , Во Положение курсора в слове с ошибкой отмечено чёрточкой: МО| АНИТОР , Чтобы исправить ошибку, следует нажать клавишу: , a) Delete , b) Backspace , c) Delete или Backspace , , Во Фрагмент текста - это: , a) слово , b) предложение , c) непрерывная часть текста , d) абзац , , Во Сколько слов будет найдено в процессе автоматического поиска в предложении: "Далеко за отмелью, в ельнике, раздавалась птичья трель", если в качестве образца задать слово "ель"? , a) 0 , b) 1 , c) 2 , d) 3 , , Во Считая, что каждый символ кодируется одним байтом, определите, чему равен информационный объём следующего высказывания Жан-Жака Руссо: , Тысячи путей ведут к заблуждению, к истине - только один. , a) 92 бита , b) 220 битов , c) 456 битов , d) 512 битов
begin
F := 3 * sin(x) + 2 * sqr(x) - 1;
end;
var
a, b, h, x, Fa, Fx: real;
begin
Write('Введите через пробел начало интервала, конец и шаг: ');
Readln(a, b, h);
x := a; Fa := F(a);
repeat
Fx := F(x);
if Fx = 0 then Writeln('Найден корень ', x:0:3)
else
if Fx * Fa < 0 then
Writeln('Найден интервал изоляции корня (', a:0:3, ';', x:0:3, ')');
a := x; Fa := Fx; x := x + h
until x > b;
end.
Тестовое решение:
Введите через пробел начало интервала, конец и шаг: 0 1.95 0.15
Найден интервал изоляции корня (0.150;0.300)
Введите через пробел начало интервала, конец и шаг: -5 5 0.1
Найден интервал изоляции корня (-1.500;-1.400)
Найден интервал изоляции корня (0.200;0.300)
Насколько я помню, в паскале невозможно реализовать бесконечный цикл, поэтому решение будет слегка притянуто за уши. Например если вы введете число из 9001 символа, программа будет работать неккоректно. Для выхода из цикла используется 'метка'.
a, counter, Summa : integer;
Label Transfer;
Begin
writeln('Введите число');
readln(a);
counter := 1;
counterTw0 := counterTwo + 1;
while counter < 9000 Do
begin
counter := counter +1;
if (a div counter) < 0 then Transfer
else counterTwo := counterTwo + 1;
else;
Goto Transfer;
//Узнали, что в числе counterTwo символов
while counter < counterTwo Do
Summa := Summa + ((a div counter) mod 10);
Summa := Summa + (a mod 10);
writeln(Summa);
end.