Объяснение:
program functionx;
// в константах задаем интервал функций, в пределах которого будем вычислять их значения
const
LoX = -10;
HiX = 10;
var
// указываем типы переменных с которыми будем работать:
// Х - целое число с шагом 1 из вышеопределенного интервала
// fx результат расчета функции пока не знаем, поэтому он не целый
x : integer;
fx : real;
begin
// в цикле последовательно перебираем значения Х из заданного интервала от LoX до HiX
for x:= LoX to HiX do begin
// здесь выбираем два варианта расчета функции:
// если (if) Х > 3, то (then) подставляем Х в одну функцию,
// в остальных случаях (else) - в другую
if x > (-3)
then fx := ln(x+3)/(x*x+9)
else fx := (-x)*(-x)-1.1*x+9;
// выводим на экран, сначала Х, затем значение f(x)
writeln ('x = ',x,', f(x) = ',fx : 10:5);
end;
end.
Free Pascal Compiler version 2.6.2-8 [2014/01/22] for x86_64
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Linux for x86-64
Compiling main.pas
Linking a.out
19 lines compiled, 0.1 sec
/usr/bin/ld.bfd: warning: link.res contains output sections; did you forget -T?
x = -10, f(x) = 120.00000
x = -9, f(x) = 99.90000
x = -8, f(x) = 81.80000
x = -7, f(x) = 65.70000
x = -6, f(x) = 51.60000
x = -5, f(x) = 39.50000
x = -4, f(x) = 29.40000
x = -3, f(x) = 21.30000
x = -2, f(x) = 0.00000
x = -1, f(x) = 0.06931
x = 0, f(x) = 0.12207
x = 1, f(x) = 0.13863
x = 2, f(x) = 0.12380
x = 3, f(x) = 0.09954
x = 4, f(x) = 0.07784
x = 5, f(x) = 0.06116
x = 6, f(x) = 0.04883
x = 7, f(x) = 0.03970
x = 8, f(x) = 0.03285
x = 9, f(x) = 0.02761
x = 10, f(x) = 0.02353
...Program finished with exit code 0
Press ENTER to exit console.
Поделитесь своими знаниями, ответьте на вопрос:
ХЕлпаните Коды языка HTML, с которых выполняется разметка исходного текста, называются: А) операторами В) служебными словами С) тегами Д) ASCII-кодами 2. Документ, содержащий ссылки на другие документы, называется: А) HTML В) Web-сайт С) гипертекст Д) гиперссылка 3. Основной объект обработки MS Internet Explorer - … А) электронные сообщения В) файлы с расширением rtf С) ресурсы сети Интернет Д) гиперссылка 4. Виртуальной реальностью называют: А) всю совокупность систем компьютерной коммуникации В) создаваемые с компьютерной технологии образы объектов и процессов разной природы С) совокупность всех гипертекстовых документов, хранящихся на www-серверах Д) то, чего не может быть 5. Локальная вычислительная сеть – это … А) совокупность ПК, соединенных между собой для совместного использования ресурсов В) вид электросвязи для передачи звука на расстоянии С) совокупность ПК, соединенных между собой кабелями для общения на удаленном расстоянии Д) совокупность прямых соединений между компьютерами 6. Какого списка в Word не существует? А) многоуровневого В) маркированного С) нумерованного Д) табличного 7. Запуск текстового процессора Word осуществляется командой: А) Мой компьютер – MS Word В) Мои документы – MS Word С) Пуск – Выполнить – MS Word Д) Пуск – Все программы – MS Office – MS Word 8. В классификацию ПО не входит: А) системное В) прикладное С) визуальное Д) системы программирования 9. Процесс перезаписи частей файлов в соседние сектора диска для ускорения доступа и загрузки – это … А) создание раздела В) дефрагментация С) проверка диска Д) форматирование 10. Вирус – это … А) специальное устройство В) одно из средств защиты информации С) программа для нанесения вреда Д) сжатая папка 11. Аналогом линейной мультимедиа является: А) лазерное шоу В) компьютерная игра С) компьютерный тренажер Д) интерактивная презентация 12. К числу аппаратных мультимедиа средств не относится: А) микрофон В) Web – камера С) интерактивная доска Д) клавиатура 13. Программы для выполнения вс операций обработки данных или обслуживания ПК называются: А) утилиты В) операционные оболочки С) операционная система Д) системы программирования 14. Безопасный режим загрузки ОС используется: А) с установочного диска В) с минимальным набором настроек и драйверов С) в случае сбоя после установки нового драйвера Д) для создания «точки восстановления» 15. Укажите системную программу А) Windows XP В) Windows Media Player С) WordPad Д) тестирующая программа
Var
s,s1:string;
begin
readln(s);
if (s[1]='в') and (s[2]=' ') then
begin
delete(s,1,1);
s:='на'+s;
end;
if (s[1]='В') and (s[2]=' ') then
begin
delete(s,1,1);
s:='На'+s;
end;
while pos(' в ',s)<>0 do
begin
if (s[1]='в') and (s[2]=' ') then
begin
delete(s,1,1);
s:='на'+s;
end;if (s[1]='В') and (s[2]=' ') then
begin
delete(s,1,1);
s:='На'+s;
end;
s1:=s1+copy(s,1,pos(' в ',s)-1)+' на ';
delete(s,1,pos(' в ',s)+2);
end;
if (s[1]='в') and (s[2]=' ') then
begin
delete(s,1,1);
s:='на'+s;
end;
if (s[1]='В') and (s[2]=' ') then
begin
delete(s,1,1);
s:='На'+s;
end;
s:=s1+s;
writeln(s);
end.
Пример ввода 1:
запасти в зиму, приехать в год, приготовить в день, выпить лекарство в ночь
Пример вывода 1:
запасти на зиму, приехать на год, приготовить на день, выпить лекарство на ночь
Пример ввода 2(глубокие песни современной отечественной эстрады):
В в в в в в в в в в в в в в в в в в н.
Пример вывода 2:
На на на на на на на на на на на на на на на на на на н.