Осуществить ввод последовательности целых чисел

@COSMOS322 · Регистрация: 10.01.2014

Студворк — интернет-сервис помощи студентам

Осуществить ввод последовательности целых чисел , определить третье положительно число и подсчитать кол-во цифр в нем. Последовательность потенциально не ограничено, окончанием последовательности служит третье положиьельное число.

Помогите пожалуйста

@NotBeginner · 11.09.2014, 10:08

разделителем чисел что будет?? пробел. точка, точка с запятой, и т.д

@COSMOS322 · 11.09.2014, 10:10 **[ТС]**

Пробел

@NotBeginner · 11.09.2014, 10:16

Delphi

var
  Form1: TForm1;
  count : integer;
  word : string;
implementation
 
{$R *.dfm}
 
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = ' ' then Inc(count);
  if count = 2 then word := word + key;
  if count > 2 then
  begin
    Memo1.Lines.Add('3-e ïîëîæèòåëüíî ÷èñëî ' + word);
    Memo1.Lines.Add('åãî äëèí = ' + IntToStr(length(word)));
    word := '';
    count := 0;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 count := 0;
end;

@COSMOS322 · 11.09.2014, 10:19 **[ТС]**

Огромное спасибо.

@Puporev · 11.09.2014, 10:43

Pascal

var
  Form1: TForm1;
  p:integer;
implementation
 
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
ShowMessage('Вводите целые числа, окончаеие ввода третье положительное число')
end;
procedure TForm1.Button1Click(Sender: TObject);
var a,k:integer;
begin
val(Edit1.Text,a,k);
if k<>0 then
 begin
  Edit1.Clear;
  Edit1.SetFocus;
 end
else
 begin
  Edit2.Text:=Edit2.Text+' '+Edit1.Text;
  a:=StrToInt(Edit1.Text);
  if a>0 then inc(p);
  if p=3 then
   begin
    Edit3.Text:='Третье положительное число='+Edit1.Text+
    ' количество цифр='+inttostr(Length(Edit1.Text));
    Button1.Enabled:=false;
   end;
  Edit1.Clear;
  Edit1.SetFocus;
 end;
end;

@COSMOS322 0 / 0 / 0 Регистрация: 10.01.2014 Сообщений: 11
		1
	Осуществить ввод последовательности целых чисел 11.09.2014, 10:01. Показов 1509. Ответов 5 Метки нет (Все метки) Осуществить ввод последовательности целых чисел , определить третье положительно число и подсчитать кол-во цифр в нем. Последовательность потенциально не ограничено, окончанием последовательности служит третье положиьельное число. Помогите пожалуйста 0

@NotBeginner 174 / 160 / 71 Регистрация: 22.02.2013 Сообщений: 1,769 Записей в блоге: 2
	11.09.2014, 10:08	2
	разделителем чисел что будет?? пробел. точка, точка с запятой, и т.д 0

@COSMOS322 0 / 0 / 0 Регистрация: 10.01.2014 Сообщений: 11
	11.09.2014, 10:10 [ТС]	3
	Пробел 0

@COSMOS322 0 / 0 / 0 Регистрация: 10.01.2014 Сообщений: 11
	11.09.2014, 10:19 [ТС]	5
	Огромное спасибо. 0

	11.09.2014, 10:43

Опции темы