Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lazarus
Войти
Регистрация
Восстановить пароль
 
Fedkov2013
1 / 1 / 1
Регистрация: 27.02.2013
Сообщений: 60
#1

Обработка символьных данных в объектно-ориентированном программировании - Lazarus

02.12.2013, 19:44. Просмотров 258. Ответов 1
Метки нет (Все метки)

Подскажите пожалуйста как программу приведеную ниже заставить правильно работать. В консоле все прекрассно работает а пытаюсь связать с формой какието левые ответы выдает

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var s,s1:string;
    i,k,k1,k2:byte;
Begin
 
    procedure TForm1.Button1Click(Sender: TObject);
Var s,s1:string;
    i,k,k1,k2:INTEGER;
begin
   s:=Edit1.TexT;  // <--- !!!!!!
    k:=StrToint(Edit2.Text);
    s:=s+',';
    While Pos(',',s)>0 do
    Begin
      s1:=Copy(s,1,Pos(',',s)-1);
      Delete(s,1,Pos(',',s));
      k1:=0;
      For i:=1 to Length(s1) do
       if UpCase(s1[i]) in ['A','E','I','U','O','Y'] then inc(k1);
      if k1=k then inc(k2);
    End;
    Edit3.Text:=IntTostr(k2);
  end;
выделенный текст-думаю ошибка в этом
http://www.cyberforum.ru/lazarus/thread1267867.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2013, 19:44
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Обработка символьных данных в объектно-ориентированном программировании (Lazarus):

Классы в объектно-ориентированном программировании. С++
Здравствуйте! Подскажите, пожалуйста. Необходимо реализовать задачу на языке...

Полиморфизм в объектно-ориентированном программировании.Перегрузка функций
Помогите,пожалуйста,написать программу.В DevC++.

В объектно ориентированном создать Информатический словарь
Помогите пожалуйста, всю голову себе сломал... нужно в объектно...

Реализация задачи в объектно-ориентированном стиле
Здравствуйте. Столкнулась с проблемой. Дали задание на курсовик по ООП в qt. ...

Простой калькулятор в объектно-ориентированном стиле
Здравствуйте. А можно написать совсем простой калькулятор типа: Введите 2...

1
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25609 / 17162 / 6825
Регистрация: 22.10.2011
Сообщений: 30,359
Записей в блоге: 6
02.12.2013, 19:58 #2
Переменные k1, k2 надо обнулять. Пока это было консольное приложение - переменные были глобальными, и обнулялись при старте программы. Теперь они локальные:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.Button1Click(Sender: TObject);
var
  s, s1: string;
  i, k, k1, k2: integer;
begin
  k1 := 0; k2 := 0; // Добавляем вот эту строчку
 
  s := Edit1.Text;
  k := StrToInt(Edit2.Text);
  s := s + ',';
  while Pos(',', s) > 0 do
  begin
    s1 := Copy(s, 1, Pos(',', s) - 1);
    Delete(s, 1, Pos(',', s));
    k1 := 0;
    for i := 1 to Length(s1) do
      if UpCase(s1[i]) in ['A', 'E', 'I', 'U', 'O', 'Y'] then
        Inc(k1);
    if k1 = k then
      Inc(k2);
  end;
  Edit3.Text := IntToStr(k2);
end;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2013, 19:58
Привет! Вот еще темы с решениями:

Обработка символьных данных
Всем привет. Помогите пожалуйста с задачей. &quot;Обработка символьных данных....

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

Обработка символьных данных
Преобразовать введенное слово в последовательность кодов его букв. Сделать надо...

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


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

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

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