Помогите составить программу в Паскале - Страница 2

Vladimir_S · 26.02.2012, 10:48

Цитата:

Сообщение от юлёк fomik

А что такое оператор Inc

Операция над ЦЕЛЫМИ числами:
Inc(m,n) эквивалентно m:=m+n
Inc(m) эквивалентно m:=m+1
Dec(m,n) эквивалентно m:=m-n
Dec(m) эквивалентно m:=m-1

Vladimir_S · 26.02.2012, 10:54

Цитата:

Сообщение от юлёк fomik

ПРИ ЗАПУСКЕ ПРОГРАММЫ ОН НАХОДИТ НЕ БОЛЬШЕ "К" А БОЛЬШЕ ИЛИ РАВНО "К"???!!!

"Он" находит ровно то, что требуется в сформулированном Вам задании. Я не выкладываю сюда программ, пока они тщательно не оттестированы.

Цитата:

Сообщение от юлёк fomik

а ЕЩЁ НУЖНО ОПРЕДЕЛИТЬ ЧЁТНО ЛИ КОЛ-ВО ЦИФР БОЛЬШИХ "К")

А откуда это следует? Прочтите еще раз, как Вы сформулировали задание.

В общем, так. Итераций не будет. Изменения в программу будут внесены тогда, когда будет выложена полная, тщательно проверенная и точная формулировка задания. А не эти бесконечные тяп-ляп, вокруг да около и абы как ни попадя.

юлёк fomik · 26.02.2012, 17:41

Извините.
Дано натуральное число N (999<=N<=999999999).Ввести значение K (1<K<9) с клавиатуры. Найти сумму цифр данного числа и кол-во цифр, больших K.
Остальные цифры (<=K) вывести на экран в любом порядке.
Определить, чётно ли кол-во цифр,больших К.

юлёк fomik · 26.02.2012, 17:42

Спасибо, что объяснили.

Vladimir_S · 26.02.2012, 17:58

Цитата:

Сообщение от юлёк fomik

Дано натуральное число N (999<=N<=999999999).Ввести значение K (1<K<9) с клавиатуры. Найти сумму цифр данного числа и кол-во цифр, больших K.
Остальные цифры (<=K) вывести на экран в любом порядке.
Определить, чётно ли кол-во цифр,больших К.

Ну пожалуйста, вот:

Код:

Var
 N:LongInt;
 K,Sum,Num,m:Byte;
Begin
 Write('N (>998 and <1000000000) = ');
 Readln(N);
 Write('K (>1 and <9) = ');
 Readln(K);
 Num:=0;
 Sum:=0;
 While N>0 do
  begin
   m:=N mod 10;
   Inc(Sum,m);
   If m>K then Inc(Num) else Write(m,' ');
   N:=N div 10;
  end;
 Writeln;
 Writeln('Sum of all figures is ',Sum);
 Write('Number of figures, greater then ',K,', is ',Num);
 If (Num mod 2)=0 then
  Writeln(' (even)')
 else
  Writeln(' (odd)');
 Readln
End.

Одна ремарка. По некоторым причинам мне возиться с кириллицей в программах страшно неудобно, отсюда все надписи по-английски, так что Вы уж сами поправьте, если надо. На всякий случай:
even - четное
odd - нечетное.

юлёк fomik · 27.02.2012, 19:56

спасибо огромное))

26.02.2012, 17:41	#13 (permalink)
юлёк fomik Member Регистрация: 25.02.2012 Сообщений: 13 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Извините. Дано натуральное число N (999<=N<=999999999).Ввести значение K (1<K<9) с клавиатуры. Найти сумму цифр данного числа и кол-во цифр, больших K. Остальные цифры (<=K) вывести на экран в любом порядке. Определить, чётно ли кол-во цифр,больших К.

26.02.2012, 17:42	#14 (permalink)
юлёк fomik Member Регистрация: 25.02.2012 Сообщений: 13 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо, что объяснили.

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

27.02.2012, 19:56	#16 (permalink)
юлёк fomik Member Регистрация: 25.02.2012 Сообщений: 13 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо огромное))