Из 2-х программ сделать одну

19.12.2017, 21:37. Показов 531. Ответов 0

Author24 — интернет-сервис помощи студентам

ребят помогите, надо их 2х программ сделать одну! (что бы она заменяла слово и удаляла двойные пробелы)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program xz;
uses crt;
var s,sl,sn: string;
    i: integer;
begin
write(' введите предложения -');
readln(s);
while pos('_ _',s)>0 do delete(s,pos('_ _',s),1);
s:=s+' ';  sl:='';  sn:='';
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       begin
       if sl[1]='w' then sn:=sn+'ZAMENA '
          else sn:=sn+sl+' ';
       sl:='';
       end;
write('s=',sn);
readln;
end.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  sn,sl,s:string;
i:integer;
begin
  writeln('Введите строку...');
  readln(s);
i:=0;  
while pos('  ',s)>0 do begin
    delete(s,pos('  ',s),1);
inc(i);
end;
if sl[1]='w' then sn:=sn+'ZAMENA '
          else sn:=sn+sl+' ';
writeln(i);
  writeln('Результат:');
  writeln(s)
end.

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

cpp_developer

Эксперт

20123 / 5690 / 1417

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

Сообщений: 22,546

Блог

19.12.2017, 21:37

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

Из двух программ сделать одну
У меня есть две программы, одна решает квадратные уравнения, а другая неравенства. Мне нужно что б когда запускаю программу появлялся...

Объединение программ в одну
Всем привет. Как можно объединить следующие программы в одну? Использовать Case структуру?

Объединение двух программ в одну
Есть у меня две программы. Одна заправшивает грани интервала, колво точек на нем и строит таблицу со значениямиx и y для опредделенного...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

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

Сообщений: 21,154

Блог

19.12.2017, 21:37

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

Объединения мелких программ в одну
Здраствуйте сначала задание полностью чтоб было ясней. Дано систему автоматичного курування, яка складається із декількох елементів....

Объединить несколько программ в одну
Составить программу для решения * Связывание приведенного нижне задачи двумя способами, используя: 1) пункт case, 2) команду if.Придуматы ы...

Объединение нескольких программ в одну
У меня есть 8 программ как их объеденить в одну и чтоб каждая программа запускалась с графического интерфейса с низпадающего меню

Объединить несколько программ в одну
Мы делали лабы, а теперь надо сделать программу при запуске которой выбираешь лабораторную работу, после чего уже показывает результат...

Объединение несколько программ в одну?
Подскажите пожалуйста, у меня два проекта делфи, как можно их объединить в одну программу? Второй вопрос: можно ли использовать функции...

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

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

Опции темы

Новые блоги и статьи Все статьи Все блоги /
Статические свойства и методы в TypeScript run.dev 20.04.2025 TypeScript прочно занял своё место в системе современной веб-разработки. Этот строго типизированный язык программирования не просто расширяет возможности JavaScript — он делает разработку более. . .	Batch Transform и Batch Gizmo Drawing API в Unity GameUnited 20.04.2025 В мире разработки игр и приложений на Unity производительность всегда была критическим фактором успеха. Создатели игр постоянно балансируют между визуальной привлекательностью и плавностью работы. . .	Звук в Unity: Рандомизация с Audio Random Container GameUnited 20.04.2025 В современных играх звуковое оформление часто становится элементом, который либо полностью погружает игрока в виртуальный мир, либо разрушает атмосферу за считанные минуты. Представьте: вы исследуете. . .	Максимальная производительность C#: Советы, тестирование и заключение stackOverflow 20.04.2025 Погружение в мир микрооптимизаций C# открывает перед разработчиком целый арсенал мощных техник. Но как определить, где и когда их применять? Ответ начинается с точных измерений и профилирования. . . .	Максимальная производительность C#: Предсказание ветвлений stackOverflow 20.04.2025 Третий ключевой аспект низкоуровневой оптимизации — предсказание ветвлений. Эта тема менее известна среди разработчиков, но её влияние на производительность может быть колоссальным. Чтобы понять. . .
Максимальная производительность C#: Векторизация (SIMD) stackOverflow 20.04.2025 Помимо работы с кэшем, другим ключевым аспектом низкоуровневой оптимизации является векторизация вычислений. SIMD (Single Instruction, Multiple Data) позволяет обрабатывать несколько элементов данных. . .	Максимальная производительность C#: Процессорный кэш stackOverflow 20.04.2025 Знакомство с внутренним устройством процессорного кэша — ключевой шаг в написании по-настоящему быстрого кода на C#. Этот слой архитектуры компьютера часто ускользает от внимания разработчиков, но. . .	Максимальная производительность C#: Введение в микрооптимизации stackOverflow 20.04.2025 В мире разработки на C# многие привыкли полагаться на . NET Runtime, который "магическим образом" сам оптимизирует код. И часто это работает - современные JIT-компиляторы творят чудеса. Но когда речь. . .	MVC фреймворк в PHP Jason-Webb 19.04.2025 Архитектурный паттерн Model-View-Controller (MVC) – это не просто модный термин из мира веб-разработки. Для PHP-программистов это фундаментальный подход к организации кода, который радикально меняет. . .	Dictionary Comprehensions в Python py-thonny 19.04.2025 Python славится своей выразительностью и лаконичностью, что позволяет писать чистый и понятный код. Среди множества синтаксических конструкций языка особое место занимают словарные включения. . .

Наверх