ПРОГРАММА НА СТРОКИ(PASCAL)

@Sweet_Girl · Регистрация: 13.05.2009

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

В файле набран текст.Удалить из текста все пробелы и подсчитать длинну сформированного текста.Задан сторка.Подсчитать наибольшее количество символов "?" идущих подряд.Результат записать в файл z1.

@Puporev · 15.05.2009, 17:04

Задан сторка.Подсчитать наибольшее количество символов "?" идущих подряд.Результат записать в файл z1.

Это другая задача?

Добавлено через 8 минут 42 секунды
№1.

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
uses crt;
var
f,g:text;
s:string;
len:integer;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
assign(g,'file2.txt');
rewrite(g);
len:=0;
while not eof(f) do
 begin
  readln(f,s);{читаем строки}
  while pos(' ',s)>0 do delete(s,pos(' ',s),1);{удаляем пробелы}
  len:=len+length(s);{считаем общую длину}
  writeln(g,s);{переписываем в новый файл без пробелов}
 end;
close(f);
close(g);
writeln('Длина сформированного текста=',len);
readln
end.

@Sweet_Girl · 15.05.2009, 17:11 **[ТС]**

Сама не поняла в условии не указано что это другая задача

@Puporev · 15.05.2009, 17:13

Конечно другая.Это я так спросил, что надо условие нормально писать.
В первой задан файл, а во второй одна строка.

@MrAndrey_ka · 15.05.2009, 17:19

Сообщение от Puporev

Конечно другая.Это я так спросил, что надо условие нормально писать.
В первой задан файл, а во второй одна строка.

а может имеется ввиду то что достали с файла, но уже без пробелов?

@Sweet_Girl · 15.05.2009, 17:23 **[ТС]**

наверняка,если это была бы другая задача то ее отметили бы как другую

@Puporev · 15.05.2009, 17:26

№2.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var s:string;
    i,k,mx:integer;
begin
clrscr;
writeln('Введите строку:');
readln(s);
mx:=0;k:=0;
for i:=1 to length(s) do
if s[i]='?'then k:=k+1{пока ?, считаем}
else{если кончились подряд}
 begin
  if k>mx then mx:=k;{проверяем длинне цепочка чем раньше, или нет. Если длиннее, она макс.}
  k:=0;{обнуляем счетчик}
 end;
write('Наибольшее количество подряд идущих символов ? = ',mx);
readln
end.

Добавлено через 1 минуту 24 секунды

а может имеется ввиду то что достали с файла, но уже без пробелов?

Из файла мы достали не обязательно одну строку, а может сто строк.

@Sweet_Girl · 18.05.2009, 19:22 **[ТС]**

puporev вторая программа работает,но работает не правильно,она выводит только первую группу ? знаков

@Puporev · 18.05.2009, 19:27

она выводит только первую группу ? знаков

Куда выводит? Нам что по условию надо?

Подсчитать наибольшее количество символов "?" идущих подряд.

Просто посчитать количество этих символов в самой длинной последовательности и вывести это число. Если первая цепочка будет самой длинной, то количество символов этой цепочки и выведет.

@Sweet_Girl · 18.05.2009, 19:50 **[ТС]**

например такая строка ??укпукпукп?????ПВАЕК програма выводит только количество ? в первой цепочке а по идее там меньше символов чем во второй цепочке

Добавлено через 15 минут 3 секунды
в чем проблема??????

@Puporev · 18.05.2009, 20:36

Вот просто обратно скопировал свой код,загрузил, набрал Вашу строку про сплошной пук, программа выдала количество=5. Что Вы опять "поправили в программе?"

@Puporev · 18.05.2009, 20:37

Вот моя прога.

@Sweet_Girl · 20.05.2009, 15:18 **[ТС]**

Попробуй эту строку ??привет???досвидание???????????

@den-sedoy · 20.05.2009, 16:00

Создайте программу, которая запрашивает тестовую строку и заменяет все слоги "ра" на "пар".
Протокол:
Введите строку: травушка-муравушка с утра поднялась
Получилось: тпарвушка-мупарвушка с утпар поднялась
пожалуйста помогите с решением, все перепробовал, ни как не получается

@Puporev · 20.05.2009, 16:17

Попробуй эту строку ??привет???досвидание???????????

Извиняюсь. Исправьте строку
for i:=1 to length(s)+1 do

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

@Sweet_Girl 1 / 1 / 0 Регистрация: 13.05.2009 Сообщений: 44

	ПРОГРАММА НА СТРОКИ(PASCAL) 15.05.2009, 14:49. Показов 2329. Ответов 14 Метки нет (Все метки) В файле набран текст.Удалить из текста все пробелы и подсчитать длинну сформированного текста.Задан сторка.Подсчитать наибольшее количество символов "?" идущих подряд.Результат записать в файл z1. 0

@Sweet_Girl 1 / 1 / 0 Регистрация: 13.05.2009 Сообщений: 44
	15.05.2009, 17:11 [ТС]
	Сама не поняла в условии не указано что это другая задача 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	15.05.2009, 17:13
	Конечно другая.Это я так спросил, что надо условие нормально писать. В первой задан файл, а во второй одна строка. 0

@Sweet_Girl 1 / 1 / 0 Регистрация: 13.05.2009 Сообщений: 44
	15.05.2009, 17:23 [ТС]
	наверняка,если это была бы другая задача то ее отметили бы как другую 0

@Sweet_Girl 1 / 1 / 0 Регистрация: 13.05.2009 Сообщений: 44
	18.05.2009, 19:22 [ТС]
	puporev вторая программа работает,но работает не правильно,она выводит только первую группу ? знаков 0

@Sweet_Girl 1 / 1 / 0 Регистрация: 13.05.2009 Сообщений: 44
	18.05.2009, 19:50 [ТС]
	например такая строка ??укпукпукп?????ПВАЕК програма выводит только количество ? в первой цепочке а по идее там меньше символов чем во второй цепочке Добавлено через 15 минут 3 секунды в чем проблема?????? 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	18.05.2009, 20:36
	Вот просто обратно скопировал свой код,загрузил, набрал Вашу строку про сплошной пук, программа выдала количество=5. Что Вы опять "поправили в программе?" 0

@Sweet_Girl 1 / 1 / 0 Регистрация: 13.05.2009 Сообщений: 44
	20.05.2009, 15:18 [ТС]
	Попробуй эту строку ??привет???досвидание??????????? 0

@den-sedoy 0 / 0 / 0 Регистрация: 20.05.2009 Сообщений: 8
	20.05.2009, 16:00
	Создайте программу, которая запрашивает тестовую строку и заменяет все слоги "ра" на "пар". Протокол: Введите строку: травушка-муравушка с утра поднялась Получилось: тпарвушка-мупарвушка с утпар поднялась пожалуйста помогите с решением, все перепробовал, ни как не получается 0