Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
bender16
0 / 0 / 1
Регистрация: 22.10.2009
Сообщений: 24
#1

процедуры и функции - Pascal

24.11.2009, 10:18. Просмотров 409. Ответов 6
Метки нет (Все метки)

Дано натуральное число Р.Найдите сумму цифр числа Р. Если знаете как решить напишите плиз целую задачу
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.11.2009, 10:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос процедуры и функции (Pascal):

Процедуры и функции: решить через процедуры S=a*x+b*y+c*z.
Пожалуста помогите решить через процедуры S=a*x+b*y+c*z.

Процедуры и функции. Процедуры с числовыми параметрами
Описать процедуру RectPS (x1, y1, x2, y2, P, S), вычисляющую периметр P и...

Процедуры и функции: вычислить значения функции на заданном отрезке с заданным шагом
ребята, помогите, пожалуйста! Срочно нужна такая программка по выделенному...

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

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

Процедуры и Функции
№1.Определить колличество натуральных чисел из интервала от 100 до 500 сумма...

6
Jazon_deenAlt
4111 / 985 / 191
Регистрация: 09.04.2009
Сообщений: 4,226
24.11.2009, 10:34 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
procedure symm(a:integer; var summ:integer);
begin
summ:=0;
while a/10>=0.1 do begin
summ:=summ + a mod 10;
a:=a div 10;
end;
end;
 
var
p,s:integer;
 begin
  writeln('vvedite p');
  readln(p);
  symm(p,s);
  writeln(s);
  readln;
 end.
1
bender16
0 / 0 / 1
Регистрация: 22.10.2009
Сообщений: 24
24.11.2009, 10:48  [ТС] #3
спасиб
0
mamedovvms
2918 / 839 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
24.11.2009, 10:51 #4
Цитата Сообщение от Jazon_deenAlt Посмотреть сообщение
while a/10>=0.1 do begin
можно было записать вот так
Pascal
1
while a>=0 do begin
0
Jazon_deenAlt
4111 / 985 / 191
Регистрация: 09.04.2009
Сообщений: 4,226
24.11.2009, 10:59 #5
mamedovvms, если
Цитата Сообщение от mamedovvms Посмотреть сообщение
while a>=0 do begin
то оно до второго пришествия будет цыклитса

Добавлено через 45 секунд
разве что while a>=0.1 do begin

Добавлено через 1 минуту
так будет лучче. согласен
0
mamedovvms
2918 / 839 / 324
Регистрация: 30.04.2009
Сообщений: 2,633
24.11.2009, 11:00 #6
блин не правильно написал надо так
Pascal
1
while a>0 do
0
Jazon_deenAlt
4111 / 985 / 191
Регистрация: 09.04.2009
Сообщений: 4,226
24.11.2009, 11:04 #7
можно и так. вон скока вариантов понаковыряли
0
24.11.2009, 11:04
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2009, 11:04
Привет! Вот еще темы с решениями:

Процедуры и функции
В круглой зготовке радиуса R вырезаны два круглых отверстия радиусы которых R1...

Процедуры и функции
Писать в PASCAL. Сгенерировать случайным образом 10 латинских прописных...

Процедуры и функции
Помогите пожалуйста составить программу. Даны два треугольника ABC(стороны...

функции и процедуры
Помогите с задачкой... Даны три точки (x1,y1), (x2,y2), (x3,y3) - вершины...


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

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

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