Хто вміє працювати в Автокад2007? Треба зробити практичну , хто до ?

  Шартты форматтау түрлері

Ойлан

Күнделікті керекті әрі маңызды ақпараттарды әртүрлі дереккөздерден пайдалану үшін ерекшелеудің қандай түрлерін қолданасыңдар?

Кестедегі санды мәндерді (ең үлкен, ең кіші мәнін, ең көп және ең аз кездесетінін) көзмөлшерімен қалай ажыратады?

  Жаңа білім

  Excel программасында кестелерді шартты түрде форматтауға болады. Форматтаудың бұл әдісі деректерді талдауда, пішіндеуде өте қолайлы әдіс. Шартты форматтау – ұяшықтардағы деректерді белгілі шарттар бойынша форматтау. Қабылдауға оңтайлы болу үшін санды деректерді гистограмма, таңбалар және әртүрлі түстер арқылы беру тиімді. Бұл әдіс арқылы проблемалық жерлерге бірден визуалды түрде баға беруге болады. Шартты форматтауды іске қосу үшін «Бас» (Главная) құралдар тақтасында орналасқан «Мәнерлер» (Стили) бөліміндегі «Шартты форматтау (Условное форматирование) пәрмендерін (команда) орындасақ, «Шартты форматтау» диалогтік терезесі ашылады. «Шартты форматтау терезесінің» құрылғысымен!

Более изящное решение :)

Проблема в строке c:= (b*b*b);
Ты ищешь сумму кубов, а для 4-значных чисел нужно искать сумму 4-х степеней. Нужно проверять число а: если от 100 до 999, то выполняем c:= (b*b*b); а если от 1000 до 9999, то выполняем c:= (b*b*b*b); 

Код ниже работает и выдаёт результат:
число Армстронга ==> 153
число Армстронга ==> 370
число Армстронга ==> 371
число Армстронга ==> 407
число Армстронга ==> 1634
число Армстронга ==> 8208
число Армстронга ==> 9474


var a,b,c,d,a2:integer;
begin
for a:=100 to 9999 do begin
d:=0;
a2:=a;
while (a2 <> 0) do begin
b:= a2 mod 10;
a2:= a2 div 10;
if a<1000 then c:= (b*b*b)
      else c:= (b*b*b*b);
d:= d+c;
end;
if (a = d) then writeln('число Армстронга ==> ', a);
end;
end.