Строки, записи и файлы, процедуры функции

@Gray_Mc · Регистрация: 27.10.2010

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

Строки, записи и файлы, процедуры функции, массивы

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

1. Дано предложение. В нем слова разделены одним пробелом (начальные и конечные пробелы и символ "-" в предложении отсутствуют). Определить кол-во слов в предложении.

2.

3. Написать (рекурсивную) функцию, определяющую, является ли симметричной часть строки S , начиная с i-ного элемента и кончая j-м

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

Заранее огромное спасибо!

@Gray_Mc · 23.11.2010, 20:48 **[ТС]**

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

1. Дано предложение. В нем слова разделены одним пробелом (начальные и конечные пробелы и символ "-" в предложении отсутствуют). Определить кол-во слов в предложении.

uses crt;
var st:string;
i,sl:integer;
begin
writeln('Введите слова разделяя их пробелом');
readln(st);
for i:= 1 to length(st) do
if st[i]=' ' then sl:=sl+1;
sl:=sl+1;
writeln('В строке ',sl,' слов');
readkey
end.

Кажется так

@Dekio · 23.11.2010, 20:55

Gray_Mc, у тебя ошибки
так правильно

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program try;
var st:string;
i,sl:integer;
begin
sl:=1;
writeln('Введите слова разделяя их пробелом');
readln(st);
for i:= 1 to length(st) do
if st[i]=' ' then 
sl:=sl+1;
writeln('В строке ',sl,' слов');
end.

@Gray_Mc · 23.11.2010, 20:59 **[ТС]**

но ведь моя работает. Проверил раз 6-7

@Dekio · 23.11.2010, 21:03

она работает если добавить
sl:=0;
если не добавить компилятор error дает

разве мой вариант не проще?
не нужно 2 раза делать 1 и туже функцию:

Pascal
1
2
if st[i]=' ' then sl:=sl+1;
sl:=sl+1;

@Gray_Mc · 24.11.2010, 16:20 **[ТС]**

возможно проще. плюс Вам за это..
а можт знаете как 3ю делать?

Добавлено через 19 часов 14 минут
Сделал 1ю,2ю и 4ю....

Народ... Помогите сделать 3-ю

@Dnnn · 24.11.2010, 17:26

может как-то так. за синтаксис я уже совсем не ручаюсь.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
..........
 function Prov(s, j, j) : boolean;
 var Pr: boolean;
 begin 
      if i < j then  
      begin  
          Pr := s[i] = s[j]; 
          {если последние символы куска строки совпали - проверяем предпосл пары и так далее}
          if Pr then Pr := Prov(s, i+1, j-1); 
      end
      else Pr := true;
      
      Prov := Pr; 
 
 end 
 
...........

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

@Gray_Mc 0 / 0 / 0 Регистрация: 27.10.2010 Сообщений: 11

	Строки, записи и файлы, процедуры функции 23.11.2010, 19:51. Показов 1152. Ответов 6 Метки нет (Все метки) Строки, записи и файлы, процедуры функции, массивы Здравствуйте! Помогите пожалуйста с задачами. Как ни пытался, некоторые сделал, а эти не получаются. Не совсем доходит как делать... 1. Дано предложение. В нем слова разделены одним пробелом (начальные и конечные пробелы и символ "-" в предложении отсутствуют). Определить кол-во слов в предложении. 2. 3. Написать (рекурсивную) функцию, определяющую, является ли симметричной часть строки S , начиная с i-ного элемента и кончая j-м 4. Имеется текстовый файл. Получить текст, в котором в конце каждой строки из заданного файла добавлен восклицательный знак Заранее огромное спасибо! 0

@Gray_Mc 0 / 0 / 0 Регистрация: 27.10.2010 Сообщений: 11
	23.11.2010, 20:59 [ТС]
	но ведь моя работает. Проверил раз 6-7 0

@Gray_Mc 0 / 0 / 0 Регистрация: 27.10.2010 Сообщений: 11
	24.11.2010, 16:20 [ТС]
	возможно проще. плюс Вам за это.. а можт знаете как 3ю делать? Добавлено через 19 часов 14 минут Сделал 1ю,2ю и 4ю.... Народ... Помогите сделать 3-ю 0