Напечатать заданный текст из 100 литер, удалив из его повторные вхождение каждой литеры - Pascal

Pascal (Паскаль)

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

Войти

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

Рейтинг 4.55/11:

@Dargushev 0 / 0 / 0 Регистрация: 16.04.2009 Сообщений: 6
		1
	Напечатать заданный текст из 100 литер, удалив из его повторные вхождение каждой литеры 18.04.2009, 06:33. Показов 1923. Ответов 1 Метки нет (Все метки) Напечатать заданный текст из 100 литер, удалив из его повторные вхождение каждой литеры. 0

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

Лучшие ответы (1)

Сообщение: #140946

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

18.04.2009, 06:33

Ответы с готовыми решениями:

Напечатать заданный текст из 100 литер, удалив из него повторные вхождение каждой литеры
(1). Напечатать заданный текст из 100 литер, удалив из него повторные вхождение каждой литеры. ...

Напечатать заданный текст, удалив из него лишние пробелы
Только начали проходить, ещё ниче не понимаю... 1. Дана последовательность слов. Напечатать те...

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

Напечатайте заданный текст из 100 литер, удалив из него повторные вхождения каждой литеры
Мы ведь "ОДНА БОЛЬШАЯ СЕМЬЯ", помогите сделать:)!!! Напечатайте заданный текст из 100 литер,...

Puporev

Почетный модератор

64303 / 47600 / 32742

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

Сообщений: 115,181

18.04.2009, 14:04

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

Решение

Pascal

uses crt;
var s:string[100];
    i:integer;
begin
clrscr;
repeat
writeln('s: ');readln(s);
until length(s)>=100;
i:=1;
while i<100 do
   begin
     while pos(s[i],copy(s,i+1,100-i))>0 do{пока очередной симол есть дальше по строке}
     delete(s,pos(s[i],copy(s,i+1,100-i))+i,1);{удаляем его}
     inc(i);
   end;
writeln(s);
readln;
end.

	18.04.2009, 14:04

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

18.04.2009, 14:04

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

Определить сколько различных символов входит в заданный текст, содержащий не более 100 литер и оканчивающийся
Ребята, помогите! Срочно надо! Желательно без использования множеств. Мне эта тема туго дается.

Удалить из текста повторные вхождения каждой литеры
Напечатать заданный текст из 60 символов , удалив из него повторные вхождения каждой литеры. То...

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

Напечатайте заданный текст из 60 литер, удалив из него повторные вхождения каждой литеры
Напечатайте заданный текст из 60 литер, удалив из него повторные вхождения каждой литеры. На...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи
Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .
Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .

Наверх