Автор Тема: Строки в Паскале  (Прочитано 2924 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Faizov

  • Новичок
  • *
  • Сообщений: 2
    • Просмотр профиля
Строки в Паскале
« : 19 Ноября 2009, 22:06:42 »
Дана строка, состоящая из слов, разделенных пробелами. Определить кол-во слов палиндромов.
в общем я тут написал процедуры ввода строки, процедуру,которая определяет, слово, палиндром или не палиндром
и процедуру,которая подсчитывает кол-во палиндромов.
Подскажите, что дальше делать, тут еще с пробелом надо че-то сделать, помогите написать процедуру, которая учитывает пробел, точнее не учитывает, в общем..я че-то зациклился

Uses crt;
var                                                                       
sim:string;                                                                 
kol,kpal:byte;                                                               


 Procedure vvod(var sim:string; var kol:byte);                                 
 begin                                                                       
 writeln('Введите слова через пробелы');                                     
 read(sim);                                                                   
 kol:=length(sim);                                                           
 end;                                                                         
                                                                             
Procedure palindrom(slovo:string; var p:boolean);                             
 var                                                                         
 n,i:byte;                                                                   
 begin                                                                       
 p:=true;                                                                     
 n:=length(slovo) div 2;                                                     
  for i:=1 to n do                                                           
   begin                                                                     
    if slovo<>slovo[n-i+1] then                                         
 p:=false;                                                                 
 end;                                                                       
 end;           


Procedure kolpal(p:boolean; var kpal:byte);                                 
begin                                                                       
 if p then kpal:=kpal+1                                                     
 end;             
                                                           
                                                                             

Оффлайн Данила

  • Глобальный модератор
  • *****
  • Сообщений: 1657
  • Математик-экстрасенс
    • Просмотр профиля
Re: Строки в Паскале
« Ответ #1 : 19 Ноября 2009, 22:42:46 »
писал в 1ом семестре такую прогу...
Просьба не кидать мне в ЛС Ваши задания...создаем тему,пишем свое задание,наработки\идеи...полностью и нахаляву ничего не решаю

Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

Оффлайн Faizov

  • Новичок
  • *
  • Сообщений: 2
    • Просмотр профиля
Re: Строки в Паскале
« Ответ #2 : 19 Ноября 2009, 23:32:08 »
Ты не сможешь написать эту прогу?...

Оффлайн Данила

  • Глобальный модератор
  • *****
  • Сообщений: 1657
  • Математик-экстрасенс
    • Просмотр профиля
Re: Строки в Паскале
« Ответ #3 : 19 Ноября 2009, 23:34:30 »
внизу моего сообщения прикреплен файл с ней
Просьба не кидать мне в ЛС Ваши задания...создаем тему,пишем свое задание,наработки\идеи...полностью и нахаляву ничего не решаю

Вам в помощь:
∫ ¼ ½ ¾ ⅓ ⅔ ⅛ ⅜ ⅝ ⅞ ² ³ ± ~ ‰ ∞ √ ∑ ∆ ℮ ∩ ≡ ≤ ≥ ≈ ∩

 

Подсчет циклов в Паскале, найти корни уравнения методом половинного деления

Автор Anastasia_Right

Ответов: 1
Просмотров: 3560
Последний ответ 10 Октября 2011, 18:42:03
от holloloh
Люди добрые помогите пожалуйста с решением задачки в паскале

Автор Fi

Ответов: 3
Просмотров: 2193
Последний ответ 22 Апреля 2010, 09:54:05
от Asix
Помогите пожалуйста решить задачи в паскале!!!очень срочно

Автор sergsergserg

Ответов: 2
Просмотров: 1451
Последний ответ 28 Октября 2010, 21:14:22
от domny
Добрый День помогите пожалуйста решить задачи на Паскале!!!

Автор Ramzes 1993

Ответов: 1
Просмотров: 1361
Последний ответ 31 Октября 2011, 12:13:47
от wital1984
Pascal. Ребят, помогите написать программу в паскале

Автор Дианка

Ответов: 7
Просмотров: 4408
Последний ответ 16 Сентября 2010, 14:34:22
от Asix