Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 30.11.2009
Сообщений: 4

Предложение описанно символьной переменной заданной длиной. Определить, встречается ли запятая?

30.11.2009, 17:21. Показов 1642. Ответов 10
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
помогите пожалуйста с этой задачей:
Предложение описанно символьной переменной заданной длиной. Определить, встречается ли запятая?
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
30.11.2009, 17:21
Ответы с готовыми решениями:

Предложение описано символьной переменной заданной длиной. Определить, встречается ли запятая?
Предложение описано символьной переменной заданной длиной. Определить, встречается ли запятая?

Предложение описано символьной переменной заданной длинной. Определить, встречается ли запятая?
Предложение описано символьной переменной заданной длинной. Определить, встречается ли запятая?

Определить номер элемента массива A$, значение которого равно значению заданной символьной переменной C$
Определить номер элемента массива A$, значение которого равно значению заданной символьной переменной C$

10
 Аватар для yanyk1n
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
30.11.2009, 17:34
Может быть строковой?:
Pascal
1
2
3
4
5
6
7
8
uses crt;
var st:string;
begin
 clrscr;
 readln(st);
 if pos(',',st)>0 then writeln('Встречается') else writeln('Не встречается');
 readln;
end.
0
0 / 0 / 0
Регистрация: 30.11.2009
Сообщений: 4
30.11.2009, 17:37  [ТС]
да нет. вроде задание написанно правильно
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32744
Регистрация: 18.05.2008
Сообщений: 115,168
30.11.2009, 18:56
k1ry4, Массив символов. Размер массива задается.
0
 Аватар для yanyk1n
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
30.11.2009, 19:01
Цитата Сообщение от Puporev Посмотреть сообщение
k1ry4, Массив символов. Размер массива задается.
А чем строка не массив символов?
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32744
Регистрация: 18.05.2008
Сообщений: 115,168
30.11.2009, 19:06
k1ry4, Конечно строка это массив, но максимально 255 символов в Паскале. Если нужно больше, то пишут
s:array[1..1000] of char; В данном случае это учебное задание на массивы символов и не надо устраивать холивар и умничать.
0
 Аватар для yanyk1n
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
30.11.2009, 19:12
Цитата Сообщение от Puporev Посмотреть сообщение
В данном случае это учебное задание на массивы символов и не надо устраивать холивар и умничать.

Не по теме:

А я и не умничаю, просто выражаю своё мнение...


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var st:string;
f:booelan;
n,i:integer;
begin
 clrscr;
 write('Введите длину -> ');
 readln(n);
 for i:=1 to n do read(ch[i]);
 f:=true;
 for i:=1 to n do if ch[i]=',' then
 begin
  f:=false;
  break;
 end;
 if f then write('Не встречается') else write('Встречается');
 readln;
end.
Puporev, знаешь, организовать ввод потока символов неопределённой длины - выкладывай, сам не помню...
1
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32744
Регистрация: 18.05.2008
Сообщений: 115,168
30.11.2009, 19:31
Pascal
1
var s:array[1..500] of char;
Заполнять можно и рандомно и с клавиатуры, как числовой массив, например рандомно
Pascal
1
2
3
4
5
6
7
8
for i:=1 to n do
 begin 
  s[i]:=chr(random(223)+32); //видимые символы
  write(s[i]);
 end;
for i:=1 to n do
 if s[i]=',' then
.........
1
 Аватар для yanyk1n
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
30.11.2009, 19:33
Puporev, а если же неизвестна длина потока?
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32744
Регистрация: 18.05.2008
Сообщений: 115,168
30.11.2009, 21:41
k1ry4, Читай условие.
Предложение описанно символьной переменной заданной длиной.
Введи N и задавай массив, все как обычно. А если не задан размер массива, то тоже как обычно, цикл repeat+счетчик+условие выхода из цикла, типа until s[i]=#27;
1
 Аватар для yanyk1n
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
30.11.2009, 21:52
Puporev, да условие я читал, насчёт неопределенной длины - лично мне поинтересоваться...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
30.11.2009, 21:52
Помогаю со студенческими работами здесь

Символьной переменной next присвоить цифру, следующую за цифрой, являющейся значением символьной переменной dig
помогите пожалуйста. Дана символьная переменная dig, содержащая некоторую цифру. Символьной переменной next присвоить цифру, следующую за...

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

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

Дано предложение, в котором имеются буквы с, и, т. Определить, какая из них встречается позже
Дано предложение, в котором имеются буквы сит. Определить, какая из них встречается позже (при просмотре слова слева направо). Если таких...

Определить, сколько знаков отношения (<,>,=) присутствует в заданной символьной строке
Бедному начинающему неумехе необходимо решить задачи 1.Определить, сколько знаков отношения (&lt;,&gt;,=) присутствует в заданной...


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

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru