Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
nero31
0 / 0 / 0
Регистрация: 22.10.2013
Сообщений: 5
1

Определить сумму введенных цифр

22.10.2013, 21:49. Просмотров 1215. Ответов 3
Метки нет (Все метки)

С клавиатуры вводятся символы. Признак конца ввода – точка. Определить сумму введенных цифр. Написал программу, но дело в том, что chr(b)-нельзя присвоить a. Как изменить программу, чтобы работала?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program
var a,s: real;
      c:char;
      b:integer;
 begin
  s:=0;
read(c);
b:=ord(c);
while b<>46 do
  begin
a:=chr(b);
s:=a+s:
read(c);
b:=ord(c);
end;
write(s);
end.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.10.2013, 21:49
Ответы с готовыми решениями:

Определить множество цифр, не входящих в запись ни одного из введенных целых чисел
Написать программу, которая определяет мн-во цифр, не входящих в запись ни одного из введенных...

Определить первую цифру, сумму цифр, количество цифр в числе N
Дано натуральное число n. Определить: а) Первую цифру числа N. б) сумму цифр числа N. в) кол-во...

Определить количество цифр в числе n и сумму всех его цифр.
Дано натуральное число n, определить количество цифр в числе n и сумму всех его цифр. Значение n...

Определить сумму и произведение цифр, число, образованное перестановкой цифр для двузначного числа
записать программу,которая для произвольного двузначного числа определяет 1) сумму и произведение...

Подпрограмма. Определить количество и сумму введенных положительных чисел
Напишите программу с подпрограммой для ввода с клавиатуры положительных чисел и возвращения...

3
Kodzaev
3013 / 1901 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
22.10.2013, 22:54 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  c: char;
  s, x, code: integer;
 
begin
  repeat
    Readln(c);
    if c in ['0'..'9'] then
    begin
      Val(c, x, code);
      s := s + x;
    end;
  until c = '.';
  Writeln('Сумма введенных цифр = ', s);
  Readln
end.
2
nero31
0 / 0 / 0
Регистрация: 22.10.2013
Сообщений: 5
22.10.2013, 23:43  [ТС] 3
Спасибо, но как сделать так чтобы программа суммировала любые числа, а не только однозначные?
0
Kodzaev
3013 / 1901 / 1647
Регистрация: 30.04.2011
Сообщений: 3,054
23.10.2013, 18:33 4
В символ можно записать только однозначное число.
0
23.10.2013, 18:33
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.10.2013, 18:33

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Определить количество цифр в введенных числах и вывести на экран сколько цифр в первом и втором числах
ввести 2 числа, определить количество цифр в введеных числах и вывести на экран сколько цифр в...

Вычислить сумму первых двух цифр и сумму последних двух цифр числа. Определить какая из найденных сумм больше.
дано четырёхзначное число N. Вычислить сумму первых двух цифр и сумму последних двух цифр числа....

Определить сумму n-значных чисел, содержащих только нечетные цифры. Определить, сколько четных цифр в найденной сумме
Написать программу, определяющую сумму n - значных чисел, содержащих только нечетные цифры....


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.