Информатика. запишите примеры по подобию. +фото

Объяснение:

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.        

//Pascal ABC.NET 3.1 сборка 1256

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:
На на на на на на на на на на на на на на на на на на н.