|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.11.2006, 00:46 | #1 |
Новичок
Джуниор
Регистрация: 10.11.2006
Сообщений: 2
|
плииззззз!
с применением строки!! Помогите если сможете!!
1. В заданном тексте подсчитайте наибольшее количество подряд идущих пробелов. И множеств: 2.Определите число слов в тексте, содержащие специальные символы «@, #, $, ^, &, _, *, %, ~». |
18.11.2006, 08:18 | #2 |
Регистрация: 15.11.2006
Сообщений: 8
|
это тебе на пасколе нужно или в делфи тоже пойдет?
Знание это сила. Человек владеющий данной силой не победим!
|
18.11.2006, 08:22 | #3 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
С delphi на Pascal переделать - нет проблем.
|
18.11.2006, 23:08 | #4 |
Регистрация: 15.11.2006
Сообщений: 8
|
ню ню!
Все токи на мой взгляд есть существенная разница между Pascal(ем) и Delphi!
Знание это сила. Человек владеющий данной силой не победим!
|
18.11.2006, 23:55 | #5 |
Регистрация: 15.11.2006
Сообщений: 8
|
unit Unit1;
interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; OpenDialog1: TOpenDialog; ListBox2: TListBox; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var S : string; i,j,k,sz,pr,p : integer; begin form1.OpenDialog1.Execute; if form1.OpenDialog1.FileName<>'' then begin form1.ListBox1.Items.LoadFromFile(f orm1.OpenDialog1.FileName); for i:=0 to (form1.ListBox1.Items.Count-1)do begin j:=1;sz:=0;pr:=0; Repeat k:=1;p:=0; Repeat If (((S[j]='@')or(S[j]='#')or(S[j]='$')or(S[j]='%')or(S[j]='^')or(S[j]='&')or(S[j]='*')or(S[j]='_')or(S[j]='~'))and(k=1)) then begin sz:=sz+1; k:=2; j:=j+1; end; Until (S[j]=' ')or(j<Length(S)); Repeat if j>=Length(S) then begin p:=p+1; j:=j+1; end; Until (S[j]<>' ')or(j<Length(S)); if p>pr then pr:=p; Until (j<Length(S)); end; end; end; end. <================================== ======================> Ну zetrix удачи!! ;-))))
Знание это сила. Человек владеющий данной силой не победим!
|
19.11.2006, 08:21 | #6 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
чё-то мне не нравится твоя программка... ты везде используешь переменную S, но где ты заносишь в неё данные (присваиваешь) я в упор не вижу!
|
19.11.2006, 10:08 | #7 |
Регистрация: 15.11.2006
Сообщений: 8
|
Сори! косячек вышел
строчку потерял! S:=form1.ListBox1.Items[i];
Знание это сила. Человек владеющий данной силой не победим!
|
20.11.2006, 08:34 | #8 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
а мне кажется что всё-таки раз в задании сказано про множества надо и оператор соответствующий использовать.
|