С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 01.11.2012
Сообщений: 11
1

строки

15.11.2012, 20:45. Показов 432. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Ввести строку S1 с помощью оператора readln. Определить количество гласных в ней. В строку S2 вводить информацию посимвольно с помощью readkey, конец ввода - знак препинания. Ввести строку S3. Обьединить все строки. Удалить строку S3 из обьедененной строки.

получилось только это, и то не полностью работает ( не вводится строка s2)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses crt;
 const g: set of char=['e','y','u','i','o','a','E','Y','U','I','O','A'];
 const l: set of char=['!',';',':',',','.','?'];
 var s1,s2,s3: string;
 i,k: integer;
 c:char;
 begin
 write('còðîêà si: '); readln(s1);
 for i:=1 to length(s1) do
 if s1[i] in g then inc(k);
 writeln('Êîëè÷åñòâî ãëàñíûõ â ñòðîêå s1= ',k);
 readkey;
 write('ñòðîêà s2: ');
 repeat
 c:=readkey;
 if not(c in l) then
 until c in l;
 writeln;
 for i:=1 to length(s2)do
 if s2[i] in l then
 end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.11.2012, 20:45
Ответы с готовыми решениями:

Слить две строки, вставив символы одной строки между символами другой строки
Строка a из n символов лексикографически меньше строки b из n символов, если существует такой...

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

БД с операциями: добавление новой строки, удаление строки, редактирование имеющейся строки
Нужно создать базу данных в паскале, с операциями: добавление новой строки, удаление строки,...

Определить длину строки. Если длина строки >6, удалить часть строки в { } скобках.
Ввести с клавиатуры строку символов. Признак окончания ввода строки – нажатие клавиши "Ввод"....

2
5 / 8 / 11
Регистрация: 06.11.2012
Сообщений: 36
15.11.2012, 20:50 2
а давай ты вставишь свой код через тег
[PASCAL] [PASCAL]

Добавлено через 57 секунд
Цитата Сообщение от Гоша37 Посмотреть сообщение
не вводится строка s2
readln(s2); не?
1
0 / 0 / 0
Регистрация: 01.11.2012
Сообщений: 11
15.11.2012, 21:39  [ТС] 3
если писать readln(s2); то тогда он не закрывает программу, при введении знака препинания
0
15.11.2012, 21:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.11.2012, 21:39
Помогаю со студенческими работами здесь

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

Строки. Даны строка S и подстрока S1.Удалить из строки S все вхождения строки S1
Даны строка S и подстрока S1.Удалить из строки S все вхождения строки S1.В строке S подсчитать...

Строки. Даны строки S и So. Найти количество вхождений строки So в строку S
Помогите пожалуйста, как сделать эту задачу без этих вот строчек... B:=TRUE; и без команды INC......

Файл: Создайте текстовый файл, содержащий в начале каждой строки гласные буквы соответствующей строки файла, а в конце строки - согласные
Создайте текстовый файл, содержащий в начале каждой строки гласные буквы соответствующей строки...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru