Ответ:
Блок схема
Объяснение:
В прямоугольной области описывается действие, в параллелограмме ввод или вывод.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
function CalcWord(Stroka: string):integer;
begin
Result:=Stroka.ToWords.Where(w->w=w.Inverse).Count
end;
begin
var s:='казак пошел в кабак и сделал заказ';
Writeln('Слов-палиндромов: ',CalcWord(s))
end.
<u>Результат</u>
Слов-палиндромов: 5
<u>Если однобуквенные слова не учитываются</u>, надо изменить Where:
Where(w->(w=w.Inverse) and (w.Length>1))
13 мб = 13631488 байт
128 мб = 0,13 гб
0,12 мб = 1006632,96 бит
0,01 гб = 10485,76 кб
<span>40960</span> бит = 5 кб
<span>1.
Текст вводится
после двойного щелчка по ячейке. Можно ввести текст и в строке формул. Перенести
ввод текста на другую строку оновременно оставаясь в этой же ячейке
можно одновременно нажав две клавиши Alt+Enter.
Ячейку можно отформатировать через формат ячейки.</span>
2. В числовом и экспотенциальном. Числовое позволяет
определить количество разрядов после запятой, экспотенциальное представляет
число в стандартном виде. При вводе в экспотенциальном виде достаточно ввести
мантису и после ввода «е» ввести степень числа.
3. Запись формулы в ячейку всегда начинается с знака = . Если
этого не сделать, то символы формул воспринимаются как текст.
4. Можно перенести формат образца на необходимое место.
5.
X+Y/Z
(X+Y)/3
(X/(Y+3))·Z·(K/N)·M·Q
X·Y/(Z·K)
X·Y/(Z·K)
X^2-Y^5Q
X+(Y·5)^3+X^3·Y
<span>
</span>
Программы в приложении. Код Второго задания (справа на доске) сделал в одной программе с выбором номера задания. Объем получился большой, но для примера в самый раз.
1-й по счету PAS файл в приложении - N1
2-й по счету PAS файл в приложении - N2
3-й по счету PAS файл в приложении - N3_5 - Содержит в себе все второе задание из 5 примеров
program N1;
var x: real;
function y(x: real): real;
begin
if x > 0 then y := sqrt(x * x * x)
else if x < 0 then y := x
else
y := 2 + x;
end;
begin
Write('Введите x: ');
Readln(x);
Writeln('Ответ: y(', x, ')=', y(x):2:2);
end.
program N2;
var x1, x2: real;
function y(x1, x2: real): real;
begin if x1 >= x2 then y := sqrt(x1 + x2)
else y := x1 * x2;
end;
begin
Write('Введите x1: ');
Readln(x1);
Write('Введите x2: ');
Readln(x2);
Writeln('Ответ: y(', x1, ',', x2, ')=', y(x1, x2):2:2);
end.
