Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Добавьте, пожайлуйста, перевод буквы "э" и "ю" в программу https://www.cyberforum.ru/ pascal/ thread1131871.html Программа переводит текст с рус на англ и наоборот (именно символы). нехватает букв э и ю. Так как э=' а ю=. Помогите внести!!! program sdr; Uses CRT; var x,g,s,w,z,f,u,e:string;...	Из сгенерированного с помощью random массива сформировать новый массив Pascal Сформировать одномерный массив т(34) значения элементов которого располагаются произвольным образом в диапазоне от 4 до 9 и округлены до сотых. Сформировать из массива новый отсортированный массив по...
Pascal Интеграл методом треугольников У меня есть программа которая считает интеграл --- f(x)=(5x^2-x+2) *dx program fourrr; var a, b : real; { границы отрезка} h : real; { приращение аргумента } s : real; {... https://www.cyberforum.ru/ pascal/ thread1131664.html	Pascal Начертить правильный восьмиугольник со стороной a Составить программу построения чертежа плоской фигуры по заданным значениям определяющих ее параметров, используя процедуры и функции модуля GRAPH. Правильный восьмиугольник со стороной a https://www.cyberforum.ru/ pascal/ thread1131656.html
Pascal Пусть дан фрагмент программы. Опишите процедуру Наличие( Маг, А, В, C ), которая присваивает параметр типа ассортимент Пусть дан фрагмент программы. Опишите процедуру Наличие( Маг, А, В, C ), которая по информации из массива Маг типа магазины присваивает параметрам А, В, С типа ассортимент значения, перечисленные...	Pascal Используя фрагмент программы, опишите процедуры Используя следующий фрагмент программы, опишите перечисленные ниже процедуры: Type data = record number : 1..31; month : 1..12; year : 1901..1997 ... https://www.cyberforum.ru/ pascal/ thread1131468.html
Pascal Описать процедуру, которая вставляет в список L новый элемент E1 за каждым вхождением элемента Е https://www.cyberforum.ru/ pascal/ thread1131431.html Описать процедуру, которая вставляет в список L новый элемент E1 за каждым вхождением элемента Е.	Pascal Написать процедуру, удаляющую из файла определённые символы Пусть в программе введено описание типа: Type Letters = file of char; delete(f), удаляющую из текста f все знаки '+' и '–';
Pascal Пусть дан фрагмент программы. Опишите процедуру Наличие( Маг, А, В, C ), которая присваивает параметр типа ассортимент Пусть дан фрагмент программы. Опишите процедуру Наличие( Маг, А, В, C ), которая по информации из массива Маг типа магазины присваивает параметрам А, В, С типа ассортимент значения, перечисленные... https://www.cyberforum.ru/ pascal/ thread1131426.html	Pascal Формированике массива записей и выборка элементов массива по условию Сведения о студентах вуза записаны в массиве и содержит следующую информацию: фамилия, имя, отчество, пол (М или Ж), возраст (от 16 до 35), курс (от 1-го до 5-го). Напишите программу, которая вводит... https://www.cyberforum.ru/ pascal/ thread1131424.html
Таблица сложения двухзначных нечетных чисел Pascal Добрый день, как вычислить сумму двухзначных чисел я разобрался, а как сделать таблицу, не могу понять. Суть задачи вообще такая: Составить таблицу сложения двузначных нечетных чисел.Т.е от 11 до...	Pascal В группах символов состоящие только из ЦИФР поменять местами 1ый и последний элемент В группах символов состоящие только из ЦИФР поменять местами 1ый и последний элемент https://www.cyberforum.ru/ pascal/ thread1131336.html

Jener

228 / 225 / 220

Регистрация: 03.07.2012

Сообщений: 466

29.03.2014, 11:37

Распечатайте буквы, которые встречаются в каждом слове текста только один раз - Pascal - Ответ 5967977

29.03.2014, 11:37. Показов 1687. Ответов 2

Метки (Все метки)

Ответ

Pascal

uses
  crt;
const zn_prep = [' ', ',', '.', '?', '!', ':', ';'];  
var
  s, w : string;
  i, j, k : byte;
  bukv : set of char;
begin
  clrscr; 
  write('Enter text : '); readln(s);
  w := ''; bukv := [];
  for i := 1 to length(s) do begin
    If s[i] in zn_prep then begin 
      for j := 1 to length(w)-1 do begin
       for k := j+1 to length(w) do
        If w[j] = w[k] then bukv := bukv + [w[j]];
      end;
      w := '';
    end else w := w + s[i];
  end;
  for i := 128 to 241 do 
    if (pos(chr(i),s)<>0) and (not (chr(i) in bukv)) then write(chr(i),' ');
  readln;
end.

Вернуться к обсуждению:
Распечатайте буквы, которые встречаются в каждом слове текста только один раз Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

29.03.2014, 11:37

Готовые ответы и решения:

Определить буквы, которые встречаются только в первом и во втором слове
Даны 4 слова, определить те буквы, которые встречаются только в первом и во втором слове Заранее...

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.03.2014, 11:37

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

Вычеркните из слова X те буквы, которые встречаются в слове Z
Вычеркните из слова X те буквы, которые встречаются в слове Z

Определить какие буквы встречаются только в одном слове
Слова в тексте разделены пробелами. определить какие буквы встречаются только в одном слове этого...

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

Вывести буквы строки, которые встречаются 1 раз
Подскажите идею по строкам. Дан текст надо найти те буквы которые в данном тексте встречаются 1...

Наверх