Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Siemens_73
0 / 0 / 0
Регистрация: 02.04.2013
Сообщений: 47
#1

Подпрограмма функции поиска - Turbo Pascal

22.05.2013, 13:02. Просмотров 235. Ответов 1
Метки нет (Все метки)

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

Подпрограмма функции! - Turbo Pascal
Найдите минимальные элементы каждой строки матрицы х(8,8) и поместить их на главную диагональ, а диагональные элементы запишите на место...

Подпрограмма поиска большего из двух чисел - Pascal
№1 решить используя процедуру:swoon: напишите программу поиска большего из четырёх чисел с использованием подпрограммы поиска большего из...

Подпрограмма поиска максимального элемента одномерного массива. - Pascal
Задача: Найти максимальные элементы одномерных массивов a,b,c и их номера. Подпрограмму поиска максимума оформить в виде процедуры. Ввод...

Подпрограмма поиска минимума элементов матрицы и его адреса - Pascal
Буду признателен если напишите програмку,надо до ночи 15 апреля,совсем уж туго у меня с пониманием pascal'я :) Написать подпрограмму...

Подпрограмма поиска минимального и его адреса среди элементов массива - Pascal
Написать подпрограмму поиска минимального и его адреса среди элементов массива. Для проверки подпрограммы создать драйвер, в котором...

Подпрограмма-функции - Pascal
Составить программу нахождения большего из 4 чисел a,b,c,d с использованием подпрограммы-функции поиска большего из двух. program...

1
Максим Архангел
23 / 23 / 4
Регистрация: 06.04.2013
Сообщений: 60
22.05.2013, 17:36 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 function summa(chislo:integer):integer; 
var s:integer; 
begin 
s:=0; 
while (chislo > 0) do 
begin 
s:=s + (chislo mod 10); 
chislo:=chislo div 10 
end; 
summa:=s 
end; 
 
var n:integer; 
begin 
write('vvedite chislo: ');readln(n); 
write('suumma: ',summa(n)); 
readln 
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2013, 17:36
Привет! Вот еще темы с ответами:

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

Подпрограмма-функции.Вычисление корней - Pascal
Хээээлп Вычислить корни квадратных уравнений x^2-a*x+b=0; c*y^2-d*x+f=0 все корни действительные (использовать подпрограмму функции). ...

Составить программу поиска значений функции - Turbo Pascal
Составить постановку, блок-схему алгоритма и программу поиска значений функции не больше 4.1 d=sin(ln55g/2g-12.7) на отрезке с шагом...

Ошибка в функции поиска наибольшего элемента массива - Turbo Pascal
Суть задачи: мне нужно найти максимальный элемент массива из первых N его элементов. Я не понимаю в чем ошибка, но эта программа вместо...


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

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

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