Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Stevejonson
0 / 0 / 0
Регистрация: 26.02.2014
Сообщений: 12
1

Формирование массива по условию. Оформить программу с использованием функций

12.05.2014, 23:58. Просмотров 297. Ответов 0
Метки нет (Все метки)

Ребята помогите пожалуйста оформить с помощью функций. Заранее благодарю.
Даны натуральные числа K и N. Составить программу формирования массива А, элементами которого являются числа, сумма цифр которых равна К и которые не больше N.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const MaxN=100; 
var k,n,i,j: integer;
 s,x: integer;
 a: array[1..MaxN] of integer;
 begin write('K= ');
 readln(k); 
write('N= ');
 readln(n); 
j:= 0; 
for i:= 1 to n do begin s:=0; 
x:=i; 
while x>0 do begin s:= s+x mod 10;
 x:=x div 10;
 end;
 if s=k then begin j:=j+1; a[j] := i;
 end; 
end; 
for i:= 1 to j do begin write(a[i]:4); 
if i mod 5=0 then writeln; 
end; 
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2014, 23:58
Ответы с готовыми решениями:

Оформить с использованием функций и процедур
Дана действительная квадратная матрица n*n . Расположить элементы каждой...

Оформить код с использованием процедур и функций
Помогите плиз оформить (решить) с помощью procedure и function. program ;...

Двуменые Массивы.Формирование одномерного массива из двумерного массива по условию
1)В двумерном массиве B найти минимальный элемент среди элементов,расположенных...

Формирование одномерного массива по условию
Тема: Формирование одномерного массива по условию. Задание: В массиве P(10)...

Формирование матрицы и массива по условию.
Обработка двумерных массивов с помощью подпрограмм. Использовать процедуры...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.05.2014, 23:58

Формирование одномерного массива по заданному условию внутри процедуры
Задача: Функция F(x) определена с помощью ряда...

Оформить программу с использованием модулей. Организовать движение звезд
В общем, на скрине всё написано. Спасибо!

Задачи на разработку программу с использованием созданной по условию процедуры
Для каждой из двух матриц:А(2 строки, 4 столбца) и В(3 строки, 3 столбца)...


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

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

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