Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
2 / 2 / 4
Регистрация: 10.11.2013
Сообщений: 140
1

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

10.11.2013, 16:59. Просмотров 1389. Ответов 2
Метки нет (Все метки)

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

program zada4a;
const n=['А','а','В','в','Д','д','Ё','е','З','з','Й','й','Л','л','Н', 'н','П','п','С','с','У','у','Х','х','Ч','ч','Щ','щ','Ы','ы', 'Э','э','Я','я'];
f=['Б','б','Г','г','Е','е','Ж','ж','И','и','К','к','М','м','О', 'о','Р','р','Т','т','Ф','ф','Ц','ц','Ш','ш','Ъ','ъ','ь','ь', 'Ю','ю'];
var x:string;
i:byte;
begin
writeln('Введите слово');
readln(x);
for i:=1 to length(x)-1 do
if(i mod 2<>0) and (x[i] in n) then
writeln ('Различны');
for i:=1 to length(x)-1 do
if(i mod 2<>0) and (x[i] in f) then
writeln ('Неразличны');
end.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.11.2013, 16:59
Ответы с готовыми решениями:

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

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

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

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

2
902 / 750 / 833
Регистрация: 06.09.2013
Сообщений: 1,561
10.11.2013, 17:29 2
Лучший ответ Сообщение было отмечено IsoPanzer как решение

Решение

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
30
program zada4a;
 
var
  x: string;
  i, j, n: byte;
 
begin
  writeln('Введите слово');
  readln(x);
  writeln;
  n := Length(x); //количество букв
 { Будем сравнивать i-й номер (нечетный) со 
 всеми меньшими j-ми нечетными номерами: }
  i := 3; //второй нечетный номер
  while i < n do
  begin
    j := 1; //первый нечетный номер
    while j < i - 2 do //j должно быть меньше i-2
    begin
      if x[i] = x[j] then //совпали
      begin
        write('Не различны.'); //совпали
        exit //сразу выходим (не имеет смысла дальше проверять)
      end;
      j := j + 2 //увеличиваем на 2 (берем только нечетные)
    end;
    i := i + 2 //увеличиваем на 2 (берем только нечетные)
  end;
  writeln('Различны')
end.
0
2 / 2 / 4
Регистрация: 10.11.2013
Сообщений: 140
10.11.2013, 17:38  [ТС] 3
огромное спасибо!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.11.2013, 17:38

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

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

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

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

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


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

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