[tristan]

Дано натуральное число n(n<=100). Сколько цифр в числе n.
-------------------------------------------------------------

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var a:integer; begin readln(a); if a<=10 then   wtiteln(a) else   if a <= 100   then     writeln(a div 10)   else     writeln('1'); readln{;} end.

Admin: Пользуемся тегами!

Правильно ли я решил пример или нет? Если нет, то напишите его правильно пожалуста. Заранее всем спасибо за помощь.

[Aristarh Dark]

нет
правильно вот так:

Код:

1	writeln(inttostr(lenght(inttostr(753159))));

[tristan]

А в какую строчку ее вписать в 6-ю или последнюю (writeln)? Я новичок.

[Страдалецъ]

Вместо всего этого блока:

Код:

1 2 3 4 5 6 7 8

if a<=10 then   wtiteln(a) else   if a <= 100   then     writeln(a div 10)   else     writeln('1');

вставьте код Дарка, только вместо константы 753159 подставьте переменную а

[tristan]

Я создал Form, кинул туда Edit и Button. Как мне теперь сделать с полученным кодом, чтоб в сторку Edit вводишь число и при нажатии на книпку он показывал сколько цифр в n.

[ryderx34]

Код:

1	ShowMesage(IntToStr(Length(Edit1.Text)));

[tristan]

Вобще я попробовал вот так:
----------------------------------------------------

procedure TForm1.Button1Click(sender:TOject);
begin
ShowMesage(IntToStr(Length(Edit1.Text)));
end;
end.

но у меня ничего не получилось. Потом я зделел так:

procedure TForm1.Button1Click(sender:TOject);
begin
MesageBox(0,IntToStr(Length(Edit1.Text),'0'));
end;
end.

Помогите в чем дело.

[tristan]

Ребята я кинул на Form одну Button и Edit1. В Button я прописал вот этот код:

procedure TForm1.Button1Click(Sender: TObject);
Var
Num:integer;
begin
if TryStrToInt(Edit1.Text,Num) then
Edit1.Text:=IntToStr(Length(Edit1.Text));
end;

И у мея программа заработал и когда я ввожу например:12345. Он показывает, что 5 натуральных чисел, как показанно по условию задачи. Правильно ли работает прога. Заранее спасибо.

[lijan]

Для Delphi в консоли:

Код:

1 2 3 4 5 6 7

var s:string; begin readln(s);     writeln(length(s)); readln; end.

для Delphi в графике:

Код:

1 2 3 4 5 6

... var s:string; begin s:=Edit1.Text; Label1.Caption:=Length(s); end.

[tristan]

lijan спасибо за помощь.

[LMA]

tristan Ты походу с Паскаля на Дельфи перешел?

[tristan]

LMA, да несколько лет назад изучал Паскаль, в этом году перешел на Делпхи.

[dimasuv]

Помогите решить

1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-10,10]. Найти сумму элементов, имеющих нечетное значение.
2. Вывести индексы тех элементов, значения которых больше заданного числа А.
3. Определить, есть ли в данном массиве положительные элементы, кратные заданному числу К.

Часть программы

Код:

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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     GroupBox1: TGroupBox;     CheckBox1: TCheckBox;     CheckBox2: TCheckBox;     CheckBox3: TCheckBox;     Edit3: TEdit;     Edit4: TEdit;     Edit5: TEdit;     Label1: TLabel;     Button1: TButton;     Button2: TButton;     Edit6: TEdit;     Button3: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   N,K:integer;   M:array of integer;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var i:integer; begin Randomize; N:=strtoint(edit1.Text); setlength(M,N); edit2.Text:=''; for i:=0 to N-1 do begin M[i]:=round(sin(Random(10))*10); edit2.Text:=edit2.Text+' '+inttostr(M[i]); end; end; procedure TForm1.Button2Click(Sender: TObject); var i:integer; sum, kol:integer; begin edit3.Text:=''; edit4.Text:=''; edit5.Text:=''; sum:=0; kol:=0; K:=1;   for i:=0 to N-1 do begin if checkbox1.Checked then if (M[i] mod 2=0) then sum:=sum+M[i]; if checkbox2.Checked then if (M[i] div 100 = 0) and (M[i]<>0) then kol:=kol+1; if checkbox3.Checked then If (M[i]>0) and (M[i] div K=0) then K:=1;   end;   if checkbox1.checked then edit3.text:=inttostr(sum); if checkbox2.Checked then edit4.Text:=inttostr(kol); if checkbox3.Checked then edit5.Text:=inttostr(K); end; procedure TForm1.Button3Click(Sender: TObject); begin K:=strToint(Edit6.Text);   end;   end.

Админ: Пользуемся тегами для оформления кода!

Укажите ошибки!

[lmikle]

0. сделай форматирование текста отступами. Читать же невозможно...

1.

Код:

1	M[i]:=round(sin(Random(10))*10);

Зачем так сложно?

Код:

1	M[i]:= Random(21) - 10;

2.

Сумма нечетных чисел.

Код:

1	if (M[i] mod 2=0) then sum:=sum+M[i];

это сумма четных. Для нечетных условие должно быть

Код:

1	(M[i] mod 2 <> 0)

3.

Элементы, большие заданного A

Код:

1	if (M[i] div 100 = 0) and (M[i]<>0) then

Должно быть

Код:

1 2	if (M[i] > A) then // А вводится из Edit'а   sIdx := sIdx + IntToStr(I)+', '; // собираем просто в строку индексы.

4.

Кратные числу K.

Код:

1 2 3 4 5 6 7

var   F : Boolean; begin   F := False;   ...     F := F Or (M[i] mod K = 0);

PS. А вообще, впечатление, что код просто взят у товарища, у которого задание было в принципе похоже, но немного другое.

[dimasuv]

Спасибо тебе!!Вправду помог!