Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Решение задач с использованием типизированных файлов https://www.cyberforum.ru/ pascalabc/ thread2468087.html
В файле f записан массив действительных чисел. Найти наименьшее из этих чисел.
Pascal ABC Решение задач с использованием текстовых файлов
Написать программу, запрашивающую у пользователя строку и помещающую все слова, начинающиеся на заданную букву, в файл на диске.
Pascal ABC Решение задач с использованием рекурсивных функций очень нужна ваша помощь Дано вещественное число X и целое число N > 0. Написать функцию для вычисления суммы Σ = 1 + x + x2/2! + ... + xN/N! (N! = 1•2•...•N). Полученное число является приближенным значением экспоненты в точке X. https://www.cyberforum.ru/ pascalabc/ thread2468074.html Pascal ABC Решение задач с использованием процедур Написать процедуру рисования фигуры из звездочек: ******** *** *** ** ** * * * * ** ** *** *** ******** https://www.cyberforum.ru/ pascalabc/ thread2468072.html
Pascal ABC Построить страфоиду
Помогите построить СТРАФОИД
Pascal ABC Перевод из градусов Oshibka dayet, можем вместе исправить государи type Angle=record gradusy,minute:integer; Procedure Init(g,m:integer); begin if (gradusy<0) xor ((minute<0) or (minute>60)) then begin https://www.cyberforum.ru/ pascalabc/ thread2467914.html
Pascal ABC Программирование алгоритмов итерационной циклической структуры Здравствуйте! Мне очень нужна ваша помощь! У меня завтра консультация к экзамену и я не успеваю не могу разобраться Напишите пожалуйста программу итерационных циклов: 1+x^2/2!+x^4/4!+...+x^2n/(2n)!+... при x=0.70, точность e=0.0001, точное значение = chx https://www.cyberforum.ru/ pascalabc/ thread2467894.html Pascal ABC Дан файл целых чисел а.дат. Заменить нулем те элементы файла, которые равны предыдущему
Всем привет)) помогите написать программу на паскаль с заполнением файла Дан файл целых числен a.dat.Заменить нулем те элементы файла, которые равны предыдущему. Нашла на форуме такое же задание, но преподаватель сказал, что так не пойдет и файл не заполняется, помогите пожалуйста, никак не могу разобраться(( вот текст программы, который тут уже есть, помогите исправить program abc; var...
Pascal ABC Лабиринт для матрицы соединений Дана матрица соединений для лабиринта из n комнат и номера комнат i,j (1<=i<=n,1<=j<=n) Построить путь из комнаты i в комнату j. Заранее спасибо. https://www.cyberforum.ru/ pascalabc/ thread2467630.html Pascal ABC Линейные списки. Добавление элементов в список https://www.cyberforum.ru/ pascalabc/ thread2467609.html
Используя линейные списки для хранения последовательности чисел описать процедуру для решения задачи: вставить в список L за первым вхождением элемента E все элементы списка L1, если E входит в L. Заранее спасибо
Pascal ABC Проблема с константами
Добрый день! Помогите пожалуйста разобраться, ругается на константу Tab, пишет что ожидался константный инициализатор массива. Перепробовала разные вариант, ничего не принимает. В чем дело? Может что-то упустила и не обратила внимания? Заранее благодарю за помощь! ниже привожу проблемный кусок кода program StegoChange; type StringType = string ; Index = (Rus, Lat); ...
Pascal ABC Дано целое число K. Выбросить из записи K цифру,обозначающую сотни Дано целое число K. выбросить из записи K цифру,обозначающую сотни. ПОМОГИТЕ ОЧЕНЬ СРОЧНО!!! https://www.cyberforum.ru/ pascalabc/ thread2467544.html
2373 / 775 / 561
Регистрация: 15.01.2019
Сообщений: 2,394
08.06.2019, 18:32 0

Из заданного предложения выбрать и напечатать только те символы, которые встречаются в нем только 1 раз - Pascal ABC - Ответ 13639743

08.06.2019, 18:32. Показов 2144. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено anzhela97 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program Project1;
var
  str1: string; //  Переменная для хранения исходной строки.
  str2: string; //  переменная для хранения вычисляемой строки.
  str3: string; // Промежуточная переменная для операций над строками.
  i,j,k,g: integer;   // Вспомогательные переменные для организации циклов.
  ind: integer;       // Вспомогательная переменная для хранения индекса повторяящегося символа.
begin
  str3:='';
  Writeln('Введите строку:');
  Readln(str1);
  str2:= str1;   // Копирование информации из исходной строки в конечную.
  for i:= 1 to length(str1) do   // Цикл для перебора всех символов в строке.
   begin
   k:= 0;
   for j:= i to length(str1) do
     begin
        if (copy(str1,j,1) = copy(str1,i,1)) then  // Условие сравнения символов.
            inc(k);   // Подсчет случаев совпадения.
        if k > 1 then   // Если случаев совпадения больше одного, то ...
          begin
            str3:= copy(str1,i,1); // ... распознается что это за символ
            for g:= 1 to length(str2) do   // ... для всех символов в конечной строке
              begin
                ind:= pos(str3,str2);     // ... узнается индекс найденного символа
                delete(str2,ind,1);        // ... символ удаляется согласно найденному индексу.
              end;
          end;
     end;
 
   end;
  Writeln;
  Writeln('Строка без повторяющихся символов:');
  Writeln(Str2);  // Вычисленная строка выводится на экран.
  Readln;
end.
Добавлено через 12 минут
Забыл написать код про вывод предупреждения о повторяющихся символах.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
program Project1;
var
  str1: string; //  Переменная для хранения исходной строки.
  str2: string; //  переменная для хранения вычисляемой строки.
  str3: string; // Промежуточная переменная для операций над строками.
  i,j,k,g: integer;   // Вспомогательные переменные для организации циклов.
  ind: integer;       // Вспомогательная переменная для хранения индекса повторяющегося символа.
  reg: boolean;      // Переменная для регистрации события, повторяющихся символов.
begin
  str3:='';
  reg:= false;
  Writeln('Введите строку:');
  Readln(str1);
  str2:= str1;   // Копирование информации из исходной строки в конечную.
  for i:= 1 to length(str1) do   // Цикл для перебора всех символов в строке.
   begin
   k:= 0;
   for j:= i to length(str1) do
     begin
        if (copy(str1,j,1) = copy(str1,i,1)) then  // Условие сравнения символов.
            inc(k);   // Подсчет случаев совпадения.
        if k > 1 then   // Если случаев совпадения больше одного, то ...
          begin
            str3:= copy(str1,i,1); // ... распознается что это за символ
            for g:= 1 to length(str2) do   // ... для всех символов в конечной строке
              begin
                ind:= pos(str3,str2);     // ... узнается индекс найденного символа
                delete(str2,ind,1);        // ... символ удаляется согласно найденному индексу.
              end;
            reg:= true;
          end;
     end;
 
   end;
  Writeln;
  if reg then  // Проверка на событие повторяющихся символов.
    begin
     Writeln('Строка без повторяющихся символов:');
     Writeln(Str2);  // Вычисленная строка выводится на экран.
    end
  else
     Writeln('Повторяющихся символов в данной строке нет.');
  Readln;
end.


Вернуться к обсуждению:
Из заданного предложения выбрать и напечатать только те символы, которые встречаются в нем только 1 раз Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.06.2019, 18:32
Готовые ответы и решения:

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

Выбрать и напечатать только те символы что встречаются в тексте один раз
Из заданного текста предложения выбрать и напечатать только те символы что встречаются в нем только...

Выбрать из файла только те символы, которые встречаются в нём один раз
Задание: Дан файл,содержащий текст на русском языке,выбрать из него только те символы, которые...

Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз
Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз, в том...

1
08.06.2019, 18:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.06.2019, 18:32
Помогаю со студенческими работами здесь

Из заданной символьной строки выбрать те символы, которые встречаются в ней только один раз
Из заданной символьной строки выбрать те символы ,которык встречаются в ней только один раз,в том...

Вывести только те символы, которые встречаются в тексте только один раз
Из заданного текста предложения выберите и выведите на экран только те символы, которые встречаются...

Напечатать слова, которые встречаются в предложениях только 1 раз
Ребята! Такая задача - Даны 2 предложения.Напечатать слова, которые встречаются в предложениях...

Вывести на экран те символы, которые встречаются в строке только один раз
Для заданной символьной строки вывести на экран те символы, которые встречаются в ней только один...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru