Помогите чайнику в создании программы

[ImFaer]

Помогите чайнику в создании программы

Помогите пожалуйста написать программу, если можно с пояснениями что к чему:tehnari_ru_837:

Дано натуральное число n. Удалить из записи числа все нули и единицы. Подсчитать количество оставшихся цифр в изображении числа. (похожая задача есть тут ->>> http://www.tehnari.ru/f43/t37158/ , но делал в Delphi 7 выдает ошибки :tehnari_ru_117: )

 

[MrSTEP]

Ну конечно выдает ошибки, в делфи ведь графический интерфейс, а в паскале командный. Весь ввод и вывод данных надо производить с компонента Edit, а код программы вставить в процедуру обработки клика по кнопке (Button)

 

[ImFaer]

можешь примерно показать как?

 

[MrSTEP]

клевете на форму три компонента Edit (для ввода числа, для вывода числа без нулей и единиц, и для вывода количества цифр) и один Button. щелкаете два раза по кнопке, создается процедура обработки щелчка по кнопке. Туда вставляете раздел описания переменных и раздел операторов из программы в другой теме. Меняете в коде readln на N:=Edit1.Text (то есть берете текстовое значение компонента Эдит), а вместо WriteLn(N1); WriteLn('Number of figures is ',j) на Edit2.text:=IntToStr; (значение N, переведеное в строку) и Edit3.text:='Number of figures is ' IntToStr(j). Ну и выкиньте Readln.

 

[ImFaer]

спс но у меня получилось только так

var
N:LongInt;
S:STRING;
i,j:INTEGER;
s1:string ;

begin
Write('(N muts be <2147483648); N=');
Readln (N);
STR (N,S);
j:=0;
For i:=1 to Length (S)do

If (S<>'0') and (S<>'1') then
begin
inc(j);
s1 := s1+ S;
end;

Writeln (j);

Writeln (s1);
ReadLn;
END.

 

[Vladimir_S]

Так Вам на каком языке надо - Pascal или Delphi?

 

[ImFaer]

на языке Pascal в Delphi, просто у меня Windows 7 х64, а Pascal не подерживаешься на 64х битной системе только Delphi норм идет

 

[Vladimir_S]

на языке Pascal в Delphi, просто у меня Windows 7 х64, а Pascal не подерживаешься на 64х битной системе только Delphi норм идет

Нет, так не бывает. Либо Pascal, либо Delphi. То, что Вы написали - это Pascal и только Pascal. Delphi, как Вам справедливо указал MrStep, не поддерживает консольного ввода. Единственно, если Вы не хотите заморачиваться с дельфийскими формами, то можете применить файловый ввод-вывод. Только не забудьте, что в Delphi вместо Assign и Close применяются команды AssignFile и CloseFile, соответственно. Программу нужно сохранить с расширением .dpr .

 

[ImFaer]

спасибо, буду знать..

 

[MrSTEP]

...Или можно было создать в делфи консольное приложение (File - New - Console Application). Там минимум отличий от паскаля, разве что его модулей там нет.
И так, для справки: Паскаль: язык программирования, Делфи - среда разработки, поддерживающая создание программ на объектно-ориентированой спецификации паскаля - Object Pascal.

 

[Fenix]

следуя утверждению мистера степа утверждение владимира не имеет смысла....

 

[MrSTEP]

Под выражением Владимира, не имеющим смысла, вы понимаете это?

Единственно, если Вы не хотите заморачиваться с дельфийскими формами, то можете применить файловый ввод-вывод. Только не забудьте, что в Delphi вместо Assign и Close применяются команды AssignFile и CloseFile, соответственно. Программу нужно сохранить с расширением .dpr .

Оно тоже правильно и имеет смысл, просто не все с файлами знакомы и хотят с ними возиться

 

[Vladimir_S]

следуя утверждению мистера степа утверждение владимира не имеет смысла....

Да, можно подробнее - что именно "не имеет смысла"? "В порядке повышения образованности", как говорил почтальон Печкин.