Строки в Pascal

Комментарии

Помогите написать код

дана последовательность содержащая от 1 до 30 слов в каждом из которых от 2 до 10 латинский букв. Между соседним словами пробел за последним точка. Напечатать все слова, предварительно преобразовав каждое По следующему правилу: если слово нечетной длинные то удалить среднюю букву

Помогите решить 3 задачи

1. Определить, верно ли, что первый, средний и последний символы строки совпадают. Cчитать, что в строке нечётное число символов.
2.2. Заменить все символы второй половины строки на цифры 8. Считать, что в строке чётное число символов.
3. Подсчитать общее количество нечетных цифр в символьной строке.

СТРОКИ В ПАСКАЛЕ

Дана последовательность символов. Подсчитать кол-во вхождения символа введённого с клавиатуры

операторы цикла

Распечатать числа от i до N,у которых количество делителей не менее 3(не равных числу).Решить задачу нужно через оператор while

Помогите пожалуйста

Составить программу,которая удаляет все символы "и" в произвольном тексте ,введённом с клавиатуры.

Помогите пожалуйста

Дана строка перевернуть её до середины

Обработка символов. Очень нужна помощь - не могу разобраться

Задача:
В одной строке экрана вводится последовательность цифровых символов ( тип char ). Ввод завершаемся символом "!". Определить все экстремумы этой последовательности цифровых символов. Вывести найденные значения экстремумов. МАССИВОВ НЕ ИСПОЛЬЗОВАТЬ

помогите, пожалуйста

В ведённой строке удвойте вхождение каждой буквы, кроме буквы “б”.

Heeelp

Дана задача. Найти слова длинее 9 букв и вывести в файл ети слова.

Помогите решить пожалуйста.

Помогите решить пожалуйста.
Нужно составить программу,которая меняет два введённых слова местами и при необходимости вставляет между ними запятую.

Помогите

найдите программу, которая в данной строке находит все буквы а и заменяет каждую из них на последний символ строки

найдите программу, которая в данной строке находит все буквы а и

найдите программу, которая в данной строке находит все буквы а и заменяет каждую из них на последний символ строки

Помогите пожалуйста

Нужно написать программу которая вводит текст содержащий знаки $ и выводит строку без них

Плииииз помогите

Дана строка S, состоящая из латинских букв и пробелов. определить количество слов в данной строке.(словом считается любая последовательность максимальной длины, состоящая из латинских букв и не содержащая пробелов)

Помогите решить задачу на строки

Написать программу сравнения двух строк. Программа читает строки из файла и сравнивает нечетные и четные строки, которые следуют друг за другом.

Помогите

Состав те программу, которая определит количество символов "b" В заданной строке.

Вот ваша программа

var
  str: string[30];
  x: char;
  i, k: integer;
 
begin
  k := 0;
  x := 'b ';
  readln(str);
  for i := 1 to length(str) do
  begin
    if str[i] = x then k := k + 1;
  end;
  writeln(k);
end.

ПОМОГИТЕ

1. Дана символьная строка. Вывести на экран 3 любых символа из этой строки.
2. Дана символьная строка. Удалить из этой строки все буквы a.

ПОМОГИТЕ РЕБЯТА КТО МОЖЕТ в pascal

Написать программу, которая удлиняет все встреченные буквы «и» во введенной фразе на величину, равную количеству найденных «и» на данных момент.

в

var a,x:string; 
    i,dl:integer;
begin
read(a);
dl:=length(a);
for i:=1 to dl do begin
if a[i]='и' then x:=x+'и';
if a[i]='и' then write(a[i]+x) else write(a[i]);
end;
end.

тама ях гавум

Составить символьную сторку из N свездечек

Держи

var
  n:integer;
  s:string;
begin
readln(n);
s:='*'*n;
writeln(s);
end.

Помогите решить задачу пожалуйста

Вам даны все целые цисла от 1 до N+1, кроме одного. Наидите отсутсвующее число

Вам даны две строки s и t, определите длину наибольшей строки, к

Вам даны две строки s и t, определите длину наибольшей строки, которая встречается в обеих.

Вам даны две строки s и t, определите... ПОМОГИТЕ!!!

Вам даны две строки s и t, определите длину наибольшей строки, которая встречается в обеих
Формат входа данных:
первая строка входных данных содержит строку s, вторая строка содержит строку t. Обе строки состоят только из строчных латинских букв 1<=длина строк<=1.000

Строки, ПОМОГИТЕ ПОЖАЛУЙСТА

Дана строка
символов T. Напишите программу,
которая добавит перед и после каждой гласной буквой строки – букву
‘p’.

Pascal

var
  i:integer;
  T:string;
begin
readln(T);
for i:=1 to length(s) do
write('p',s[i],'p ');
end.

помогите

Вводится текст. Напечатать все символы в порядке их следования в
строке, которые встречаются в ней по 1 разу. Напечатать также
символы, встречающиеся в строке не менее 2 раз.+коментарии

Помогите,пожалуйста,очень нужно.

Дана строка произвольной длины, необходимо заполнить одномерный массив числами содержащимися в строке. Количество заполненных элементов массива должно быть равно количеству чисел в строке.

помогите, пожалуйста, решить задачу.

Учитывая текст: Экспортировать все слова, оставив только первую букву каждого слова в записи

строки ....помогите, пожалуйста, решить задачу...паскаль

Все слова в тексте выходе, оставляя только первую букву каждого слова в записи

Ребяят, помогите!

Есть строка (любая), нужно удалить из этой строки знаки /и \

Ответ

program stroki;
var
  s: string;
  i: byte;
begin
  write('введите строку: '); read(s);
  writeln;
  i := 1;
  while i <= length(s) do
   begin
   if (s[i] in ['/','\']) then
    begin
    delete(s, i, 1);
    i := i - 1;
    end;
   inc(i);
   end;
  writeln(s);
  writeln(); 
  writeln(); 
end. 

отсортировать слова по их длине

Дана строка, состоящая из слов. Преобразовать строку таким образом, чтобы слова были упорядочены по возрастанию своей длины. В программе необходимо использовать процедуры.

ПОМОГИТЕ,ПОЖАЛУЙСТА,РЕБЯТА!НЕ ПРОХОДИТЕ МИМО.

1)Составит программу возводящую отрицательные числа в квадрат и вычисляющую квадратный корень из положительного числа.
2)Написать программу ввода с клавиатуры двух чисел и вывода на экран меньших из них.
3)Вычисляет 3 числа,выводите их произведение если первое больше второго и разность в противном случае.
4)Введите 3 числа,вычислите,делится ли на их суммы на 5 цело?
5)Ввели 4 числа найдите наибольшие из них.

помогите, пожалуйста, решить задачу...паскаль

Составьте программу которая в слове «класс» две одинаковые буквы обозначались цифрой «1»

s:string='класс';beginfor

s:string='класс';
begin
for i:=1 to length(s) do
if(s[i]='с')s[i]='1';
end.

Дан текст.

Дан текст. Составьте программу нахождения количества точек в этом тексте.

Ответ

if s[i]='.' then c:=c+1;

с клавиатуры вводится строка

с клавиатуры вводится строка s и шаблон temp, удвойте каждое вхождение шаблона в строку. например s ='qweasdzxc123asd', а temp= 'asd'. должно получиться 'qweasdasdzxc123asdasd'.

помогите плиз)

Составьте программу, которая по заданному периметру подсчитывает и сообщает число разных (неравных) треугольников с периметром p, стороны которых целые числа.

помогите плиз

На листе в клетку (клетки - квадраты) закрасили несколько клеток и получили
клетчатую фигуру. Она имеет размеры n (n≤100) по вертикали и k (k≤100) по
горизонтали. Сама фигура описывается n строками, содержащими по k символов 1 и 0 в
каждой строке (1 - закрашено и 0 - не закрашено).
Необходимо определить, сколько осей симметрии имеет эта фигура.

помогите пожалуйста.

Последовательность строк строится по следующему правилу: S(1)=”A”, S(2)=”B”,
S(k)=S(k-1)+S(k-2), если k≥3 (последовательность Фибоначчи). Необходимо определить
число подстрок ”AB” встречающихся в строке с номером n.

Ввести с клавиатуры строку.

Ввести с клавиатуры строку. Найти в ней все непрерывные последовательности цифр и заменить каждую на "NUM".

Ребята, умоляю, помогите!

Ребята, умоляю, помогите!
Определите, совпадают ли последние буквы трех слов PascalABC

Наследование

Определить класс, описывающий круг. Определить производный класс с методами для рисования круга на плоскости (на плоскости также нарисовать координатные оси, выбрать масштаб, подписать деления осей).

Вот код:

program Lab_7;
  uses crt, graphABC, pointRect;
  type circle=class
       R: real;
       constructor vvod;
       procedure vivod;
       private
         function area: real;
         function perim: real;
  end;
 
  constructor circle.vvod;
  begin
    write('Введите радиус окружности=');readln(R);
  end;
 
  function circle.area: real;
  begin
    area:=pi*R*R;
  end;
 
  function circle.perim: real;
  begin
    perim:=2*pi*R;
  end;
 
  procedure circle.vivod;
  var s, p: real;
  begin
    s:=area;
    p:=perim;
    writeln('S=', s:0:3, ', ', 'P=', p:0:3);
  end;
 
  type PicCircle=class(circle)
       x0, y0: real;
       xr, yr: array[1..5] of real;
       procedure vvod2;
       procedure define;
       procedure figure;
       procedure net;
  end;
 
  procedure PicCircle.vvod2;
  begin
    write('x0='); readln(x0);
    write('y0='); readln(y0);
  end;
 
  procedure PicCircle.define;
  begin
    xr[1]:=x0; yr[1]:=y0;
  end;
 
  procedure PicCircle.figure;
  var P: array[1..5] of Point;
      i: integer;
  begin
    for i:=1 to 1 do begin
      P[i].x:=360+round(50*xr[i]);
      P[i].y:=310-round(50*yr[i]);
    end;
    Polygon(p, 1);
    FloodFill(360+round(50*(R*0.6+x0)), 310-round(50*(R*0.1+y0)), RGB(0, 215, 0));
  end;
 
  procedure PicCircle.net;
  var i: integer; s: string;
  begin
    SetWindowHeight(620);
    SetwindowWidth(720);
    Line(10, 310, 910, 310);
    Line(360, 10, 360, 610);
    for i:=-6 to 6 do
      Line(360+50*i, 315, 360+50*i, 305);
    for i:=-6 to 6 do
      if i<>0 then begin
        str(i, s); TextOut(355+50*i, 320, s);
      end;
    for i:=-5 to 5 do
      Line(355, 310+50*i, 365, 310+50*i);
    for i:=-5 to 5 do
      if i<>0 then begin
        str(i, s); TextOut(370, 302-50*i, s);
      end;
    SetFontSize(14);
    TextOut(365, 315, '0');
    TextOut(365, 12, 'y');
    TextOut(695, 312, 'x');
  end;
 
  var t: PicCircle;
 
  begin
    clrscr;
    t:=PicCircle.vvod;
    t.vivod;
    t.vvod2;
    ClearWindow(RGB(255, 255, 255));
    t.define;
    t.figure;
    t.net;
  end.

Что здесь неправильно?) Заранее спасибо)

HELP ME....

Даны две строки s1 и s2. Пусть w – первое из слов строки s1, которое есть и в строке s2. Найти слово, предшествующее первому вхождению w в s1.

Задача

Дано натуральное число определите сколько раз в нем встречается максимальная цифра ( пример 233 133 ответ 4 , 122511 ответ 1 ) Lazarus

программа подсчитывающая количество цифр в заданной строке

программа подсчитывающая количество цифр в заданной строке

Вот, держи)

var
  s: string;
  k, i: integer;
  b: set of char := ['0'..'9'];
 
begin
  write('Строка: ');readln(s);
  for i := 1 to length(s) do
    if (s[i] in b) then inc(k);
 
  write('Кол-во цифр: ', k);
 
end.