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

Посчитать сумму цифр числа

Вводится число. Вывести сумму его цифр

Пример входного файла
1571

Пример выходного файла
14

Бери же последнюю, а потом дели число на 10

Блин ты не можешь кинуть исходник, а то просто pascal не моя стихия, на vb это былобы не проблемно !

Нет паскаль это не моя стихия тоже. А дельфи из за 3 строк ставить влом

Код

const n=10; var i,sum:integer; a:array [1..10] of integer; begin sum:=0; for i:=1 to n do a[i]:=random(100); for i:=1 to n do sum:=sum+a[i]; read(sum);//в дельфи знаю как вывести, а в паскале так вроде end;

А разве функций перевода числа в строку и обратно нет ???

Цитата

Бери же последнюю, а потом дели число на 10

Цитата

А разве функций перевода числа в строку и обратно нет ???

нет

Цитата

read(sum);

да и вместо read нужно write

не совсем то что нужно !

Это сообщение отредактировал(а) HAS - 17.3.2005, 21:15

Цитата

Цитата(sergej @ 17.3.2005, ) Бери же последнюю, а потом дели число на 10

А чего смешного, можно спросить? Ваш код выводит сумму чисел массива. Зацепка только в том, что в таком виде числа обычно не лежат. К нему надо их приводить, а делается это именно делением на 10. Вернее модулом.
Вот код на Си:

Код

int sum(int number) {   int sum=0;    while(number>0)    {      sum+=number%10;      number/=10;    }   return sum; }

Если Вы знаете более оптимальный способ преобразования - поделитесь плиз
А то так вообще непонятно, зачем собирать массив в Вашем примере

Вот от балды на дельфи

Код

function sum(number:Integer):Integer  var   sum:Integer; sum:=0;  begin   while(number>0) do    begin       sum:=sum+(number mod 10);       number:=number/10;   end;   Result:=sum; end;

Цитата

А то так вообще непонятно, зачем собирать массив в Вашем примере

окей,

Код

var sum,i:integer; begin sum:=0; for i:=1 to 10 do sum:=sum+random(100); caption:=inttostr(sum);    end;

а представь плиз, свой код в дельфи

Цитата(sergej @ 17.3.2005, 21:08)

Вот от балды на дельфи Код function sum(number:Integer):Integer  var   sum:Integer;  begin   while(number>0) do    begin       sum:=sum+(number mod 10);       number:=number/10;   end;   Result:=sum; end;

а ещё говорят здесь телепатов нет

Цитата

А чего смешного, можно спросить?

а кстати, извини, ни хрена смешного в этом нет, перезанимался я

Регистрируйся, мы всегда рады новым лицам

Код

var   s:string;   a:integer;   t:integer;   i:integer;   sum:integer; begin   sum:=0;   readln(a); {ввод числа}   str(a,s);    {перевод из числа в строку}   for i:=1 to length(s) do    begin      val(s[i],t,err);   {перевод i-того символа строки в число}      sum:=sum+t;    end;   writeln(sum); end.

Спасибо Fedor

Привет,Has!!!Что-то я не пойму , если пользователь вводит цифры,зачем их в строковый тип переводить и обратно?

Код

function summa( n:integer):integer; var f:integer;  begin       f:=0:     while n>0 do    begin    f:=f+ (nmod10);     n:=ndiv10;       end;   summa:=f;   end;

А это решение не подходит?

Тебе тоже,Aleche, спасибо !

Aleche, только я не понимаю, чем твой код от моего отличается

Код

function sum(number:Integer):Integer  var   sum:Integer;  begin   while(number>0) do    begin       sum:=sum+(number mod 10);       number:=number/10;   end;   Result:=sum; end;

Все-все спасибо всем !

По сумме... немного интереснее вариантик, не как стандарт...

Код

var  f: text;  s:string;  c:char;  sum:integer; begin  Assign(f, 'Demo.txt');  reset(f);  readln(f, s);  Close(f);  sum:=0;  while s <> '' do   begin    inc(sum, ord(s[1]) - ord('0'));    Delete(s, 1, 1);   end;  writeln(sum);  readln; end.

Добавлено @ 13:48
Заодно здесь можно и проверку на правильность вводимых данных сделать...

sergej.z!!!!!! Имени функции присваивается ее подсчитываемое значение!!И ,на мой взгляд , лучше использовать деление div А да еще имя функции должно отличаться от работающих в ней переменных!

М-дя... ВСЕ уже поняли, что умеешь управлять цветом и размером, но вот такие сообщения могут вызвать конфликтные ситуации, т. к. лично я думаю, что такое сообщение в жизни было бы произнесего очень повышенным тоном! Немного убавь...

Вот именно, что вcе уже поняли ,СУВ PAKSHIN A.S.!!!А,если, действительно, мое сообщение воспринято в недружелюбной форме, то ничего повышенным я не хотела сказать, просто красный цвет нравится!!! PakshinA.S., не принемай все близко к сердцу !!

Цитата(Aleche @ 19.3.2005, 12:49)

sergej.z!!!!!! smile Имени функции присваивается ее подсчитываемое значение!!И ,на мой взгляд , лучше использовать деление div smile А да еще имя функции должно отличаться от работающих в ней переменных!

О! это круто! тогда можно так написать:

Код

function sum(number:Integer):Integer  var   sum:=0;  begin   while(number>0) do    begin       sum:=sum+(number mod 10);       number:=number div 10;   end;  end;

sergej.z Вообще-то говоря, паскалевско-дельфистский компилятор бы выдал ошибку несовместимости типов при использовании "/", т. к. результат этой операции - вещественное число, а присвоение шло к целочесленному... а что? в сях не так? Я всегда использовал функции разбиения на целую часть и остаток... Надо будет еще раз почитать...

Цитата(sergej @ 19.3.2005, 15:10)

тогда можно так написать:

Цитата(sergej @ 19.3.2005, 15:10)

var   sum:=0;

sergej.z я даже не проверяя код, могу сказать что так написать нельзя.

Цитата(Pakshin @ 19.3.2005, 15:51)

sergej.z Вообще-то говоря, паскалевско-дельфистский компилятор бы выдал ошибку несовместимости типов при использовании "/", т. к. результат этой операции - вещественное число, а присвоение шло к целочесленному... а что? в сях не так? Я всегда использовал функции разбиения на целую часть и остаток... Надо будет еще раз почитать... smile smile smile

Нет, в Си надо самому следить. Обычные грабли новичков: 4/5=0 Вси надо в таких случаях хотя бы одно число вещ. писать. например 4.0/5.

Насчёт функций, это верно, ведь для получения целого и остатка у процессора одна комманда. То есть и то и другое одновременно вырешивается. Это как раз операторами / и % нельзя использовать Приходится два раза одну и тоже операцию выполнять.

Цитата(Zero @ 19.3.2005, 18:50)

sergej.z я даже не проверяя код, могу сказать что так написать нельзя.

Ясный красный Просто не удалил var. имелось ввиду, что вообще без локальных переменных обойтись можно.
(А если паскаль инициализирует 0, то и без первой строки )

Код

function sum(number:Integer):Integer  begin   sum:=0;//Если паскаль инициализирует нулём по умолчанию, то эту строку даже можно удалить :)   while(number>0) do    begin       sum:=sum+(number mod 10);       number:=number div 10;   end;  end;

Вроде не инициализирует...

вот вариант:

Код

function sum(num:Integer):Integer     begin     while (num>0) do       begin       {к результирующиму прибавляем остаток от целочисленного деления на 10}           Result:=Result+(num mod 10);       {убираем крайнее правое число методом целочисленного деления на 10}           num:=num div 10;       end;         end;

еще вариант:

Код

function sum(num:Integer):Integer     var s:string[6];  {строка, т.к. само число типа Integer -32768..32767, то больше 6 символов занимать не может и больше нам не надо}       inv:byte;        {для получения числа из собственно строки чисел}       er:integer;    {если произойдёт ошибка превода, то сюда запишется номер ошибочного символа, но у нас он один и будет верным, но без неё нельзя} begin     s:=srt(num);        {переводим число в строку} if s<>'' then          {проверяем не пустая ли строка}    begin    if s[1]='-' then     { если первый символ '-', то может возникнуть ошибка перевода}       delete(s,1,1);   { если так, то удаляем его}    {открываем цыкл по длине строки}    for i:=1 to Length(S) do       begin      {преобразуем каждый символ в цифру и записываем в in}       Val(s[i],inv,er);       {всё суммируем для получения результата}       Result:=Result+inv;       end;    end;         end;

к сожалению команда ABS не знаю как работает в Паскале, если знаешь, то можно применять её вместо

Код

if s[1]='-' then            delete(s,1,1);

да и в первом варианте не помешало бы...

PS:

Код

number:=number/10

на это скорее всего будет ругаться, т.к. при делении может получиться не целочисленное число (делфи даже не откомпилится, в паскале не знаю... )
Добавлено @ 19:21
упс....
предыдущих постов не видел....только первую страницу... просмотрел...

Это сообщение отредактировал(а) Albinos_x - 3.10.2005, 19:16