Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Минимизация автомата Распознавателя https://www.cyberforum.ru/ pascalabc-net/ thread1198005.html
Добрый день!) Есть автомат распознаватель,он работает все делает по заданию,а как сделать минимизацию в нём?)есть ли возможность в этой программе добавить функции минимизации(это курс Теории...
PascalABC.NET Не могу нечего поделать, выбивает ошибку(Нет перегруженной подпрограммы с такими типами параметров)
var f, g, q: text; c, v: char; begin assign(f, 'f1.txt'); //text.txt - исходный файл reset(f); assign(g, 'g1.txt'); rewrite(g); assign(q, 'q1.txt');
PascalABC.NET Найти в файле F все слова из одной буквы и лишние пробелы между словами (пробел должен быть 1
Найти в файле F все слова из одной буквы и лишние пробелы между словами (пробел должен быть 1), и, удалив пробелы, получить новый файл G, а к файлу Q записать слова из одной буквы.
PascalABC.NET Описать тип записи - сведения по книге со школьной математике Описать тип записи - сведения по книге со школьной математики. Сформировать массив книг, необходимых учителю математики. Составить программу, подбирает книги для класса, номер которого вводится,... https://www.cyberforum.ru/ pascalabc-net/ thread1197419.html
PascalABC.NET Из множества чисел выделить подмножество простых чисел https://www.cyberforum.ru/ pascalabc-net/ thread1197418.html
С множества чисел выделить подмножество чисел вида p2, где p - простое.
Составьте программу подсчета числа положительных и отрицательных сумм элементов строк массива А(N,M) PascalABC.NET
Помогите, пожалуйста :) (если не трудно, то можно с пояснениями) 2.Составьте программу подсчета числа положительных и отрицательных сумм элементов строк массива А(N,M).
Найти сумму максимальных элементов данных массивов PascalABC.NET
Даны два одномерных массива целых чисел A и B. Найти сумму их максимальных элементов. Для нахождения максимального элемента в массиве использовать функцию.
PascalABC.NET Дана база данных,организовать сортировку по ключам,например по алфавиту Дана база данных,организовать сортировку по ключам,например по алфавиту(вывод товара в алфавитном порядке) и по цифре(вывод товара по возрастающей цене). Я весь код кидать не буду.тема-Программа... https://www.cyberforum.ru/ pascalabc-net/ thread1197025.html
PascalABC.NET Заполнение datagridview из файла https://www.cyberforum.ru/ pascalabc-net/ thread1196979.html
Вот процедура записи в файл procedure Form1.button1_Click(sender: Object; e: EventArgs); var f: TextFile; i, k: Integer; a, b:integer; begin
PascalABC.NET Программа подсчета числа различных элементов одномерного массива А(Q), не принадлежащих отрезку [R,P] Помогите, пожалуйста :) (если не трудно, то можно с пояснениями) 1.Составьте программу подсчета числа различных элементов одномерного массива А(Q), не принадлежащих отрезку . https://www.cyberforum.ru/ pascalabc-net/ thread1196873.html
Эксперт Pascal/Delphi
6439 / 4350 / 4661
Регистрация: 05.06.2014
Сообщений: 21,282
05.06.2014, 17:39 0

Выяснить, все ли согласные буквы слова Х, стоящие на четных местах, различны

05.06.2014, 17:39. Просмотров 2028. Ответов 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
25
26
27
28
29
Const
  C=['К','к','П','п','С','с','Т','т','Ф','ф','Х','х','Ц','ц','Ч','ч','Ш','ш','Щ','щ'
     ,'М','м','Н','н','Г','г','З','з','В','в','Р','р','Л','л','Д','д'
     ,'Ж','ж','Б','б'];
Var
  Q:Set of Char;
  X:String;
  ch:char;
  i:Integer;
  YesOrNo:boolean;
Begin
  Q:=[];
  YesOrNo:=true;
  Write('Введите исходное слово: ');
  Readln(X);
  For i:=2 to Length(X) do
    if (not odd(i)) and (X[i] in c) then
      begin
        if x[i] in q then
          YesOrNo:=false
        else
          Q:=Q+[X[i]];
      end;
  if YesOrNo then
    writeln('Все согласные буквы слова Х, стоящие на четных местах различные.')
  else
    writeln('Нет, не все согласные буквы слова Х, стоящие на четных местах различные.');
  Readln;
End.


Вернуться к обсуждению:
Выяснить, все ли согласные буквы слова Х, стоящие на четных местах, различны
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.06.2014, 17:39

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Выясните, все ли буквы слова Х, стоящие на нечетных местах, различны
Здраствуйте Уважаемые форумчане, скажите почему у меня при компилировании программы, не выводит...

Все ли гласные буквы слова Х, стоящие на нечетных местах, различны
Составьте программу, выясняющую, все ли гласные буквы слова Х, стоящие на нечетных местах, различны.

Как из слова образовать новое слово, в котором сначала идут все буквы, стоящие на четных местах, а потом на нечетных местах
Ввести слово, содержащее четное количество букв. Образовать новое слово, в котором сначала идут все...

Вычеркните из слова Х все буквы, стоящие на четных местах
Вычеркните из слова Х все буквы, стоящие на четных местах string n,...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.