Помогите с программой на Паскале

Alexadr34 · 31.05.2011, 22:08

Дано натуральное число n. Определите, сколько раз цифра «7» встречается в записи данного числа. Заранее спасибо

Vladimir_S · 31.05.2011, 22:22

Цитата:

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

Дано натуральное число n. Определите, сколько раз цифра «7» встречается в записи данного числа. Заранее спасибо

Код:

VAR
 i,N7:Byte;
 S:String;
BEGIN
 Writeln('n:');
 Readln(S);
 N7:=0;
 For i:=1 to Length(S) do
  If S[i]='7' then Inc(N7);
 Writeln(N7,' times');
 Readln
END.

Mr.П 2.0 · 07.06.2011, 15:09

Ну конечно S:string; это ещё то натуральное число.

Код:

Var a:longint; s:string; i,k:byte;
begin
k:=0;
Write('N=');
read(a);
Writeln;
str(a,s);
for i:=1 to length(s) do
begin
if s[i]='7'
then inc(k);
end;
Writeln('Kol-vo 7 ravno = ',k);
readln;
readln;
end.

Vladimir_S · 07.06.2011, 15:25

Цитата:

Сообщение от Mr.П 2.0

Ну конечно S:string; это ещё то натуральное число.

Так... начинается опять...
Любезный, а ответьте-ка на вопрос: имеет ли значение для пользователя программы то, как именно машина воспримет введенное им по запросу число? Мне кажется, что ни малейшего. Моя программа работает так:
1. Просит ввести число. При этом, обратите внимание, число может быть хоть 200-значным, а не ограниченным паршивыми 10 разрядами (причем старший - не выше 2), как у Вас.
2. Сообщает количество семерок.
А что еще пользователю надо?
Вот так-то.
С сожалением вынужден констатировать, что наше предыдущее общение ничему Вас, дорогой мой, не научило - всё то же верхоглядство и пустое самовыпячивание. Боюсь, кончится аналогично.

Mr.П 2.0 · 07.06.2011, 15:59

Да да да
Здесь

не получилось
Но на другом все ништяк и дело не во мне, а в количестве поступающих задач на этом форуме и полное доминирование модераторов.

Замечание:

По случаю нарушения п.3.1 и 3.4 Правил форума - бан на месяц.
Модератор.

Замечание:

За повторную регистрацию на форуме под другим ником вам грозит вечный бан, так что будьте любезны, не выеживайтесь! К тому же любая задача имеет, по крайней мере, не менее 2-х способов решения, это я вам говорю из личной практики. Ваш модератор.

AlexZir · 08.06.2011, 10:06

Можно обойтись вообще без строковой переменной, используя функции целочисленного деления, но, как справедливо отмечено выше, в компьютерном представлении целочисленный тип является ограниченным сверху и снизу множеством, поэтому не все значения можно будет обработать. Это так, частности.

Mr.П 2.0
Вы нарушили по крайней мере 4 запрета на данном форуме, что ж вы ожидали от модераторов? На месте Vladimir_S я бы вам дал вечный бан уже за то, что вы используете повторную регистрацию. Стиль ваших сообщений выдал вас с потрохами ещё в начале.

Vladimir_S · 08.06.2011, 12:58

Цитата:

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

Можно обойтись вообще без строковой переменной, используя функции целочисленного деления, но, как справедливо отмечено выше, в компьютерном представлении целочисленный тип является ограниченным сверху и снизу множеством, поэтому не все значения можно будет обработать. Это так, частности.

Угу. А товарищ что делает? Считывает число в формате LongInt и тут же преобразует его в строку. Далее один в один с моей программой. А у меня сразу идет чтение строки. Нет, я еще понял бы, если бы он добавил, скажем, контроль правильности ввода, например, сообщение об ошибке при вводе пробела или там знака препинания - так ведь и этого нет! Чисто "смотрите, какой я умный, а Vladimir_S дурак!".

Цитата:

Mr.П 2.0
Вы нарушили по крайней мере 4 запрета на данном форуме, что ж вы ожидали от модераторов? На месте Vladimir_S я бы вам дал вечный бан уже за то, что вы используете повторную регистрацию. Стиль ваших сообщений выдал вас с потрохами ещё в начале.

Ох, да у меня всё, как у крокодила Гены: "В лучшее верится...".

31.05.2011, 22:08	#1 (permalink)
Alexadr34 Новичок Регистрация: 19.05.2011 Сообщений: 4 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите с программой на Паскале Дано натуральное число n. Определите, сколько раз цифра «7» встречается в записи данного числа. Заранее спасибо

07.06.2011, 15:09	#3 (permalink)
Mr.П 2.0 Member Регистрация: 16.03.2011 Сообщений: 29 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 11	Ну конечно S:string; это ещё то натуральное число. Код: Var a:longint; s:string; i,k:byte; begin k:=0; Write('N='); read(a); Writeln; str(a,s); for i:=1 to length(s) do begin if s[i]='7' then inc(k); end; Writeln('Kol-vo 7 ravno = ',k); readln; readln; end.

08.06.2011, 10:06	#6 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Можно обойтись вообще без строковой переменной, используя функции целочисленного деления, но, как справедливо отмечено выше, в компьютерном представлении целочисленный тип является ограниченным сверху и снизу множеством, поэтому не все значения можно будет обработать. Это так, частности. Mr.П 2.0 Вы нарушили по крайней мере 4 запрета на данном форуме, что ж вы ожидали от модераторов? На месте Vladimir_S я бы вам дал вечный бан уже за то, что вы используете повторную регистрацию. Стиль ваших сообщений выдал вас с потрохами ещё в начале. __________________ Убить всех человеков!

31.05.2011, 22:08
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Аналогичные вашей темы участники форума создавали ранее, прочитайте их Помогите с программой Помогите с программой в Паскале Помогите, пожалуйста, с программой в Паскале

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