Оцените возможности создания оглавления в текстовах редакторе. Насколько сложно создать, обновить или удалить оглавление? (Обмен мнениями).

👇

Увидеть ответ

Ответ:

kitikdasa33

23.09.2022

ответ: ну вобщето создание оглавлений очень лёгк

4,4(19 оценок)

Открыть все ответы

Ответ:

01Таня10

23.09.2022

Это код консольного приложения

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils, Windows;

function storona(x1,y1,x2,y2: real): real;
var s: real;
begin
s:=sqrt(sqr(x1-x2)+sqr(y1-y2));
storona:=s;
end;

var
x1,y1,x2,y2,x3,y3: real;
l1,l2,l3: real;
begin
//Переключение окна консоли на кодовую страницу CP1251 (Win-1251).
//Если после переключения русские буквы показываются неверно,
//следует открыть системное меню консольного окна - щелчком мыши в левом
//верхнем углу окна консоли и выбрать:
//Свойства - закладка "Шрифт" - выбрать шрифт: "Lucida Console".
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
write('Введите координаты точки А: ');
readln(x1,y1);
write('Введите координаты точки B: ');
readln(x2,y2);
write('Введите координаты точки C: ');
readln(x3,y3);
l1:=storona(x1,y1,x2,y2);
l2:=storona(x2,y2,x3,y3);
l3:=storona(x1,y1,x3,y3);
if (l1>l2)and(l1>l3) then
begin
    writeln('Периметр прямоугольника = ',(l2+l3)*2:6:2);
    writeln('Площадь прямоугольника = ',l2*l3:6:2)
end;
    if (l2>l1)and(l2>l3) then
begin
    writeln('Периметр прямоугольника = ',(l1+l3)*2:6:2);
    writeln('Площадь прямоугольника = ',l1*l3:6:2)
end;
    if (l3>l1)and(l3>l2) then
begin
    writeln('Периметр прямоугольника = ',(l1+l2)*2:6:2);
    writeln('Площадь прямоугольника = ',l1*l2:6:2)
end;
readln;
end.

4,4(76 оценок)

Ответ:

nutka1980

23.09.2022

Для подсчёта слов в предложении, вот код:

program Slova;
var
s: string;
r,i:integer;
begin
writeln('Введите ваше предложение');
readln(s);
s:=s+' ';
for i:=1 to length(s)-1 do
if (s<>' ') and (s[i+1]=' ') then
r:=r+1;
writeln('В предложении ',r, ' слов. ');
readln;
end.

Какая буква встречается чаще

Program Bykv;
Var s:String;
    i,k1,k2:byte;
Begin
    write('Введите строку: ');readln(s);
    For i:=2 to Length(s)-1 do
     if s[i]=s[1] then inc(k1)
      else if s[i]=s[Length(s)] then inc(k2);
    writeln('Первая буква встречается ',k1);
    writeln('Последняя буква встречается ',k2);
    writeln('Вывод:');
    if k1>k2 then writeln('Первая буква встречается чаще')
     else if k1<k2 then
     writeln('Последняя буква чаще')
      else writeln('Одинаково');
    readln;
End.

Изменить слово петя на иван в строке

program test;
var s,t,z,p:string;j:integer;
begin
writeln('Введите ваше предложение');
readln(s);
write('Введите слово которое хотите заменить: ');
readln(t);
write('Введите замену слову: ', t, ' <> ');
readln(z);
if pos(t,s)<>0 then
j:=pos(t,s);
p:=copy(s,1,j-1);
p:=p+z;
p:=p+copy(s,j+length(t),length(s));
writeln(p);
readln;
end.

4,4(94 оценок)

Это интересно:

Кулинария-и-гостеприимство

21.10.2022

Лучший способ приготовления традиционных макарон с сыром...

Стиль-и-уход-за-собой

05.07.2020

Хна для волос: как правильно сочетать и наносить?...

Здоровье

25.04.2020

Как вывести токсины из легких с помощью натуральных средств...

Стиль-и-уход-за-собой