0 / 0 / 0
Регистрация: 20.02.2013
Сообщений: 7
1

Написать программу, проверяющую, является ли введённое слово палиндромом.

04.03.2013, 21:32. Показов 8950. Ответов 2
Метки нет (Все метки)

Помогите,пожалуйста по строкам!!!

5.Написать программу,проверяющую,является ли введённое слово палиндромом.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.03.2013, 21:32
Ответы с готовыми решениями:

Составить программу, проверяющую, является ли данное слово палиндромом
1)Введено слово.Составить программу, проверяющую, является ли данное слово палиндромом(читается ли...

Написать программу, проверяющую, является ли частью данной строки слово 'сок'
Дана строка символов. Написать программу, проверяющую, является ли частью данной строки слово...

Определить, является ли введенное слово палиндромом
1) пусть элементами равностороннего треугольника является: сторона А, площадь S, высота Н, радиус...

Написать процедуру, проверяющую, является ли число палиндромом
Написать процедуру, проверяющую, является ли число палиндромом (например, число 12721 - палиндром).

2
92 / 92 / 99
Регистрация: 25.01.2013
Сообщений: 326
05.03.2013, 18:08 2
Лучший ответ Сообщение было отмечено Anastasia16 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Uses crt;
Var s1,s2:string; i,p,n:integer;
Begin clrscr;
  WriteLn('vvedite slovo');
  ReadLn(s1);
  s2:='';
  p:=1;
  n:=Length(s1);
  for i:=n downto 1 do s2:=s2+s1[i];
  for i:=1 to n do if s1[i]<>s2[i] then p:=0;
  if p=1 then WriteLn('slovo ',s1,' palindrom')
          else WriteLn('net');
  ReadLn;
End.
0
296 / 274 / 194
Регистрация: 03.05.2012
Сообщений: 570
05.03.2013, 18:13 3
Можно проще.
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
function checkword(var arg:string):boolean;
var i,j:integer;
begin
  checkword:=true;
  j:=0;
  for i:=length(arg) downto length(arg) div 2 do begin
    inc(j);
  if arg[i]<>arg[j] then begin
      checkword:=false;
      break;
    end;
  end;
end;
 
var s:string;
 
begin
  writeln('введите слово');
  readln(s);
  if checkword(s) then
    writeln('это слово палиндром')
  else
    writeln('слово не является палиндромом');
  readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
05.03.2013, 18:13
Помогаю со студенческими работами здесь

Составьте программу, проверяющую, является ли число палиндромом
Составьте программу, проверяющую, является ли число палиндромом (например, число 12421 - палиндром).

Написать программу, проверяющую является ли введенное число простым
Написать программу, проверяющую является ли введенное число простым. Введеное для проверки число...

Напишите программу, которая определяет, является ли введённое слово (без пробелов) палиндромом
Напишите программу, которая определяет, является ли введённое слово (без пробелов) палиндромом, то...

Является ли введённое слово с клавиатуры слово палиндромом
С помощью рекурсивной функции выяснить является ли введённое слово с клавиатуры слово палиндромом.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru