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

ImFaer · 30.09.2010, 09:36

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

Дано натуральное число n. Удалить из записи числа все нули и единицы. Подсчитать количество оставшихся цифр в изображении числа. (похожая задача есть тут ->>> Помогите с Паскалем , но делал в Delphi 7 выдает ошибки

)

MrSTEP · 30.09.2010, 09:52

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

ImFaer · 30.09.2010, 10:21

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

MrSTEP · 30.09.2010, 10:49

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

ImFaer · 30.09.2010, 12:55

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

Цитата:

Сообщение от MrSTEP

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[i]<>'0') and (S[i]<>'1') then
begin
inc(j);
s1 := s1+ S[i];
end;

Writeln (j);

Writeln (s1);
ReadLn;
END.

Vladimir_S · 30.09.2010, 14:25

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

ImFaer · 30.09.2010, 15:52

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

только Delphi норм идет

Vladimir_S · 30.09.2010, 16:17

Цитата:

Сообщение от ImFaer

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

только Delphi норм идет

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

ImFaer · 30.09.2010, 17:50

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

MrSTEP · 30.09.2010, 18:08

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

30.09.2010, 09:36	#1 (permalink)
ImFaer Новичок Регистрация: 30.09.2010 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите чайнику в создании программы Помогите пожалуйста написать программу, если можно с пояснениями что к чему Дано натуральное число n. Удалить из записи числа все нули и единицы. Подсчитать количество оставшихся цифр в изображении числа. (похожая задача есть тут ->>> Помогите с Паскалем , но делал в Delphi 7 выдает ошибки )

30.09.2010, 15:52	#7 (permalink)
ImFaer Новичок Регистрация: 30.09.2010 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	на языке Pascal в Delphi, просто у меня Windows 7 х64, а Pascal не подерживаешься на 64х битной системе только Delphi норм идет Последний раз редактировалось ImFaer; 30.09.2010 в 15:57

30.09.2010, 09:52	#2 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	Ну конечно выдает ошибки, в делфи ведь графический интерфейс, а в паскале командный. Весь ввод и вывод данных надо производить с компонента Edit, а код программы вставить в процедуру обработки клика по кнопке (Button)

30.09.2010, 10:21	#3 (permalink)
ImFaer Новичок Регистрация: 30.09.2010 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	можешь примерно показать как?

30.09.2010, 10:49	#4 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	клевете на форму три компонента Edit (для ввода числа, для вывода числа без нулей и единиц, и для вывода количества цифр) и один Button. щелкаете два раза по кнопке, создается процедура обработки щелчка по кнопке. Туда вставляете раздел описания переменных и раздел операторов из программы в другой теме. Меняете в коде readln(n) на N:=Edit1.Text (то есть берете текстовое значение компонента Эдит), а вместо WriteLn(N1); WriteLn('Number of figures is ',j) на Edit2.text:=IntToStr(n); (значение N, переведеное в строку) и Edit3.text:='Number of figures is ' IntToStr(j). Ну и выкиньте Readln.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

30.09.2010, 14:25	#6 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	Так Вам на каком языке надо - Pascal или Delphi?

30.09.2010, 17:50	#9 (permalink)
ImFaer Новичок Регистрация: 30.09.2010 Сообщений: 7 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо, буду знать..

30.09.2010, 18:08	#10 (permalink)
MrSTEP 一步一步地会到目的 Регистрация: 09.05.2009 Адрес: Черноземье Сообщений: 10,939 Записей в дневнике: 10 Сказал(а) спасибо: 140 Поблагодарили 80 раз(а) в 33 сообщениях Репутация: 28362	...Или можно было создать в делфи консольное приложение (File - New - Console Application). Там минимум отличий от паскаля, разве что его модулей там нет. И так, для справки: Паскаль: язык программирования, Делфи - среда разработки, поддерживающая создание программ на объектно-ориентированой спецификации паскаля - Object Pascal.