Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Текстовые и типизированные файлы в паскале https://www.cyberforum.ru/ turbo-pascal/ thread1283655.html На основании каких свойств текстовых и типизированных файлов можно полагать, что и с теми, и с другими файлами можно работать при помощи одинаковых операторов типа write, assign, close и пр.?	Turbo Pascal Вычислить количество положительных элементов в четных строках матрицы Вычислить количество положительных элементов в четных строках матрицы. Вычисление сумм + и - элементов и количество отдельных элементов матриц.
Turbo Pascal Дана последовательность, содержащая от 1 до 30 слов https://www.cyberforum.ru/ turbo-pascal/ thread1283589.html Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных латинских букв, между соседними словами - запятая, за последним словом - точка. Вывести те слова строки, которые отличны от последнего слова и в этих словах буквы упорядочены по алфавиту.	Turbo Pascal Проверка истинности высказываний https://www.cyberforum.ru/ turbo-pascal/ thread1283559.html Дано целое число а. Проверить истинность высказывания " Число а является положительным" Дано целое число а. Проверить истинность высказывания " Число а является нечетным" Дано целое число а. Проверить истинность высказывания " Число а является четным" Даны числа а,в,с. Проверить истинность всказывания " Число в находится между числами а и с"
Создать программу через модуль unit Turbo Pascal Вот моя программа: program Project1; {$APPTYPE CONSOLE} uses SysUtils; var B:array of integer;	Turbo Pascal На какие из чисел : 2,3,4,5,6,9,10,11 делится введенное число N https://www.cyberforum.ru/ turbo-pascal/ thread1283507.html N>=10^100, с меньшим промежутком легко решаема, а какой тип данных поддерживает такие промежутки?
Turbo Pascal Получить: max {\|в1\| , \|в2\|, \|в3\|, .\|в10\|} Даны действительные числа в1, в2, в3,....в10. Получить: max{\|в1\| , \|в2\|, \|в3\|, ........\|в10\|}. https://www.cyberforum.ru/ turbo-pascal/ thread1283394.html	Turbo Pascal Нужна программа, динамические списки Создание списка, С данными о ФИО Отсортировать по алфавиту. Ввести новый элемент не нарушив сортировку! Удалить выбранный элемент! Заранее спасибо
Turbo Pascal Сортировка по автору https://www.cyberforum.ru/ turbo-pascal/ thread1283315.html Есть типизированный файл с тремя записями. Данные читаются из этого типизированного файла, и после чего нужно записи отсортировать по автору. Вот что получилось, где ошибка? uses crt; const N=3; type tbook=record autor:string; title:string; count:word; end; var b,k:tbook;	Turbo Pascal Составить программу вывода Составить программу вывода на экран дисплея значения выражения корень из к, для к равного 2,4,6,8,10 https://www.cyberforum.ru/ turbo-pascal/ thread1283298.html
Вычислить произведение цифр, превышающих заданную цифру Turbo Pascal Дано натуральное семизначное N. Вычислить произведение цифр, превышающих заданную цифру a(a≠0).	Turbo Pascal Вычисление суммы элементов нижнего левого треугольника матрицы 1. Вычисление суммы элементов нижнего левого треугольника матрицы. 2. Замена всех положительных элементов матрицы на "0". https://www.cyberforum.ru/ turbo-pascal/ thread1283186.html

Joy

2386 / 1298 / 1492

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

Сообщений: 4,661

24.10.2014, 22:22

Дана последовательность слов. Удалить повторяющиеся слова и вывести слова которые встречались по одному разу - Turbo Pascal - Ответ 6764627

24.10.2014, 22:22. Показов 2634. Ответов 1

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

Сообщение было отмечено Eclipse как решение

Решение

без проверок:

Pascal

var
  s,s1,s2,s3:string;
begin
  write('CTPOKA>');
  readln(s);
  s2:='';s3:='';
  s[length(s)]:=',';
  repeat
   s1:=','+copy(s,1,pos(',',s));
   delete(s,1,pos(',',s));
   if (pos(s1,','+s)=0) and (pos(s1,','+s2)=0) then  s3:=s3+copy(s1,2,length(s1));
   if pos(s1,','+s2)=0 then s2:=s2+copy(s1,2,length(s1));
  until (length(s)<=1);
  s2[length(s2)]:='.';s3[length(s3)]:=#0;
  writeln('1) ',s2);
  writeln('2) ',s3);
end.

Вернуться к обсуждению:
Дана последовательность слов. Удалить повторяющиеся слова и вывести слова которые встречались по одному разу Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

24.10.2014, 22:22

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

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

Вывести те слова, которые встречаются по одному разу
1)Вывести те слова, которые встречаются по одному разу. 2)В строке рассположить слова в алфавитном...

Вывести все слова, которые встречаются по одному разу
Дана последовательность от 1 до 30 слов в каждом из которых от 1 до 5 строчных латинских букв,...

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

	24.10.2014, 22:22

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

24.10.2014, 22:22

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

Дана последовательность слов. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству: в слове
Дана последовательность слов. Напечатать те слова последовательности, которые отличны от последнего...

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

Дана последовательность от 1 до 30 слов. Вывести все слова в алфавитном порядке
Дана последовательность, содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных...

Дана последовательность от 1 до 30 слов. Вывести все слова в алфавитном порядке
Дана последовательность ,содержащая от 1 до 30 слов, в каждом из которых от 1 до 5 строчных...

Наверх